Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Вниз

Помогите срочно!!   Найти похожие ветки 

← →
Stupid   (2002-03-27 09:25) [0]

Помогите мне нужна помощь, я выризаю одну часть из файла, но при этом наоборот в файл добавляется какая-то фигня. Вот текст программы:



function GetFileSize(const FileName: string): integer;
var
Stream: TFileStream;
begin
Stream := TFileStream.Create(FileName, fmShareDenyNone);
try
Result := Stream.Size;
finally
Stream.Free;
end;
end;

procedure tracert;
var f:file;
a,s:string;
i,c:integer;
begin
c:=GetFileSize("c:\tested\1.rtf");
assign(f,"c:\tested\1.rtf");
reset(f);
seek(f,c-10);
Truncate(f);
closefile(f)
end;


---

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

Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c