Stealth Client Forum

Code: Select all

program ProceduresTest;

var
 ArrayOfProc : Array of String;
 i : Integer;
 
procedure One;
begin;
end;

procedure Two;
begin
end;

procedure Three;
begin
end;


procedure CallProcedures(ProcName : String);
begin
 case ProcName of 
  'One' : One;
  'Two' : Two;
  'Three' : Three;
 end;
end;

begin
 ArrayOfProc := ['One', 'Two', 'Three'];
 
 for i := 0 to Length(ArrayOfProc)-1 do
  CallProcedures(ArrayOfProc[i]);
end.

Code: Select all

program TestProcedures;

type
 TArgs = record
  fWord : Word;
  fWords : Array of Word;
  fCardinal : Cardinal;
  fCardinals : Array of Cardinals;
  fString : String;
  fStrings : Array of String;
 end;

type
 TMyProc = record
  ProcName : String;
  ProcArgs : TArgs;
 end;
 
 var
  MyProcs : Array of TMyProc; 
  i : Integer;
 
 procedure One(Args : TArgs);
 begin
 end;
 
 procedure Two(Args : TArgs);
 begin
 end;
 
 
procedure CallProc(Proc: TMyProc);
begin
 case Proc.Name of
  'One' :
   begin
    MyProc.ProcName := 'One';
	MyProc.ProcArgs.fWord := $1111;
	MyProc.ProcArgs.fCardinals := [$0000000, $0000001, $000000002];
	
	One(MyProc.Args);
   end;
  'Two' :
   begin
    MyProc.ProcName := 'Two';
	MyProc.ProcArgs.fWord := $1222;
	MyProc.ProcArgs.fStrings := ['Stealth', 'Client', 'is', 'the Best'];
	
	Two(MyProc.Args);
   end;
end;

procedure AddProc(Name : String);
begin
 SetLength(MyProcs, Length(MyProcs)+1);
 MyProcs[High(MyProcs)].ProcName := Name;
end;


begin
 AddProc('One');
 AddProc('Two');
 

 for i := 0 to Length(MyProcs)-1 do
  CallProc(MyProcs[i]);
end.

Code: Select all

procedure Traveler(Destination : String);
begin
 case Destination of
  'Arenas' : MoveTo(3638, 1298, 6); 
  'Dressing Square' : 
   begin
    MoveTo(3772, 1273, 0);
    NewMoveXY(3651, 1299, true, 0, true); 
   end;
  'Quatro Arena' : MoveTo(3726, 1367, 4);
 end;
end;

Code: Select all

type
  TGumpNumElement = (gne_noclose,
                     gne_nodispose,
                     gne_nomove,
                     gne_noresize,
                     gne_group,
.....
);

    case TGumpNumElement(GetEnumValue(TypeInfo(TGumpNumElement), 'gne_'
                                      +LowerCase(CommandName))) of
      gne_noclose   : fNoClose := true;
      gne_nodispose : fNoDispose := true;