كيف أنسخ آخر ثلاث أحرف من نص ما في edit

[محمد عبد العزيز]

استعمل copy نفس طريقة hanipino بالرد الاول حيث s هو النص

PHP كود :

Copy(S,Length(S)-2,3); 


لنسخ 3 اخر احرف من Edit1 الى Edit2 نكتب شيئ مثل

PHP كود :

var
S : string;
begin
S:=Edit1.Text;
Edit2.Text := Copy(S,Length(S)-2,3);
end; 


او مباشرة دون استخدام متغير

PHP كود :

Edit2.Text := Copy(Edit1.Text,Length(Edit1.Text)-2,3); 


طريقة اخرى باستخدام الوحدة StrUtils

PHP كود :

ReverseString(Copy(ReverseString(S),1,3)); 


ان كان الهدف هو الحصول على لاحقة ملف فهناك دالة لذلك ExtractFileExt

PHP كود :

Edit2.Text := ExtractFileExt(Edit1.Text); 


والسلام عليكم