procedure in procedure aufrufen

[BastardOp]

Hallo

also ich habe folgendes Problem: und zwar will ich wenn ich eine gewisse procedure in meinem Programm aufrufe zusätzlich noch eine 2. bereits exitirernde procedure aufrufen.
ich habe bereits mit

meineprocedure(Sender);

versucht aber da kam immer das dies nur mit klassenmethoden möglich ist. Da ich aber öfter procedure in anderen aufrufen will müsste ich um alles in Klassen umzuformen einen nicht zu kleine Teil meines code neu schreiben.

Gibt es da noch andere möglichkeiten eine Procedure in einer andren aufzurufen?


Ich hab diese Frage auch im Delphi-Forum gestellt mal sehen wer schneller antwortet^^

MfG
BastardOp

[SirThornberry]

poste mal die funktion die du aufrufen willst. Laut Fehlermeldung vermute ich mal dasu du folgende situtation hast

Delphi-Quellcode:

  TYourclass = class(Irgendwas)
  public
    procedure DoIrgendwas(Sender: TObject);
  end;

und dann versuchst du

Delphi-Quellcode:

TYourclass.DoIrgendwas(Sender);

da aber DoIrgenwas keine Class-Procedure ist müsstest du

Delphi-Quellcode:

YourClassInstance.DoIrgendwas(Sender);

aufrufen. Wenn die Funktion jedoch nix mit der Klasse zu tun hat kannst du daraus auch eine class-funktion machen

Delphi-Quellcode:

  TYourclass = class(Irgendwas)
  public
    class procedure DoIrgendwas(Sender: TObject);
  end;

[BastardOp]

also einfach ober bei allen procedure die ich in anderen proceduren aufrufen möchte class vor. Wenn ich die Procdeure nun einzaln aufrufen will muss ich da auch noch was vorschreiben?

[SirThornberry]

wenn du class davor schreist kannst du aber in keiner der Proceduren mehr auf Klassenvariablen zugreifen da es ja keine Instanz gibt... Deswegen hatte ich auch gebeten das du postest wie du die funktion aufrufst und wo die funktion liegt (ob in einer klasse etc.) und eventuell auch noch die funktion die du aufrufst.

[Edit] schau am besten mal in der Hilfe unter Class methods[/Edit]

[BastardOp]

Hi

so wie gesagt hab ja schon im Delphi-Forum gefragt und hab dort eine lösung für das prob bekommen


trotzdem thy für deine bemühung

[SirThornberry]

könntest du eventuell den Link zu der Lösung posten?

[BastardOp]

http://www.delphi-forum.de/topic_pro...fen_43514.html


hier stehts

plz

[Sharky]

Ist "Test2" ein Button oder was?

[BastardOp]

habs nur mal als bsp test2 genannt aber im richtigen code ist es meisten ein button

[Sharky]

Zitat:

Zitat von BastardOp

habs nur mal als bsp test2 genannt aber im richtigen code ist es meisten ein button

Dann rufe doch einfach .Click des Buttons auf ;-)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Button 1 geklickt');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('Button 2 geklickt');
  Button1.Click;
end;

Besser wäre es aber die Funktionen des Programmes von der GUI zu trennen. Sprich. Du schreibst Dir eine Methode die "etwas macht" und diese rufst Du dann im .OnClick der Buttons auf.