grazie mille per l'aiuto che mi stai dando.. L'osservazione è corretta ma:
codice:
procedure TFrmSino.Dettaglio1Click(Sender: TObject);
var
AClass : TPersistentClass;
obj: TComponent;
Routine: TMethod;
Exec: TExec;
mymethod: procedure(var1:string; var2: string; var3: string; bol1: Boolean);
begin
try
AClass := GetClass('TFrmTDocumenti');
if aclass <> nil then begin
obj := TComponentClass(AClass).Create(Self) as THForm;
Routine.Data := Pointer(obj);
mymethod := obj.MethodAddress('extsetdet');
Routine.Code := Pointer(mymethod); //dove però passo i parametri della mymethod???
if NOT Assigned(Routine.Code) then Exit;
Exec := TExec(Routine); //forse dovrei specificarli qui???
Exec;
end;
except
;
end;
end;
dove specifico i parametri della procedura mymethod???
Grazie mille.
mainetz.