Пока в ней не разобрался =)

нда... насчет интэжэра это й как-то упустил Ж). но минус вероятен Ж). все таки подсвечивать другим цветом логичнее, чем принимать без вариантов... а вдруг там полная отсебятина введена?.. Как то привык если уж решать проблему, то так, что б не возникало новых. Тебя просили ввести чесло? Так и введи число, а если ввел что-то левое, так удали и введи число! А не так вот по странному. Просили число ввел бред. Туда втесалась 1 цифра... ЗНАЧИТ ВВЕЛ ЧИСЛО. Просто нет слов Ж). Чес-слово подход оригинальный, но далеко не всегда приемлемый...

Плиз, хелпните мне!!! Мне нужно в роме изменить например цвет героя - я знаю, что он хранится по адресу 39F - и это 16, меняю её на 1A в хекс редакторе - и цвет поменялся...

Как всё это реализовать в делфи??? Как там записать в ром инфу, с помощью каких процедур, какой должен быть тип переменной и т.д. Можете просвятить, если не лень, буду очень признателен... Если можно сделайте исходничек маленький - а то я очень большой тугодум ;о) Это ведь дело 5 минут? П О М О Г И Т Е ! ! !

Я же говорил, что я болбес... Как всегда чего-то не получается... :*(

Создал новый проект, на форме расположил кнопку Button1 и OpenDialog1:

var
  Form1: TForm1;
  FileName :string;
  Color: Byte;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
f: File;
begin
if OpenDialog1.Execute then
   begin
AssignFile(F, FileName);
Reset(F,1);
Color:=10;
Seek(F, $87);
BlockWrite(F, Color, 1);
CloseFile(F);

  end;
end;
end.

При открытии рома процесс тормозится на Seek и пишет "Project raised exception class EInOutError with message 'I/O error 6'. Process stopped. Use Step or Run continue"

Если же пишу так:

procedure TForm1.Button1Click(Sender: TObject);
var
F: TFileStream;
begin
if OpenDialog1.Execute then
   begin
F := TFileStream.Create(FileName, fmOpenRead);
F.Position := $87;
Color:=10;
F.Write(Color, 1);
F.Free;

  end;
end;
end.

то тоже нифига не работает и пишет "Project raised exception class EInOutError with message 'Cannot open file'. Process stopped. Use Step or Run continue"

Где я ошибся - может где-то что-то не дописал? Хелп!

Ещё вот трабла - задал я переменную-массив:

byteArray : array[1..96] of byte;

И считываю из рома 96 символов начиная с 0090:

procedure TForm1.Button2Click(Sender: TObject);
var
F: File;
begin

if OpenDialog1.Execute then
   begin
AssignFile(F, OpenDialog1.FileName);

Reset(F,1);
Seek(F, $90);

BlockRead(F, byteArray, 96, count);

for i := 1 to count do begin
StringGrid1.Cells[c,v]:= IntToStr(byteArray[i]); - а тут я пытаюсь их вписать в StringGrid1, что-то не получается - IntToStr превращает данные типа 00 08 88 88 88  в  0 8 136 136 136 - я запутался, как происходит считывание по байтам? Это 2 символа получается? Т.е. что бы эти символы занести в StringGrid1 как 0 0 0 8 8 8 8 8 8 8 нужно каждый байт раскладывать на 2 числа? И как это сделать -  никто не знает? Мне нужно в StringGrid занести числа не длиннее 1 символа так, как они выглядят в хекс эдиторе... ХЕЛП!!!

Спасибо - так и сделал (правда пришлось написать самому функцию), работает - но вид данных в StringGrid у меня точно такой же - как в хекс эдиторе 00 08 88 1А 2В, теперь вот сижу и думаю, как сделать так, чтобы число "1А" записать так: "1" в первую ячейку, "А" во вторую и т.д..

Т.е. у меня есть переменая HexFromBin(byteArray[i]) - это число, состоящее из 2 знаков (00, 1А, 3В и т.д.) И теперь мне нужно сделать так, чтобы переменной "х" присваивался 1 знак этой переменной, а "у" - второй знак этой переменной...

Например HexFromBin(byteArray[i]) это 1А

х=1
у=А

Как это реализовать? Никто не знает?

Отредактировано guyver (2007-03-17 15:33:17)

Спасибо... Я уже "разобрался"... Такого я намутил с простой задачей - сделал 2 функции которые делят хекс число на 2 - левую и правую половину, а потом просто вставлял в стринггрид эти половины... Жуть... Вот что бывает, если программирования не было ни в школе, ни в универе... ;о)))

Всё что хотел - реализовал, сейчас мучаюсь с сохранением обратно в ром...

Значит так: у меня стринггрид и в каждой его ячейке по одному знаку (0..9,А,В,С,D,E,F) И информацию из него нужно в ром обратно записать, т.е. нужно создать массив в котором каждое его число будет состоять из двух чисел из соседних ячеек?

допустим у меня в стринггриде инфа такая:

0 0 1 3 4 А 3 В
4 5 2 С 4 5 2 6
3 6 7 3 С А В А

