Текстовик и поиск
Страницы:
<
1
2
>
zdm © (2008-04-18 16:25:00)
Мастера, помогите... не могу растормозиться.. смысл, в
директории есть файлы, она вскрывается(директория) накохдится
первый файл и далее... выдает ошибку на Reset когда .. AssignFile
проходит.. вот примерный код.
procedure TFormOsn.DirectoryEditSourceChange(Sender: TObject);
var T:TextFile;
S:TSearchRec;
Str:String;
begin
FindFirst(pchar(DirectoryEditSource.LongName+'/*.*'),faAnyFile,S);
//ищем первое вхождение
while FindNext(s)=0 do // пока незакончится поиск
... делаем
begin
if (s.Name<>'..') or (s.Name<>'.')
then
begin
ShowMessage(s.Name);
AssignFile(T,pchar(DirectoryEditSource.LongName+'\'+s.Name));
//ассоциируем файл текстовиков
Reset(T);
while not Eof(t) do // пока читаем текст,
файла вносим в таблицу данные
begin
Readln(t,str);
ShowMessage(str);
end;
end;
end;
Dennis I. Komarov (2008-04-18 16:30:00) [21]
На вскидку - закрывать файл Пушки будет?
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
