[Lens]

Привет народ! Есть проблем-ка... Надо считать данные в таблицу из набора двоичных файлов....уже парюсь над этим неделю...Заранее спасибо q=)

[Страдалецъ]

Блин, ну неужели так трудно описать все подробно?
Какая структура файлов?
Что именно надо взять?
Какая таблица? Из БД или обычный StringGrid?
Пример таких данных где?
Ваш код где?

[Lens]

Вот структура.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

type uchastniki=record   family:string[30];   name:string[30];   otchesvo:string[30];   uchregdenie:string[25];   Эти данные надо занести из 2-3 файлов в таблицу БД  Access подключенную по технологии ADO   function GetNextFileName(Path: string): string; const   ListFileName = 'ListFile.lst';   FileMask = '*.*';   var   SearchRec: TSearchRec; begin   with TStringList.Create do   begin     if FileExists(ListFileName) then     begin       LoadFromFile(ListFileName);     end;     if FindFirst(IncludeTrailingBackslash(Path) + FileMask,       faAnyFile and not faDirectory,       SearchRec) = 0 then     begin        repeat         Result := SearchRec.Name;         if (FindNext(SearchRec) <> 0) then         begin           Clear;         end;       until (IndexOf(Result) = -1);       Add(Result);       FindClose(SearchRec);     end     else     begin       Result := '';     end;     SaveToFile(ListFileName);     Free;   end; end;   var f:file of uchastniki; begin Assignfile(f,GetNextFileName('D:\Documents and Settings\Admin\Мои документы\)); reset(f); while not eof(f)do begin read(f,buf); adotable1.Insert; adotable1.Fields[1].asstring:=buf.family; adotable1.Fields[2].asstring:=buf.name; adotable1.Fields[3].asstring:=buf.otchesvo; adotable1.Fields[4].AsString:=buf.uchregdenie; adotable1.Post; end; closefile(f); end;

Admin: Пользуемся тегами!

На Reset все стопорится и выдается сообщение File not found

[movnet]

GetNextFileName коректно возращает имя файла???

может попробуй : TFileListBox!?