помогите оптимизировать код

← →
нет (2006-01-21 12:05) [0]

имею код, который записывает string в tfilestream

var
s: string;
buf: char;
f: tfilestream;
i: integer;
begin
f:=tfilestream.create("...", fmCreate);
s:="...";
for i:=1 to length(s) do
begin
buf:=s[i];
f.WriteBuffer(buf, sizeof(buf));
end;
f.free;

делается это все через буфер в виде char, но по идее это все очень медленно, кто может помочь оптимизировать данный листинг?

← →
begin...end © (2006-01-21 12:33) [1]

var
S: string;
FS: TFileStream;
begin
FS := TFileStream.Create(...);
try
FS.WriteBuffer(S[1], Length(S))
finally
FS.Free
end
end

← →
нет (2006-01-21 13:19) [2]

благодарю за помощь

помогите оптимизировать код Найти похожие ветки