|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Чтение данных в таблицу
Привет народ! Есть проблем-ка... Надо считать данные в таблицу из набора двоичных файлов....уже парюсь над этим неделю...Заранее спасибо q=)
|
#2
|
||||
|
||||
Блин, ну неужели так трудно описать все подробно?
Какая структура файлов? Что именно надо взять? Какая таблица? Из БД или обычный StringGrid? Пример таких данных где? Ваш код где? Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
Вот структура.
Код:
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; На Reset все стопорится и выдается сообщение File not found Последний раз редактировалось Admin, 13.02.2010 в 14:01. |
#4
|
||||
|
||||
GetNextFileName коректно возращает имя файла???
может попробуй : TFileListBox!? Последний раз редактировалось movnet, 13.02.2010 в 17:25. |