عمل حلقة دون تحديد تكرارها

[Agmcz]

السلام عليكم
إنشاء الكل بألف خير
بسم الله
مثال
عندي ليست

كود :

delphi1+arab delphi2+arab delphi3+arab delphi4+arab delphi5+arab delphi6+arab delphi7+arab delphi8+arab

كيف يمكن عمل حلقة تنسخ ما قبل + في كل سطر ووضها في ميمو مثلا
علما أن عدد الاسطر ليس ثابت

[paix144]

و عليكم السلام و رحمة الله أخي

كود :

var i: integer; begin for i := 1 to 10 do begin Memo1.Lines.Add('Delphi' + IntToStr(i)+'+Arab'); end; end;

و أنظر الدرس الرابع للدورة إن لم تخني الذاكرة
بالتوفيق إن شاء الله

[Agmcz]

أخي شكرا لك على الرد لكن أنت لم تفهمني
أنا قلت كيف اعمل حلقة تنسخ الكلمة الاولى في كل سطر يعني ما قبل +
ما العلم أن list ليست ثابتة يعني متغيرة
كتابيا وعدديا

[kachwahed]

وعليكم السلام ورحمة الله

PHP كود :

var
  S: string;
begin
  S := 'Delphi+'+'Arab';
  ShowMessage(Copy(S, 0, Pos('+', S)-1));
end; 


[yassine_hell]

وعليكم السلام ورحمة الله

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]

شكرا لك kachwahed

yassine_hell بارك الله فيك هدا ما كنت ابحث عنه