При сохранении в ром нужно создать массив saveArray : array[1..12] of byte, в котором все числа будут такие: 00 13 4А 3В 45 2С 45 26 36 73 СА ВА

И потом записать это в ром:

...
AssignFile(F, SaveDialog1.FileName);

Reset(F,1);
Seek(F, $87); //нужное место в роме
BlockWrite(F, saveArray, 1);
CloseFile(F);
end;
end;

Так вот - вся беда в том, что я не могу получить этот массив из стринггрида (не согласуются у меня byte и string) - помогите с этим для меня непростым делом, умоляю!!! Я вообще слабо представляю - если тип byte то вообще в каком виде информация пишется в ром? Совсем я запутался с переводом чисел из одной системы счисления в другую... К какому виду приводить числа перед их записью в ром???

Отредактировано guyver (2007-03-18 02:41:20)

Привет ещё раз, о крутые программеры!!! У меня опять вопрос - сделал я свою прогу, работает - косяков нет... Но в ней есть один БОЛЬШОЙ минус - скорость работы программы зависит от разрешения экрана... Например если у меня стоит разрешение 600*800, то прога просто летает - работает мгновенно! А если оно 1280*960, то прога жууууууууууутко тормозит - пока обновятся все картинки в стринггриде - проходит целая вечность... В связи с этим вопрос - а как ещё можно отображать картинки, в каком элементе? Как я понимаю у меня тормоза потому, что stringgrid ПОСТОЯННО обновляет картинки - т.е. даже если изменилась всего одна, то он их все обновляет... И вообще он это делает не только при загрузке картинок в ячейки, а постоянно... Как быть? Какой компонент использовать? Хелп!!!

Думаю, дело не в скорости отрисовки а в постоянной отрисовке как таковой =) Надо разобраться, почему постоянно генерируется, скажем, StringGridDrawCell и производить отрисовку только на OnCreate.
PS:Кстати, это ты про Wrecking Crew Editor?

Попробуй использовать DelphiX, а вместо Grid контролируй координаты.

Понятно что жесть - просто я с другими компонентами мало знаком, да и ещё хотелось сделать прогу на стандартных компонентах, чтобы ничего не устанавливать ;о)

Вот ещё вопрос:

В своей программе (сильно сказано!) я читаю ром так:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Result1: String;
S, Minus: integer;
F: File;
byteArray : array[1..2] of byte;
count  : Integer;
begin
Result1 := '' ; S:=0; Minus :=0;

// С помощью стандартного диалога получаем имя файла
if not OpenDialog1.Execute then
Exit; // Пользователь отказался выбрать файл
// Пытаемся открыть файл
AssignFile(F, OpenDialog1.FileName) ;
try
Reset(F,1) ;
except
// Файл нельзя открыть:
ShowMessage('Невозможно открыть файл ' + OpenDialog1.FileName) ;
Exit;
end;

Seek(F, S);
while not EOF(F)  do begin
BlockRead(F, byteArray, 1, count); //читаем файл по 1 символу

S:=S+1;//счётчик символов

if  GridOriginal.Cells[(LoNibble(byteArray[1]))+1,(HiNibble(byteArray[1]))+1] <> '' then
Result1 :=  Result1 + GridOriginal.Cells[(LoNibble(byteArray[1]))+1,(HiNibble(byteArray[1]))+1]; //если символ есть в таблице - добавляем его в результат

if  GridOriginal.Cells[(LoNibble(byteArray[1]))+1,(HiNibble(byteArray[1]))+1] <> '' then
Minus := Minus+1; //если символ есть в таблице - увеличиваем переменную Minus

if  (SpinEdit2.Value < Minus+1) and (GridOriginal.Cells[(loNibble(byteArray[1]))+1,(HiNibble(byteArray[1]))+1] = '') and (Result1 <> '') then
Original.Lines.Add (inttostr(S-Minus)+' '+Result1); // Печатаем результат если последовательность символов, которые есть в таблице, закончилась

if  GridOriginal.Cells[(LoNibble(byteArray[1]))+1,(HiNibble(byteArray[1]))+1] = '' then
Result1 := ''; //обнуляем результат если прочитанного символа нет в таблице
if  GridOriginal.Cells[(LoNibble(byteArray[1]))+1,(HiNibble(byteArray[1]))+1] = '' then
Minus := 0;

   end;
CloseFile(F); // Закрываем файл
end;

Вот такой ужасный код - вроде он работает ;о))) С Ромами весом до 1 Мб проблем нет - но вот если файл весит 30-40 Мб, то программа работает Очень медленно... Всвязи с этим вопрос - я читаю символ из файла, потом проверяю есть ли он в моей таблице перекодировки, если есть - добавляю его в результат, проверяю следующий символ... Если он есть в таблице - добавляю его в результат, если нет его в таблице - печатаю результат, обнуляю результат и перехожу к следующему символу... А если я сначала открою весь файл, а потом уже буду выполнять операции над символами - будет ли от этого выигрыш во времени? Вообще как оптимизировать этот процесс? Как сделать его быстрее?