Prozeder aufrufen

[netmario]

Wie kann ich machen, dass in einer Prozedur eine andere Prozedur dann aufgerufen wird?

[DeddyH]

Schreib den Namen rein (samt benötigter Parameter).

Delphi-Quellcode:

procedure a(int: integer);
begin
  IrgendwasDollesMitInt;
end;

procedure b;
begin
  a(2);
end;

[Forlan]

Einfach aufrufen? =D

Delphi-Quellcode:

procedure machwas;
begin
end;

procedure machmachwas;
begin
machwas;
end;

Roter Kasten...

[Klaus01]

Grundlagen

Grüße
Klaus

[mkinzler]

Ein Grundlagen-Tutorial würde wohl nicht schaden
http://www.delphi-treff.de/tutorials/grundlagen/

[netmario]

Also ich möchte folgendes machen. Es soll diese Prozedur aufgerufen werden.

Delphi-Quellcode:

procedure TForm1.PlusClick(Sender: TObject);
begin
  Zwischenergebnis:=StrToFloat(sEdit1.Text);
  sEdit1.Text:='';
  Zeichen:=1;
  Kom:=0;
end;

Und zwar von dieser hier.

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key in ['+']) then
  hier soll sie aufgerufen werden
end;

Allerdings wollte das nicht gehen, da dann kam nicht ausreichend Parameter oder so.

[mkinzler]

Wie wäre es mit

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key in ['+']) then
  PlusClick( Self);
end;

?

[netmario]

Zumindestens hat der Compiler jetzt nicht gemeckert, es funktioniert aber nicht.

[DeddyH]

Welcher Parameter wird denn erwartet? Ein TObject, das musst Du also übergeben. Welches das sein soll, musst Du selbst entscheiden, das z.B. kann Sender, Self oder auch nil sein.

[DeddyH]

Zitat:

Zitat von netmario

es funktioniert aber nicht.

Wenn ich für jedes Mal, wenn dieser Satz kommt, 50 Cent bekäme, bräuchte ich nicht mehr arbeiten :?

[edit] *Oops*, jetzt fang ich auch noch an zu pushen [/edit]