mengambil 2 huruf terakhir dari editbox

met malem ..

help ...mohon bantuan nya...

edit2.text berisi = ABCDEFG
>
edit1.Text:=copy(Edit2.Text,1,2); // 2 huruf pertama

gmn crnya mengambil text dari edit2 pada 2 hurf terakhir.. :)

Like·Comment·Follow

Imam Chalimi Bin Moeslim
uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=RightStr(Edit2.Text,2);
end;