Подскажите пожалуйста, как каждому объекту класса из списка назначить свою процедуру

[leonar]

как каждому объекту класса в списке назначить свою процедуру при заполнении списка объектами, со свойствами я разобрался, а вот с методами не допер пока.
Допустим вот кусок кода. как для каждого элемента списка определить свою функцию(где прописать, что для такого то элемента списка такая вот процедура), допустим есть процедуры MOV A,A, MOV A,B, ну и так далее. нужно обязательно, чтоб был список всех этих обьектов(по сути говоря команд), чтоб потом можно было цикл организовать и при совпадении введенного FCode, с значением из списка, можно было вызвать процедуру ему соответствующую, только вот где обозначить ее

TComand = class
    private
      FMnemoCode:string;
      FCode:string;
      FRowCount:integer;
    public
      constructor Create(AMnemoCode: String; ACode: string; ARowCount: integer);
 
      property MnemoCode: string read FMnemoCode write FMnemoCode;
      property Code: string read FCode write FCode;
      property RowCount: integer read FRowCount write FRowCount;
      procedure MOV(Aname,Bname:string);//на счет этого не уверен
  end;
implementation
 
constructor TComand.Create(AMnemoCode: String; ACode: string; ARowCount: integer);
begin
 
  FMnemoCode:=AMnemoCode;
  FCode:=ACode;
  FRowCount:=ARowCount;
end;

procedure ListOfComand;
var List: TObjectList;
    i: Integer;
begin
  List := TObjectList.Create;
  List.Add(TComand.Create('MOV A,A', '7F', 1));
  List.Add(TComand.Create('MOV A,B', '78', 1));
  List.Add(TComand.Create('MOV A,C', '79', 1));

[evg_m]

ВОЗМОЖНО (но совсем в этом не уверен) вам нужен(пригодится) процедурный тип переменных.
https://www.programmersforum.ru/showthread.php?t=330628
и разные виды описания таких типов
https://www.programmersforum.ru/show...hlight=regular
т.е. то же свойство (с которыми вы разобрались) вполне определенного типа(нового для вас).

В большинстве случаем разные действия в классах задаются с помощью виртуальных(virtual) функций базового класса и их переопределением(override) в наследниках.

Tcomand =class 
procedure Action; virtual; abstract;
end;

TcomandMove =class(Tcomand)
procedure Action; override;
procedure Move; virtual;
end;

TComandAA =class(TComandMove)
procedure Move; override;
end;

list.Add(TcomandAA.Create);
list.add(TcomandAB.Create);
...

[Pavia]

Используйте процедурный тип
http://docwiki.embarcadero.com/RADSt..._Types_(Delphi)
Типо вот так

Type 
  TDecodeFunc=  procedure () of object;

TComand = class
    private
      FMnemoCode:string;
      FCode:string;
      FRowCount:integer;
      FOnDecode :TDecodeFunc;
      procedure Decode_MOV_R_R;
      procedure Decode_MOV_Mod_R;
    public
      constructor Create(AMnemoCode: String; ACode: string; ARowCount: integer);
      property MnemoCode: string read FMnemoCode write FMnemoCode;
      property Code: string read FCode write FCode;
      property RowCount: integer read FRowCount write FRowCount;
      property Decode:TDecodeFunc read FOnDecode write FOnDecode ;
  end;

constructor TComand.Create(AMnemoCode: String; ACode: string; ARowCount: integer);
begin
 
  FMnemoCode:=AMnemoCode;
  FCode:=ACode;
  FRowCount:=ARowCount;
  if  POS('[', AMnecode)<>0 then  
      Decode:=@Decode_MOV_Mod_R // Присваиваем адрес процедуры
     else
      Decode:=Decode_MOV_R_R; // Можно и без @ если нет скобок, то присвиеватся адрес иначе результат функции.
end;

Кстати что пишете ассемблер, дизассемблер, эмулятор, свой вариант?

[leonar]

эмулятор

[Pavia]

Лично я свой по прицепу Bochs делал один case на декодирование, один на выполнение и штук 200 констант. Застрял на отладки примитивные вещи делает, а вот на чтение с дискеты спотыкается.

