Скачать: CL | DM;

Сохранение в файл.   Найти похожие ветки 

← →
Norfolk ©   (2004-03-06 13:37) [0]

Доброго времени суток,
procedure SaveBase(Base: TBaseRec);
var
 FileHandle: integer;
begin
 FileHandle := FileOpen(FileName, fmOpenReadWrite);
 FileSeek(FileHandle, SizeOf(Base),2);
 FileWrite(FileHandle, Base, SizeOf(Base));
 FileClose(FileHandle);
 ShowMessage(FileName);
end;
Где здесь ошибка? Немного поясню:
-Перед вызовом этой процедуры файл создаётся как FileName
-Но в сам файл не записывается не единой строки (остаётся пустым)
-Проверял на ошибки ввода вывода (IOResult) - их нет.
Заранее спасибо.

---

← →
Anatoly Podgoretsky ©   (2004-03-06 13:49) [1]

А где здесь строки?

---

← →
Digitman ©   (2004-03-06 13:51) [2]

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

если нужно дозаписать структуру в конец файла, то делай так :

procedure SaveBase(Base: TBaseRec);
var
FileStream: TFileStream;
begin
FileStream := TFileStream.Create(FileName, fmOpenReadWrite);
with FileStream do
try
  Position := Size;
  WriteBuffer(Base, SizeOf(Base));
  ShowMessage(FileName);
finally
 Free;
end;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.037 c