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

seek filesize   Найти похожие ветки 

← →
WhiteGuy ©   (2005-02-25 12:45) [0]

Несовместимость с 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;

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

---

← →
ECM ©   (2005-02-25 13:24) [1]

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

---

← →
dimaxx ©   (2005-02-25 21:25) [2]

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

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

---

← →
dimaxx ©   (2005-02-25 21:26) [3]

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

---

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

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



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