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

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

seek filesize [Delphi, Windows]

WhiteGuy ©   (2005-02-25 12:45:00) 

Несовместимость с filesize

ДОбрый день! Я "портирую" :) свой резак из VCL в KOL. И при создании ф-ции склеивания файлов компилятор выдает ошибку... В Общем, я привожу кусок кода - там всё написано!

var FromF, ToF: file;
   NumRead, NumWritten: Integer;
   Buf: array[1..3072] of Char;
   i:integer;
begin
try
AssignFile(Tof,form3.edit1.text); //назначить выбранный конечный файл
rewrite(Tof,1);
for i:=0 to form3.listbox1.Count-1 do begin
assignFile(fromF,form3.Listbox1.Items[i]);
reset(Fromf,1);
     repeat
       BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
       BlockWrite(ToF, Buf, NumRead, NumWritten);
     until (NumRead = 0) or (NumWritten NumRead);
       CloseFile(FromF);
       seek(tof, filesize(Tof)); //Вот тут то и ошибка - пишет, что incompatible types - string & file!!
end;
CloseFile(ToF);
end;
end;

помогите плиз!

---

dimaxx   (2005-02-25 21:26:00) [1]

Пардон, с тегами наврал.

---

dimaxx   (2005-02-25 21:25:00) [2]

Я не понял смысла строки [b]seek(tof, filesize(Tof))[/b] - нафига она вообще нужна, если сразу после нее закрывается файл?

И еще непонятно: зачем использовать [b]try[/b] без [b]finally[/b] или [b]except[/b]?

---

ECM   (2005-02-25 13:24:00) [3]

В КОЛ функция FileSize переопределенa.
Если нужна стандартная функция, ее можно вызвать сл. образом:
 seek(tof, System.filesize(Tof));

---

Наверх