TNotifyEvent mit String Parameter ?

[madbrain]

Moin, habe folgendes Problem:
Ich möchte einer Prozedur eine andere Prozedur zuweisen, so wie das bei

Code:

Application.OnHint := Form1.Test;

auch gut funktioniert.

Nur sieht meine Test Prozedur anders aus. Sie hat genau einen String Parameter.

Code:

procedure test(name : string);

Wenn ich diese Prozedur einer anderen zuweisen will, wie muss ich die andere dann deklarieren?
Mit TNotifyEvent funzt das nicht, weil die nur Sender als Parameter hat.

Danke im Voraus

[Illuminator-23-5]

welchen parameter erwartest du?
Wenn du den Namen als komponente willst, kannst du folgendes Schreiben:

Delphi-Quellcode:

procedure Form1.Test(Sender: TObject);
var
  name: string;
begin
  name := (Sender as TComponent).Name;
  ...
end;

[madbrain]

es gibt keine komponente!
die prozedur ist nicht einmal eine Methode von TForm1

sie sieht so aus:

Code:

procedure test(name : string);
begin
 bla
 bla
end;

deklariert unter einem anderen Object Typ als public.

und dazu brauch ich eine methode der man test() zuweisen kann:

Code:

procedure zuweisen(name : String) //weiss nicht wie ich sie deklarieren muss...
begin
...
end;

und dann das zuweisen:

Code:

zuweisen() := test();

also wenn ich abc('12345') aufrufe, soll test('1234') ausgeführt werden.

[Christian Seehase]

Moin Madbrain,

wenn ich Dich richtig verstanden habe, könntest Du es so machen:

Delphi-Quellcode:

type 
  TcsMyProc = procedure(AsStringParameter : string);

implementation

{$R *.DFM}

procedure TEST(AsStringParameter : string);
begin
  ShowMessage(AsStringParameter);
end;

procedure TForm1.Button1Click(Sender: TObject);

var
  MyProc : TcsMyProc;

begin
  MyProc := TEST;
  MyProc('HALLO');
end;

[madbrain]

Ich kanns hier grad nicht ausprobieren, aber das sieht gut aus! Ich denke das ist die Lösung!

Danke!!!