27-03-2011, 12:17 AM
و عليكم السلام و رحمة الله أخي
و أنظر الدرس الرابع للدورة إن لم تخني الذاكرة
بالتوفيق إن شاء الله
كود :
var i: integer;
begin
for i := 1 to 10 do
begin
Memo1.Lines.Add('Delphi' + IntToStr(i)+'+Arab');
end;
end;و أنظر الدرس الرابع للدورة إن لم تخني الذاكرة
بالتوفيق إن شاء الله