строки + random

[DeDoK]

есть n-ое количество строк. Нужно рандомно выбрать оттуда одну. Не могу придумать реализацию в виде кода.

[Vikenty]

Если используется TStringList то так:

var
s: TStringList;
RandomStr: string;
begin
RandomStr:=s.Stringrs[Round(Random*s.Count)];
end;

[DeDoK]

пасиба большое

[dr.Chas]

Ну что нибудь вроде:

procedure TForm1.Button1Click(Sender: TObject);
var str: TStringList;
begin
  str:=TStringList.Create;
  str.LoadFromFile('C:\str.txt');
  randomize;
  Label1.Caption:=str.Strings[random(str.Count)];
end;

add:
опоздал