Пишу прогу по заданию. Надо сделать поиск файла по имени и по содержимому. За поиск по содержимому я еще не брался, а при создании поиска по имени наткнулся на проблему, которую сам разрешить не могу.
Процедура выглядит так:
procedure TLoadForm.LoadButtonClick(Sender: TObject);
var
SearchFile:TSearchRec;
LoadF:TStringList;
begin
if FindFirst('C:\birds\data\ '+edit4.Text+ '.txt', faAnyFile, SearchFile)=0 then
begin
LoadF := TStringList.Create;
LoadF.LoadFromFile ('c:\birds\data\' +edit4.Text+ '.txt');
Edit1.Text := LoadF.Strings[1];
Edit2.Text := LoadF.Strings[2];
Edit3.Text := LoadF.Strings[6];
Компилирует нормально, но при работе, когда пытаюсь найти файл (существующий), тормозится и выдает следующее:
Source Breakpoint at $00455303: D:\!!УЧЕБА!!\Delphi\Birds\LoadData.pas line 67. Process Birds.exe (1704)
Ошибку выдает на выделенной мною строке.
менял значение FindFirst на 1, результат тот же.
Delphi 2005. Поиск файлов. Ошибка(студент)
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Попробуй мышкой на класный крушек слева строки нажать, чтобы он убрался.
С уважением, Lost Angel...
-
- Сообщения: 5
- Зарегистрирован: 14 фев 2007, 11:58
LAngel, затупил))) признаю))))
с похмела плохо работаецца)
с похмела плохо работаецца)