Выборка текста

[frayerok]

Здравствуйте.Мне нужно быстро по работе сделать прогу,а в делфи начал розбираться только неделю назад помогите плс.
Мне нужно чтобы с ТХТ файла делалась выборка 100 строк(разных) и вставлялись в поле мемо.Как это можна реализовать.Можете скинуть исходник чтобы я посмотрел.
Заранее благодарен.

[_Dmitry]

Каков критерий выборки?

[puporev]

Первых 100 строк или по какому-то правилу?

[frayerok]

Просто например в файле 100к строк.Чтобы была выборка любых 100 строк с этого файла.
Правила нету.Главное чтобы каждый раз когда нажимаю на кнопку были разные строки.
P.S Спс за то что откликнулись

[_Dmitry]

var
  str: TStringList;

procedure TForm1.FormCreate(Sender: TObject);
begin
  str:=TStringList.Create;
  str.LoadFromFile('file.txt');
  randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  Memo1.Clear;
  for i:=1 to 100 do
    Memo1.Lines.Add(str.Strings[random(str.Count)])
end;

[eoln]

Чтобы строчки не повторялись можно так

procedure TForm1.Button1Click(Sender: TObject);
var
  i, k: integer;
begin
  Memo1.Clear;
  for i:=1 to 100 do
  begin
    k := random(str.Count);
    Memo1.Lines.Add(str.Strings[k]);
    str.Delete(k)
  end
end;

[frayerok]

Ой братцы спс.Говорила мама учи програмирование
Просто сейчас сайтами занимаюсь(дорвеями) и пишу прогу чтобы минимализировать ручную работу.Большое вам спасибо.

[_Dmitry]

Я бы сделал так. Иначе будут проблемы с повторяемостью опыта (когда из str удалим все строки)...

const
  n = 100;

var
  str: TStringList;
  M: set of 0..n-1;

procedure TForm1.FormCreate(Sender: TObject);
begin
  str:=TStringList.Create;
  str.LoadFromFile('file.txt');
  randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i,k: integer;
begin
  Memo1.Clear;
  M:=[];
  i:=0;
  repeat
    k:=random(str.Count);
    if k in M then continue;
    include(M,k);
    Memo1.Lines.Add(str.Strings[k]);
    inc(i);
  until (i >= n) or (i >= str.Count);
end;

[eoln]

100 строк, 100 выборок
1) k := random(str.Count); от 0 до 99 включительно
str.Delete(k) //str.Count уменьшится на 1
2) k := random(str.Count); от 0 до 98
str.Delete(k) //str.Count уменьшится на 1
...

Повтора не будет, на всякий случай можно добавить if str.Count = 0 then break

[_Dmitry]

Нет, имелось ввиду если мы второй, третий, четвёртый раз нажмём кнопку Button1, то может получиться так, что и строк для выбора не останется.