memolines

var
  Form1: TForm1;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

memo1.Lines.Add(inttostr(i));
i:=i+1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;

الى الاخsal1150

شكرا لك ولكن طريقتي تعطي ارقام غير متناسقة . هل لك ان تجرب طريقتي لتعرف السبب . ولدي سءال اخر . لقد نسيت طريقة عمل procedure.create

كبف استطيع عملها

. تحيه عربية من هولندا