Привет ребята.
Я тут забомбил такой вот код:
Цитата:
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 дней моих усилий я понял что я нечтожество и без вашей помощи у меня ни чего не получиться.
Ребята, будьте добры, помогите пожалуйста.
Я буду очень вам благодарен.
Заранее спасибо!