+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : عمل حلقة دون تحديد تكرارها (/showthread.php?tid=2940)
عمل حلقة دون تحديد تكرارها - Agmcz - 27-03-2011
السلام عليكم
إنشاء الكل بألف خير
بسم الله
مثال
عندي ليست
كود :
delphi1+arab
delphi2+arab
delphi3+arab
delphi4+arab
delphi5+arab
delphi6+arab
delphi7+arab
delphi8+arabعلما أن عدد الاسطر ليس ثابت
عمل حلقة دون تحديد تكرارها - paix144 - 27-03-2011
و عليكم السلام و رحمة الله أخي
كود :
var i: integer;
begin
for i := 1 to 10 do
begin
Memo1.Lines.Add('Delphi' + IntToStr(i)+'+Arab');
end;
end;و أنظر الدرس الرابع للدورة إن لم تخني الذاكرة
بالتوفيق إن شاء الله
عمل حلقة دون تحديد تكرارها - Agmcz - 27-03-2011
أخي شكرا لك على الرد لكن أنت لم تفهمني
أنا قلت كيف اعمل حلقة تنسخ الكلمة الاولى في كل سطر يعني ما قبل +
ما العلم أن list ليست ثابتة يعني متغيرة
كتابيا وعدديا
عمل حلقة دون تحديد تكرارها - kachwahed - 27-03-2011
وعليكم السلام ورحمة الله
PHP كود :
var
S: string;
begin
S := 'Delphi+'+'Arab';
ShowMessage(Copy(S, 0, Pos('+', S)-1));
end;
عمل حلقة دون تحديد تكرارها - yassine_hell - 27-03-2011
وعليكم السلام ورحمة الله
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var i, p : integer;
s : string;
begin
for i := 0 to Memo1.Lines.Count do
begin
p := pos('+',Memo1.Lines.Strings[i]);
if p <> 0 then
begin
s:= copy(Memo1.Lines.Strings[i],1,p-1);
Memo2.Lines.Add(s);
end;
end;
end;
عمل حلقة دون تحديد تكرارها - Agmcz - 27-03-2011
شكرا لك kachwahed
yassine_hell بارك الله فيك هدا ما كنت ابحث عنه