19.12.2009, 03:09
|
|
Познающий
Регистрация: 18.11.2009
Сообщений: 44
С нами:
8673383
Репутация:
3
|
|
Сообщение от ZdezBilYa
Ошибка, потому что Label1.Caption типа string, а Stroki.Count типа integer.
Надо:
Код:
Label1.Caption := IntToStr(Stroki.Count);
Чтобы при открытии сразу количество строк выводилось, то вот так:
Код:
procedure TBrutForm.LoadButtonClick(Sender: TObject);
begin
Open1.InitialDir := GetCurrentDir;
if
Open1.Execute
then
begin
Password.Text := Open1.FileName;
Stroki:=TStringList.Create;
Stroki.LoadFromFile(Open1.FileName);
Label1.Caption := IntToStr(Stroki.Count);
end
else
ShowMessage('Файл не выбран!');
end;
Ох Вы мой спаситель 
Спасибо Вам огромное за помощь... 
Может Вы мне подскажите как сделать так, что бы вытаскивалась строка из файла вставлялась в PassEdit.text например или в какую нить процедуру и так процедура это длилась пока не закончатся строки...хотя бы небольшой пример.
|
|
|