Текстовик и поиск

← →
zdm (2008-04-18 16:25) [0]

Мастера, помогите... не могу растормозиться.. смысл, в директории есть файлы, она вскрывается(директория) накохдится первый файл и далее... выдает ошибку на 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) [1]

На вскидку - закрывать файл Пушки будет?

← →
zdm77 (2008-04-18 16:31) [2]

да закроем канешь... говорюж пока ток на вскидку код... на Reset ошибка уже

← →
zdm77 (2008-04-18 16:32) [3]

при первом вхождении

← →
Ёжик (2008-04-18 16:32) [4]

procedure AssignFile(var F; FileName: string);
где ты нашел Pchar?

← →
Dennis I. Komarov © (2008-04-18 16:32) [5]

Ошибка секретная?

← →
Palladin © (2008-04-18 16:34) [6]

> if (s.Name<>"..") or (s.Name<>".") then

какое интересное условие :)

> AssignFile(T,pchar(DirectoryEditSource.LongName+"\"+s.Name));

PChar то на кой? ужос просто...

> FindFirst(pchar(DirectoryEditSource.LongName+"/*.*"),faAnyFile,
> S); //ищем первое вхождение

первое вхождение нашли и тут же!

> while FindNext(s)=0 do

его послали на хутор бабочек ловить

кошмар

фильтра на папки нет, открытый файл не закрывается... такое безудержное желание за метлой послать...

← →
zdm77 (2008-04-18 16:38) [7]

да пропуск типа если попал на папки ".." или "." первые вхождения в директории... а дальше что найдет то и читать.. результ функции финднекст возвращает ноль если нашел.

> Palladin © (18.04.08 16:34) [6]

Да скажи плиз попроще.. или прим код приведи..где глюк.. Спс заранее

← →
Palladin © (2008-04-18 16:40) [8]

какое именно слово непонятно?

← →
zdm77 (2008-04-18 16:40) [9]

if (s.Name<>"..") or (s.Name<>".") then
begin

почему када делаю дальше ShowMessage(s.Name); он мне показывает ".."?

← →
Palladin © (2008-04-18 16:41) [10]

что такое када?

← →
zdm77 (2008-04-18 16:42) [11]

> Palladin © (18.04.08 16:40) [8]

не могу растормозиться.. поправь плиз что не так в коде

← →
zdm77 (2008-04-18 16:42) [12]

када=когда

← →
Ёжик (2008-04-18 16:45) [13]

> if (s.Name<>"..") or (s.Name<>".") then
попробуй OR заменить на AND, хотя (как это отметил Palladin) это все лишнее ( не по существу)

← →
Palladin © (2008-04-18 16:46) [14]

начнем по порядку, голова есть? думаю есть... и хорошо есть... но она должна не только есть, но и думать... я так полагаю...

ты это условие как понимаешь?
if (s.Name<>"..") or (s.Name<>".")
переведи на понятный язык, то есть по русски его проговори

← →
zdm77 (2008-04-18 16:47) [15]

ну тогда напомните как задать параметр правильно для поиска НЕ ДИРЕКТОРИЙ.. и сам подумай.. причем сдесь условие И, если может или или быть

> Ёжик (18.04.08 16:45) [13]

да это как раз и основное, ему ".." попадается и он ее открывает как текстовый файл... молодец, что еще можно сказать...

← →
zdm77 (2008-04-18 16:49) [17]

финдферст делает всегда первое вхождение в директорию как .. и . т.е. вышестоящие директории. когда говорю
if (s.Name<>"..") or (s.Name<>".") then
begin
ShowMessage(s.Name);
.он первыми и выдает мне ..

> Dennis I. Komarov (18.04.2008 16:30:01) [1]

Файл Пушки?

> zdm77 (18.04.08 16:49) [17]

произнеси его (условие) словами и сюда напиши произношение

> Ёжик (18.04.2008 16:32:04) [4]

Ничего страшного, но не по нашенски, может он засланец?

> zdm77 (18.04.2008 16:42:12) [12]

А так ты слово знаешь, но намеренно применяешь дворовый сленг.

Текстовик и поиск Найти похожие ветки