grazie mille per l'aiuto che mi stai dando.. L'osservazione è corretta ma:
dove specifico i parametri della procedura mymethod???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;
Grazie mille.
mainetz.

Rispondi quotando