Delphi. Случаная фраза из файла

[Чач]

Есть в инете старая прога "Fraza"
fraza.rar

Я хочу сделать такую же, со своими фразами.
Два дня я её пытаюсь сделать и уже началася баттхерт.

Вот что я делаю:
Создаю на стандартной форме, основном окне - форму текста (Label)
И задаю к основному окну действие OnCreate, а к этому действию вот это:

var
Form1: TForm1;
t:TStringList;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin
t:=TStringList.create;
t.loadfromfile('file.txt');
lbl1.clear;
randomize;
lbl1.lines.add(t.strings[random(t.lines.count-1)]);
t.free;
end;

и в итоге возникает ошибка.

"вот это" я подчерпнул из этой темы:
http://www.programmersforum.ru/showt...ight=Randomize

Прошу вашей помощи и совета.

[Serge_Bliznykov]

во-первых, какая ошибка возникает? Может файла 'file.txt' рядом с exe-шником банально нет?!

во-вторых, какого типа lbl1 ? TMemo ?

в-третьих, нужно выкинуть -1

  lbl1.lines.append( t.strings[random(t.count)]);

- иначе последняя строчка из файла НИКОГДА в мемо не попадаёт!

в-четвёртых,

"вот это" я подчерпнул из этой темы:

плохая тема. автор кода явный новичок, код с грубейшими огрехами...

[Чач]

Спасибо.

Ошибка возникала здесь:

lbl1.clear;

или если я удалял эту строчку, то здесь:

lbl1.lines.add(t.strings[random(t.lines.count-1)]);

Потом я заменил "Label" на "Memo", и использовал твою строчку кода.
Тогда ошибка пропала.

В итоге сейчас, у меня вроде как бы и есть то, что надо. Но мне не нравиться - топорно и грубо.

Я орентировался на это:
Citata2.jpg

А вышло вот, что:
Citata1.jpg

И сама прога:
Citata.rar

[Serge_Bliznykov]

дык выкиньте напрочь своё мемо! (и, кстати можно вместе с формой )

код, где вы заносите в мемо строку замените на

procedure TForm1.FormCreate(Sender: TObject);
var s : string;
begin
  randomize;
  t:=TStringList.create;
  t.loadfromfile('file.txt');
  s := t.strings[random(t.lines.count)]
  t.free;

  ShowMessage( s );

end;

как вариант можете попробовать с Application.MessageBox поиграться.
например:

....
  MessageBox(0, PChar( s ), 'The Great phrase!', MB_OK or MB_TOPMOST);

end;