Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];

Вниз

запись в файл   Найти похожие ветки 

← →
baracuda   (2003-05-28 15:06) [0]

Добрый день. Помогите решить проблему записи в конец файла из переменной s1 типа string;
Пишет независимо от значения переменной 3 символа
что нужно поправить?
Заранее благодарен.

stream1:=TFilestream.Create(name_file,fmOpenWrite);
stream1.seek(0,sofromend);
stream1.writebuffer(s1,sizeof(s1));
FlushFileBuffers(stream1.Handle);
stream1.Free;

---

← →
Skier   (2003-05-28 15:08) [1]

Посказка : sizeof(s1)) = 4 байта

---

← →
MBo   (2003-05-28 15:08) [2]

stream1.writebuffer(s1[1],Length(s1));
перед этим лучше записать длину строки

---

← →
Александр из Минска   (2003-05-28 15:10) [3]

Если всю переменную, то:
var
f : TextFile;
begin
AssignFile(f, "1.txt");
Append(f); //Открывает файл 1.тхт для записи в конец файла...
WriteLn(f, s1);
CloseFile(f);
end;

---

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

Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c