//Декодирование
procedure DecodeOne_386(Buf16:PAByte);
var seg:Byte;
 a:PAByte;
 v:Integer;
begin
cLen:=0;
cLen:=GetPrefix(Buf16);

case PrefixSeg of
 0:   seg:=3; //DS
 $26: seg:=0; //ES
 $2E: seg:=1; //CS
 $36: seg:=2; //SS
 $3E: seg:=3; //DS
 $64: seg:=4; //FS
 $65: seg:=5; //GS
 end;
if OperandSize16 then v:=1 else v:=2;

a:=@buf16[cLen];
case a[0] of
//ADD
  $00..$03:
      begin
      if a[0] and 1=0 then  Comand:=cAdd_8 else Comand:=cAdd_16;
      Inc(cLen,1);
      Op1:=Mod_rm_Decode(cLen,a,seg,a[0] and 1);
      if a[0] and 1=0 then
          Op2:=GetRegOperand(a[1],0)
        else
          Op2:=GetRegOperand(a[1], v);
      if a[0] and 2<>0 then
         begin
         OpR:=Op2;
         Op2:=Op1;
         Op1:=OpR;
         end else
         begin
         OpR:=Op1;
         end;
      end;
  $04:begin
      Inc(cLen,2);
      Comand:=cAdd_8;
      Op1:=GetRegOperand(0 shl 3,0);
      Op2.top:=topImm8;
      Op2.value.b0:=a[1];
      OpR:=Op1;
      end;
  $05:begin
      if OperandSize16 then
         begin
         Inc(cLen,3);
         Comand:=cAdd_16;
         Op1:=GetRegOperand(0 shl 3,1);
         Op2.top:=topImm16;
         Op2.value.w0:=a[2] shl 8 + a[1];
         OpR:=Op1;
         end else
         begin
         Inc(cLen,5);
         Comand:=cAdd_32;
         Op1:=GetRegOperand(0 shl 3,2);
         Op2.top:=topImm32;
         Op2.value.d0:=a[4] shl 24 + a[3] shl 16 + a[2] shl 8 + a[1];
         OpR:=Op1;
         end;
      end;
  $06:
      begin
      Inc(cLen);
      Comand:=cPush_16;
      Op1:=GetRegOperand(a[0] ,5);
      end;
  $07:
      begin
      Inc(cLen);
      Comand:=cPOP_16;
      Op1:=GetRegOperand(a[0] ,5);
      OpR:=Op1;
      end;
//OR
  $08..$0B:
      begin
      if a[0] and 1=0 then  Comand:=cOr_8 else Comand:=cOr_16;
      Inc(cLen,1);
      Op1:=Mod_rm_Decode(cLen,a,seg,a[0] and 1);
      if a[0] and 1=0 then
          Op2:=GetRegOperand(a[1],0)
        else
          Op2:=GetRegOperand(a[1], v);
      if a[0] and 2<>0 then
         begin
         OpR:=Op2;
         Op2:=Op1;
         Op1:=OpR;
         end
         else OpR:=Op1;
      end;
...
end;

// Выполнение
procedure RunOne;
var t:UInt64;
begin
if Not(
     ((PrefixRep<>0) and (OperandSize16) and(recDWord(NewRegs._ECX).W0=0))
  or ((PrefixRep<>0) and not(OperandSize16) and(recDWord(NewRegs._ECX).d0=0))
  ) then
Case Comand of
 cCALL_Near_16:CALLNear16(op1.value.w0, cLen);
 cCALL_Far_16:CALLFar16(op1.value.w0,op2.value.w0, cLen);
 cJMP_Near_16:JmpNear16(op1.value.w0);
 cJmp_NearIndirect_16:JmpNearIndirect16(op1.value.w0);
 cJmp_NearIndirect_32:JmpNearIndirect32(op1.value.d0);
 cJcc_Near_16:JccNear16(op1.value.w0,op1.addr, Op2.value.b0);
 cJcc_Near_32:JccNear32(op1.value.d0,op1.addr, Op2.value.b0);
 cJMP_Far_16:JmpFar16(op1.value.w0,op2.value.w0);
 cCLC:CLC;
 cCMC:CMC;
 cSTC:STC;
 cCLD:CLD;
 cSTD:STD;
 cCLI:CLI;
 cSTI:STI;
 cMOV_8:begin
         OpR.value.b0:=Mov8(Op1.value.b0);
         OpResult(OpR);
         end;
 cMOV_16:begin
         OpR.value.w0:=Mov16(Op1.value.w0);
         OpResult(OpR);
         end;
 cMOV_32:begin
         OpR.value.d0:=Mov32(Op1.value.d0);
         OpResult(OpR);
         end;
 cXCHG_8:begin
         Xchg8(Op1.value.b0,Op2.value.b0);
         OpResult(Op1);
         OpResult(Op2);
         end;
