[dulingleb]

Привет ребята.
Я тут забомбил такой вот код:

function GetRandomLine(SL:TStrings):string;
begin
result:=SL1[random(SL1.Count)];
end;

...
per:=StrToIntDef(Edit2.Text, -42);
zad:=edit1.Text;
if edit1.Text=zad then
begin
SL1:=TStringList.Create;
SL1.LoadFromFile('data/web/'+zad+'/1.txt');
for i:=1 to per do
Memo1.Lines.add(GetRandomLine(SL2 ));
end;
...

Но мне захотелось чего-то большего. И я решил сделать так, чтобы случайные строки не повторялись. Но после 3 дней моих усилий я понял что я нечтожество и без вашей помощи у меня ни чего не получиться.

Ребята, будьте добры, помогите пожалуйста.
Я буду очень вам благодарен.

Заранее спасибо!

[dr. F.I.N.]

Пойдет?

Код:

RandomIze;
...
var
  i: Integer;
...
CurrentStrings := TStringList.Create;
CurrentStrings.LoadFromFile(filename);
while CurrentStrings.Count > 0 do
begin
  i := Random(CurrentStrings.Count);
  Memo1.Lines.Add(CurrentString.Strings[i]);
  CurrentStrings.Delete(i);
end;
CurrentStrings.Free;

[YVitaliy]

Именно какие строки - результат ф-ции, или чередование строк в мемо?
Если ф-ции, то без глобальной переменной не обойтись, если по мемо, то элементарное сравнение.