Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
ВнизСохранение в файл. Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.034 c