delphi4arab منتديات دلفي للعرب

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

كود :
delphi1+arab
delphi2+arab
delphi3+arab
delphi4+arab
delphi5+arab
delphi6+arab
delphi7+arab
delphi8+arab

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

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

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

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

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

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

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

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

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; 

شكرا لك kachwahed

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

Agmcz

paix144

Agmcz

kachwahed

yassine_hell

Agmcz