Урезание файла

[Dax]

Вообщем мне нужно урезать файл от оффсета(Смотреть если в HEX-редакторе) 0456789 и до конца,можете кинуть функцию как это сделать?ОпенДиалог и Сейв есть,единственная трабла вот с этим

[Сильванович Михаил]

сор.. глюк.. удалите плз

[Сильванович Михаил]

var
 f,f2: TFileStream;
 buffer: array of Char;
begin
 setLength(buffer,4548489);
//так делать не советую, ибо памяти у нас может нехватить...
//лучше брать буфер постоянного обьема...
 f:=TFileStream.Create('1.txt',fmOpenRead);
 f2:=TFileStream.Create('2.txt',fmOpenWrite or fmCreate);
 f.Read(buffer,sizeof(buffer));
 f2.Write(buffer,sizeof(buffer));
 f.Free;
 f2.Free;
 CopyFile('2.txt','1.txt',false);
 DeleteFile('2.txt');
end;

[rpy3uH]

или API
CreateFile
SetFilePointer
SetEndOfFile
CloseHandle