globale function

[Sir Rufo]

Es hilft, wenn man sich überlegt, wie das im realen Leben abläuft:

Zitat:

Ruf den da an und sag dem was.

Öh, anrufen ja, aber ich brauche schon die Telefonnummer und das was ich sagen soll.

Aha, wir benötigen 2 Parameter Rufnummer und den Text. Somit würde unsere Funktion so aussehen:

Delphi-Quellcode:

procedure TellViaPhone( phoneNumber, messageText : string );
begin
  Phone.Dial( phoneNumber );
  Phone.Talk( messageText );
end;

Und wie ruft man das auf?

Delphi-Quellcode:

procedure TFormX.RufAnButtonClick( Sender : TObject );
begin
  TellViaPhone( '0900665665', 'Ich sollte anrufen und wegen der Peitschen fragen' );
end;