Копировать 3 рандомные строки из .txt и выводить в Memo

[FleXik]

Вобщем т.к я такого никогда не делал (сразу 3 строки) прошу помощи у вас, нужно копировать 3 рандомные строки из .txt и выводить в Memo или переменную, код:

var
sl:TStringList;
m:string;
begin
Randomize;
sl:=TStringList.Create;
sl.LoadFromFile(Form1.sFileNameEdit1.FileName);
m:=sl[Random(sl.Count-1)]; // это для 1-й строки, мне же нужно сразу для 3-х строк
Form1.sMemo1.Lines.Add(m);
sl.Free;
end;

[Serge_Bliznykov]

три строки подряд или просто любые случайные три строки?
Повторы допускаются (ну это одна и та же строка случайно может попасть более одного раза)?

для начала попробуйте так:

sl.LoadFromFile(Form1.sFileNameEdit1.FileName);
for j:=1 to 3 do begin
  m:=sl[Random(sl.Count-1)]; 
  Form1.sMemo1.Lines.Add(m);
end;

[FleXik]

Serge_Bliznykov, да я жестко тупанул, создал тему и через 2 мин сам сделал со счетчиком :D (всю ночь не спал бошка не варит), сейчас с повторами мучаюсь как их игнорить...

пока что накатал следующее, но повторы все ровно проходят:

var
  sl:TStringList;
  m:string;
  i:integer;
begin
  Randomize;
  sl:=TStringList.Create;
  sl.LoadFromFile(Form1.sFileNameEdit1.FileName);

    for i:=1 to 3 do
    begin
      m:=sl[Random(sl.Count-1)];

        if Pos(m, IntToStr(i))<>0 then
        repeat
          m:=sl[Random(sl.Count-1)];
        until
          Pos(m, IntToStr(i))=0;

      Form1.Memo1.Lines.Add(m);
    end;

  sl.Free;
end;

[Stilet]

сейчас с повторами мучаюсь как их игнорить...

Какими повторами?

[FleXik]

Сообщение от Stilet

Какими повторами?

есть .txt файл в нем нумерация от 1 до 9, так вот программа рандомно из этого файла берет 3 строки и выдает в Memo но мне нужно что бы все цифры в каждой из 3-х строк были разные т.е что бы было например: "539" а не "559" (цифра пять повторяется), так вот если попали на повтор то получаем рандомно новую цифру до тех пор пока эта цифра будет НЕ повтором.

[Stilet]

а-а-а

    begin
 k:=Random(sl.Count-1);
      m:=sl[k];
 sl.delete(k);
...

[FleXik]

Stilet, пашет, благодарю