Вывод текста.

[glebast]

Здравствуйте. Вот у меня такая програмка:

procedure TForm1.Button1Click(Sender: TObject);

var myFile : TextFile;
text: string;
a:string;
i:integer;
begin
randomize;
memo1.Text:='';
a:=edit1.Text;
if edit1.Text=a then
begin
for i:=1 to 10 do
begin
SL:=TStringList.Create;
SL.LoadFromFile('data/'+a+'.txt');
Memo1.Lines.Text:=(GetRandomLine(SL ));
end;
end;

Но почему то он выводи мне текст, только одну строчку, а мне надо три.
ПОмогите пожалуйста.

[Кольша]

procedure TForm1.Button1Click(Sender: TObject);

var myFile : TextFile;
text: string;
a:string;
i:integer;
begin
randomize;
memo1.Text:='';
a:=edit1.Text;
if edit1.Text=a then
begin
for i:=1 to 10 do
begin
SL:=TStringList.Create;
SL.LoadFromFile('data/'+a+'.txt');
Memo1.Lines.add(GetRandomLine(SL )); 
Memo1.Lines.add(GetRandomLine(SL ));
Memo1.Lines.add(GetRandomLine(SL ));
end;
end;

[Greblin]

Потому что Вы записываете результат в Memo1.Lines.Text - это совокупность текста во всех строках. То есть Вы результат на каждом шаге цикла перезаписываете. Не помню точно, delphi под рукой нет, но примерно Вам нужно следующее

Memo1.Lines.Add(GetRandomLine(SL));

[Кольша]

а зачем вы делаете проверку типа

a:=edit1.Text;
if edit1.Text=a then

p.s только сейчас внимание обратил

[glebast]

Greblin ты супер, круто, все как и хотел.
Вот только появился новый вопрос. Мне нужно чтобы рандом не повторял одни и те же цифры (т.е. строки). Это надо вроде через массив как то надо делать, я в этом не бум-бум.
Очень прошу - помогите пожалуйста.