+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم إظهار عدد سطور memo متتالية (/showthread.php?tid=6999)
كيف يتم إظهار عدد سطور memo متتالية - Ramzi2 - 15-05-2015
السلام عليكم أحبابي في الله
كيف يتم إظهار عدد سطور memo متتالية بالتسلسل حسب الرقم المدخل في edit
مثلا : كما في الصورة
نعطي قيمة edit الرقم 7
ونضغط ok تظهر في memo
7 سطر بالتسلسل من 1 الى 7
قيمة edit مثلا 2 تظهر بالتسلسل
1
2
![[صورة: GnhgYj.jpg]](http://im45.gulfup.com/GnhgYj.jpg)
كيف يتم إظهار عدد سطور memo متتالية - karika2 - 15-05-2015
كود :
var
i:integer;كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
i:=StrToInt(Edit1.Text);
for i:=0 to i do
begin
Memo1.Lines.Add(IntToStr(i))
end; end;