08-02-2009, 08:37 PM
اعد صياغة ما تريد على شكل جملة مفيدة
ترجم حرفيا الجملة الى اوامر Pascal دلفي
نسخ نص من البداية حتى طوله ناقص واحد
نسخ Copy
النص S
من البداية 1
طوله ناقص واحد Length(s)-1
يكون الامر بدلفي
PHP كود :
S := Copy(S,1,Length(S)-1);
مثال: نفس الشيئ على محتوى مكون Edit
PHP كود :
Edit1.Text := Copy(Edit1.Text,1,Length(Edit1.Text)-1);