Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;



Eug201   (2002-03-27 09:40) [1]

Описание процедуры Reset (См. Help)

procedure Reset(var F [: File; RecSize: Word ] );

Размер записи по умолчанию состовляет 128 байт! А тебе нужен 1! Используй Reset(File,1)

Кстати, в 6 Delphi есть функция FileSize.



Alx2   (2002-03-27 09:41) [2]

Попробуй так: (правда, не проверял)
begin
assign(f,"c:\tested\1.rtf");
reset(f,1);
c:=FileSize(f);
seek(f,c-10);
Truncate(f);
closefile(f)
end;



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;



Adder   (2002-03-27 09:46) [4]

Синхронное плавание :))))))




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




Наверх





Память: 0.72 MB
Время: 0.025 c
3-22518           Dima Kopachev         2002-03-11 20:12  2002.04.08  
Непосредственный ввод значения в DBLookupComboBox


1-22702           Di                    2002-03-26 16:24  2002.04.08  
Как определить, насколько (в пикселях) прокручен TreeView своей полосой прокрутки?


1-22737           snoup                 2002-03-26 13:45  2002.04.08  
Как сделать например мне нужно что бы я пороботал в программе изменил там что то


3-22597           Shurasik              2002-03-18 13:42  2002.04.08  
Не могу найти событие для DBGrid...


1-22632           VictorT               2002-03-27 14:01  2002.04.08  
Кол-во строк в текстовом файле