...
end;

const
 c_VirtualNop=$FFFF;
 cJMP_Near_16=0;
 cJMP_Far_16=1;
 cCLC=2;
 cCMC=3;
 cSTC=4;
 cCLD=5;
 cSTD=6;
 cCLI=7;
 cSTI=8;
 cMOV_8=9;
 cMOV_16=10;
 cMOV_32=11;
 cXCHG_8=12;
 cXCHG_16=13;
 cXCHG_32=14;
 cUD_8=15;
 cUD_16=16;
 cUD_32=17;
 ...

[leonar]

а что вот это означает, т.е. вот: POS('[', AMnecode)

if POS('[', AMnecode)<>0 then
Decode:=@Decode_MOV_Mod_R // Присваиваем адрес процедуры
else
Decode:=Decode_MOV_R_R; // Можно и без @ если нет скобок, то присвиеватся адрес иначе результат функции.
end;

[Pavia]

Сообщение от leonar

а что вот это означает, т.е. вот: POS('[', AMnecode)

Это Я просто для примера. Очевидно что 'MOV A,B' и 'MOV B,A' это одна функция, а 'MOV [A],B' и 'MOV A,[B]' другая.
Мнемоника [] означает чтение переменной с адреса.

Но Вы можете придумать и написать свои условия по которым присвоить разные функции.

[leonar]

Pavia, А вот параметры для этих функций значит тут же в свойствах класса прописывать, я имею ввиду все регистры, признаки и т.д.

[Pavia]

Сообщение от leonar

А вот параметры для этих функций значит тут же в свойствах класса прописывать, я имею ввиду все регистры, признаки и т.д.

Не обязательно, это больше вопрос вкуса. Если параметры однородны, тобишь одинаковые для всех мнемоник то можно сделать так

  TDecodeFunc=  procedure (var operend1, operend2:TOperend) of object;

  FOnDecode :TDecodeFunc;
      procedure Decode_MOV_R_R(var operend1, operend2:TOperend);
      procedure Decode_MOV_Mod_R(var operend1, operend2:TOperend);

А вот если они разнородные, то проще оформить параметры полями класса.

[leonar]

Как вызвать в другом юните уже созданный экземпляр, и получить доступ к его полям.(Юниты связаны) Вот код Юнита, где создан класс. При таких действиях вылезает Error, но он и должен вылезать,т.к. я делаю неверно.Подскажите, как правильно.

procedure TRegister.CreateReg;
begin
regA:=Tregister.create;
end;

procedure TRegister.AddReg;
begin
regA.Rname:='A';
regA.value:='00';
regA.AIndex:=0;
end;

procedure TRegister.DelReg;
begin
regA.Free;
end;

Вот юнит с формой

procedure TEm.BitBtn1Click(Sender: TObject);
begin
TRegister.Addreg;
label1.Caption:=regA.RName;
end;

procedure TEm.FormCreate(Sender: TObject);
begin
Tregister.CreateReg;
end;

procedure TEm.FormDestroy(Sender: TObject);
begin
Tregister.delReg;
end.

Вот создание класса;

TRegister = class(TProcessor)
  protected
  fvalue:string;
  fRName:string;
  fIndex:integer;
  //procedure SetRegister( Value:string);
  //function GetRegister:string;
  public
  property value:string read fvalue write fvalue;
  property RName:string read fRName write fRName;
  property AIndex:integer read fIndex write fIndex;
  procedure CreateReg;
  procedure AddReg();
  procedure DelReg();
  end;