Скачать: CL | DM;

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

← →
нет   (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]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c