запись в файл

← →
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));
перед этим лучше записать длину строки

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

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