Текстовый файл [D6, Win95/98]
Skfi © (2002-08-14 08:06:00)
Доброе время суток, Дамы и Господа.Вопрос в следующем, мне
нужно добавить данные в текстовый файл и сохранить его. Следующая
фишка не проходит.
var
F: FileText;
begin
begin
{- I}
AssignFile(F, "c:\Archiv.log");
Reset(F);
seek(F, FileSize(F));
WriteLn("ddd");
CloseFile(F);
{+ I}
end;
Opuhshii (2002-08-14 08:26:00) [1]
var
F: TextFile;
begin
AssignFile(F, "c:\Archiv.log");
if exists("c:\Archiv.log") then begin
Append(F);
WriteLn("ddd");
CloseFile(F);
end;
end;
или
CreateFile/CloseHandle
или с VCL
TFileStream
чем именно неподходит
Наверх 
ЧАТ |
Орешник |
|
