Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
ВнизПомогите срочно!! Найти похожие ветки
← →
Adder (2002-03-27 09:45) [3]Будьте проще :)
procedure tracert;
var f:file;
c:integer;
begin
assign(f,"c:\tested\1.rtf");
reset(f,1);
c:=FileSize(f);
//здесь не помешает проверить (С-10) > 0 :)
seek(f,c-10);
Truncate(f);
closefile(f)
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c