PDA

Показать полную графическую версию : связь с физическим файлом...


bomberman
23-02-2010, 11:53
Сколько дней уже мучаюсь.
Подскажите как работать с типом record и с файлом, т.е записать в файл данные используя тип record. И с каким расширением должен быть этот файл.

grafmoto
23-02-2010, 13:17
procedure TForm1.FormCreate(Sender: TObject);
type
TestRec = record
id: Integer;
text: String[32];
end;
var
h: THandle;
dummy: Cardinal;
buf: TestRec;
begin
buf.id:=1;
buf.text:='hello';
h:=CreateFile('c:\Downloads\test.txt', GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0);
WriteFile(h, buf, SizeOf(TestRec), dummy, nil);
CloseHandle(h);
end;

pva
23-02-2010, 20:00
файл может быть с любым расширением. Но желательно чтобы не совпадал с "зарегистрированными программами". Обычно используют dat или bin чтобы показать что файл двочиный. Для записи в файл пойдёт всё, что может писать двоичные файлы: AssignFile+Write, CreateFile+WriteFile, object TDiskFile и т.д., на любой вкус есть. Если требуется записать в виде текста, надо перебирать члены record и поочерёдно писать в текстовый файл




© OSzone.net 2001-2012