Случайные чила

[Алексей_xXx]

Народ помогите, прогу написал которая случайные числа мутит. Но программа создает только 1 случайное число !!!! А что надо сделать чтобы она создавала допустим 10 чисел , записанных чз пробел?

КОД

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
i:integer;
r: integer;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
r:= random(100);
Memo1.Lines.Text:=IntToStr(r);


end;

end.

[Sazary]

Так если написали, то показывайте код.

[Алексей_xXx]

вот он я просто забыл вставить его!

[5naip]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 9 do
  begin
    randomize;
    Memo1.Items.add(inttostr(random(100)));
  end;
end;

[Алексей_xXx]

не работает пишет ошибку в Items

[Sazary]

Алексей_xXx
randomize забыли

И еще вот так измените:

Memo1.Text := Memo1.Text + ' ' + IntToStr(r);

И будут вам числа через пробел.

[Алексей_xXx]

procedure TForm1.Button1Click(Sender: TObject);

begin
randomize;
r:= random(100);
Memo1.Lines.Text:=IntToStr(r);


тока 1 число генерирут

[Sazary]

randomize нужно вызывать один раз, а не перед каждой генерацией.
Сделайте изменение, указанное в посте 6.

[5naip]

Сообщение от Алексей_xXx

не работает пишет ошибку в Items

ну конечно не работает. Я спросони items написал, как в ListBox. А надо lines.

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
for i:=0 to 9 do Memo1.lines.add(inttostr(random(100)));
end;

[Алексей_xXx]

Спасибо большое Sazary!

Это получаеться что Текст, находящийся в поле Memo. Рассматривается как единое целое? а потом к целому этому постоянно добавляеться новое?