| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как заменить байт??? [D6, Win95/98, WinME, Win2k, WinXP]

cULt ©   (2004-03-11 18:14:00) 

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

---

SPeller   (2004-03-14 15:46:00) [1]

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

---

cULt   (2004-03-14 14:02:00) [2]

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


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:00:00) [3]

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


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-12 14:45:00) [4]

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

---

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

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

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;

---

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

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

---

Наверх