Mengambil nilai paling kiri dari string

Index Konsultasi Delphi || Arsip Pertanyaan

Mengambil nilai paling kiri dari string [Aris Hermawan ]

Bagaimana caranya mengambil nilai paling kiri atau kanan atau dari posisi yang kita suka ? Contoh 1745abc. Bagaimana apabila hendak mengambil nilai kedua dari kiri dan diassign kedalam suatu variable ?

Jawaban

Anda bisa menggunakan function Copy yang terdapat pada Delphi:

function Copy(S; Index, Count: Integer): string;

contoh :

procedure TForm1.Button1Click(Sender: TObject);

begin

     Edit2.Text := Copy(Edit1.Text, 1,5);

end;

Kode di atas akan mengembalikan substring dari string yang terdapat pada Edit1.Text sebanyak 5 karakter yang dimulai dari karakter pertama. Jadi misalnya Edit1.Text adalah 'Latihan Delphi' maka Edit2.Text adalah 'Latih'. Untuk mengambil 5 karakter terakhir Anda bisa menggunakan:

procedure TForm1.Button2Click(Sender: TObject);

var

   teks : integer;

begin

     teks := Length (Edit1.Text);

     Edit3.Text := Copy(Edit1.Text, teks-4,5); 

end;

-----------------------------------------------------------

WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,

SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC

PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO

-----------------------------------------------------------