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]?

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

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