+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ما هي الخاصية التي تستخدم لاضافة حرف وليس سطر في الميمو (/showthread.php?tid=12379)
ما هي الخاصية التي تستخدم لاضافة حرف وليس سطر في الميمو - ELARAPY - 02-09-2023
السلام عليكم ورحمة الله وبركاته
هذا مثال على ما اقصده
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.Add(Edit1.Text);
for var i := 1 to High(Edit1.Text) do
Memo1.Lines.Add(Edit1.Text[i]);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
s : string;
begin
Memo1.Clear;
for var i := High(Edit1.Text) downto 1 do
s := s + Edit1.Text[i];
Memo1.Lines.Add(s);
for var i := High(Edit1.Text) downto 1 do
Memo1.Lines.Add(Edit1.Text[i]);
end;
المفتاح الثاني : الحلقة الاولى لنسخ محتوى الايديت معكوس في المتغير ثم اضافة المتغير الى الميمو , كيف يمكن الاستغناء عن تلك الحلقة والاكتفاء بالحلقة التكرارية الاخيرة لطباعة محتوى الايديت حرف حرف الى الميمو, هل يوجد غير الخاصية Lines ؟ باختصار اريد المفتاح الثاني يقوم بنفس الوظيفة بحلقة تكرارية واحدة فقط, كيف ذلك؟
RE: ما هي الخاصية التي تستخدم لاضافة حرف وليس سطر في الميمو - larbiparadox - 02-09-2023
وعليك السلام ورحمة الله وبركاته
هل تقصد هذا
كود :
procedure TForm1.Button2Click(Sender: TObject);
var
s : string;
begin
Memo1.Clear;
for var i := High(Edit1.Text) downto 1 do
s := s + Edit1.Text[i];
Memo1.Text := s;
end;أو اكتب function
كود :
function ReverseStr(Str : String) : String;
var
Res : String;
i : Byte;
begin
Res:='';
for i:= High(Str) downto 1 do
Res:=Res + Str[i];
ReverseStr:=Res;
end;وبعدها نستدعيها
كود :
Memo1.Text := ReverseStr(Edit1.Text);RE: ما هي الخاصية التي تستخدم لاضافة حرف وليس سطر في الميمو - ELARAPY - 03-09-2023
السلام عليكم اخي العربي
نص الايتديت مثلا Elaraby, احتاج عرضه في الميمو افقياً ثم رأسياً باستخدام حلقة واحده فقط على هذا النحو
ybaralE
y
b
a
r
a
l
E
لم استطع تنفيذه الا بحلقتين مثل المثال المرفق في مشاركتي الاولى .
RE: ما هي الخاصية التي تستخدم لاضافة حرف وليس سطر في الميمو - AX302 - 03-09-2023
PHP كود :
procedure DrawReverseString(Text : String; Memo : TMemo);
var
I, J : Integer;
begin
Memo.Clear;
J := 1;
for I := Length(Text) downto 1 do
begin
Memo.Lines[0] := Memo.Lines[0] + Text[I];
Memo.Lines.Add('');
Memo.Lines[J] := Text[I];
Inc(J);
end;
end;
PHP كود :
DrawReverseString(Edit1.Text, Memo1);
RE: ما هي الخاصية التي تستخدم لاضافة حرف وليس سطر في الميمو - larbiparadox - 03-09-2023
حل سريع
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
for var i := 1 to Length(Edit1.Text) do
Memo1.Text := Memo1.Text + Edit1.Text[i]+ sLineBreak;
end;RE: ما هي الخاصية التي تستخدم لاضافة حرف وليس سطر في الميمو - yuryu - 08-09-2023
(02-09-2023, 08:33 AM)ELARAPY كتب : السلام عليكم ورحمة الله وبركاته
هذا مثال على ما اقصده
PHP كود :procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.Add(Edit1.Text);
for var i := 1 to High(Edit1.Text) do
Memo1.Lines.Add(Edit1.Text[i]);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
s : string;
begin
Memo1.Clear;
for var i := High(Edit1.Text) downto 1 do
s := s + Edit1.Text[i];
Memo1.Lines.Add(s);
for var i := High(Edit1.Text) downto 1 do
Memo1.Lines.Add(Edit1.Text[i]);
end;
المفتاح الثاني : الحلقة الاولى لنسخ محتوى الايديت معكوس في المتغير ثم اضافة المتغير الى الميمو , كيف يمكن الاستغناء عن تلك الحلقة والاكتفاء بالحلقة التكرارية الاخيرة لطباعة محتوى الايديت حرف حرف الى الميمو, هل يوجد غير الخاصية Lines ؟ باختصار اريد المفتاح الثاني يقوم بنفس الوظيفة بحلقة تكرارية واحدة فقط, كيف ذلك؟
(03-09-2023, 01:38 PM)larbiparadox كتب : حل سريع
كود :procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Clear; for var i := 1 to Length(Edit1.Text) do Memo1.Text := Memo1.Text + Edit1.Text[i]+ sLineBreak; end;