При обработке reset(f) появляется ошибка File not Found. Почему? Может кто нибудь объяснить?
| Код |
procedure renewlist;
var SearchRec:TSearchRec;
fale:textfile;
s: string;
i:integer;
begin
If FindFirst(Road+'*.cgaccount', faAnyFile, SearchRec)=0 then
repeat
//s:=ExpandFileName(SearchRec.name);
Data.FileNme.Add(ExpandFileName(SearchRec.name));
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
if Data.FileNme.Count<0 then exit;
for i:= 0 to Data.FileNme.Count-1 do
begin
s:=Data.FileNme[i];
assignfile(fale,s);
Reset(fale);
readln (fale,s);
Data.Name.Add(s);
readln (fale,s); Data.SurName.Add(s);
readln (fale,s);Data.Email.Add(s);
readln (fale,s);Data.Nick.Add(s);
readln (fale,s);Data.Password.Add(s);
readln (fale,s);Data.Telefon.Add(s);
closefile(fale);
MainFrm.ListBox1.Items.Add(Data.Name[i]+Data.SurName[i]);
end;
end;
|
Не работает ни при *.*, ни при *.txt. Имя файла и путь находит правильно, через watch point смотрел. Data - record of TStrings (там их пару Name, Surname).
Задача заключается в том чтобы найти в папке *.cgaccount файлы, считать с каждого Name, Surname и т.д., сохранить в списках и добавить в ЛистБокс Name+Surname
Пример *.cgaccount файла
|