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

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

السلام عليكم أحبابي في الله Big Grin

كيف يتم إظهار عدد سطور memo متتالية بالتسلسل حسب الرقم المدخل في edit
مثلا : كما في الصورة
نعطي قيمة edit الرقم 7
ونضغط ok تظهر في memo
7 سطر بالتسلسل من 1 الى 7
قيمة edit مثلا 2 تظهر بالتسلسل
1
2
[صورة: GnhgYj.jpg]

كود :
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;

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

Ramzi2

karika2