Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.312 Beiträge
 
Delphi XE2 Professional
 
#11

Re: Procedure mit Variablen als Parameter

  Alt 14. Okt 2008, 20:37
Warum denn nicht so?

Delphi-Quellcode:
procedure test(d1: double = 0; d3: Double = 1);
begin
  d1 := d1 + d3;

  ShowMessage(FloatToStr(d1));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  test(2);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  test(0, 45);
end;
Mit vordinierten Variablen, wenn nicht vorhanden, dann wird der Defaultwert genommen.
(nur zur Info: der Code oben funktioniert)

Oder hab ich was falsches verstanden?
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat