Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.02;
Скачать: CL | DM;

Вниз

Как заменить байт???   Найти похожие ветки 

 
cULt   (2004-03-11 18:14) [0]

Срочно нужна помощь! Кто-нибудь могет подсказать, как из Дельфей заменить в определённом файле значение, к примеру, предпоследнего байта, ну или там второго, неважно? Если да - скиньте ответ на мыло. Заранее sanx за помощь :)


 
Алхимик ©   (2004-03-11 18:21) [1]

Открыть нужный файл.
Определить размер.
Перейти на предпоследнюю позицию.
Записать нужное значение.
Закрыть файл.
Радоваться.


 
ssk   (2004-03-11 19:02) [2]

примерно так:

const
 a:=1; // нужный байт

var
 f: file of byte;

begin
 AssignFile(f, "filename.ext");
 Reset(f);
 Seek(f, $9D5F5); //$9D5F5 - здесь нужная позиция
 Write(f, a);
 CloseFile(f);
end;


 
cULt   (2004-03-12 14:45) [3]

Большое пасиба!!!


 
cULt   (2004-03-14 14:00) [4]

Если кому ещё интересно, то точнее энто выглядит так:


var
f: file of byte;
c: byte;
begin
c:=158; // 158 - код символа для замены //
AssignFile(f, $filename);
Reset(f);
Seek(f, 74); // 74 - нужная позиция //
Write(f, c);
CloseFile(f);
end;


 
cULt   (2004-03-14 14:02) [5]

Если кому ещё интересно, то точнее энто выглядит так:


var
f: file of byte;
c: byte;
begin
c:=158; // 158 - код символа для замены //
AssignFile(f, $filename);
Reset(f);
Seek(f, 74); // 74 - нужная позиция //
Write(f, c);
CloseFile(f);
end;


 
SPeller ©   (2004-03-14 15:46) [6]

Произведение искусства просто :)



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

Текущий архив: 2004.05.02;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.053 c
6-1078530063
teapot
2004-03-06 02:41
2004.05.02
как перенаправлять сетевой трафик на Делфи?


14-1081487155
Dmitriy O.
2004-04-09 09:05
2004.05.02
Люди кто нить делал в Дельфях расчет корреляции ?


1-1081878711
wall7
2004-04-13 21:51
2004.05.02
ActionList и MessageBox


1-1082222525
SergP
2004-04-17 21:22
2004.05.02
Помогите все-таки с распаковкой сжатой строки!!!!!


1-1082202234
Mishenka
2004-04-17 15:43
2004.05.02
Не выводится TPrintDialog.