| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

нет ©   (2006-01-21 12:05:00) 

имею код, который записывает 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, но по идее это все очень медленно, кто может помочь оптимизировать данный листинг?

---

нет   (2006-01-21 13:19:00) [1]

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

---

begin...end   (2006-01-21 12:33:00) [2]

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

---

Наверх