Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.26;
Скачать: CL | DM;

Вниз

Текстовый файл   Найти похожие ветки 

 
Skfi   (2002-08-14 08:06) [0]

Доброе время суток, Дамы и Господа. Вопрос в следующем, мне нужно добавить данные в текстовый файл и сохранить его. Следующая фишка не проходит.
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) [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
чем именно неподходит




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

Текущий архив: 2002.08.26;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
1-85071
SelfDestructor
2002-08-14 14:54
2002.08.26
XML Parser


1-85082
dim-
2002-08-14 17:29
2002.08.26
Компонент htmllite


3-84863
UnDISCOvery
2002-08-05 11:23
2002.08.26
Алоха ! ... Access. Функция


1-85100
MrAngel
2002-08-14 11:59
2002.08.26
Flat Scrolls ? С возможностью изменения всех цветов? Реально ли ?


7-85278
Burmistroff
2002-06-03 21:46
2002.08.26
Перевод структуры Си на Pas