Форум АНТИЧАТ - Показать сообщение отдельно

Цитата:

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

Код:

Stroki:TStringList;

Stroki:=TStringList.Create;
Stroki.LoadFromFile('file.txt');

Stroki.Count - количество строк

нельзя, не видя строки примера, сказать, как парсить, чтобы что-то из нее получить.
а вообще используй Pos и Copy

Спасибо, попробовал, но возникло "НО" вот делаю такой код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 Stroki:TStringList;
begin
 Stroki:=TStringList.Create;
 Stroki.LoadFromFile('D:\filename.txt');
 Label1.Caption := Stroki.Count;
end;

Ругаеться на :

Код:

 Label1.Caption := Stroki.Count;

Понимаю, что это совсем не годиться, ну тогда подскажите куда это значение можно вывести) желательно на Label.Caption!

В чем моя ошибка? еще вопрос по поводу счета строк, мне надо что бы при открытие файла т.е. я открываю файл через OpenDialog1 текстовый и мне сразу считывается кол-во строк...подскажите как лучше прикрепить?
вот код на OpenDialog1:

Код:

procedure TBrutForm.LoadButtonClick(Sender: TObject);
begin
 Open1.InitialDir := GetCurrentDir;
if
 Open1.Execute
then
 Password.Text := Open1.FileName                              
else
 ShowMessage('Файл не выбран!');
end;

Подскажите, как прикрутить подсчет строк к этому?
P.S. Извиняюсь за глупые вопросы, просто занимаюсь Delphi недавно...