Вот структура.
Код:
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