Procedure mit Variablen als Parameter

[Helmi]

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?

[Apollonius]

Das Problem ist, dass es sich um var-Parameter handelt.

[Helmi]

Zitat von Apollonius:

Das Problem ist, dass es sich um var-Parameter handelt.

Ja, das ist ein Problem - sorry

[hoika]

Hallo,

das würde ich über eine eigene Klasse machen,
die als Parameter übergeben wird.



Heiko

[bernau]

Zitat von hoika:

das würde ich über eine eigene Klasse machen,
die als Parameter übergeben wird.

Die Klasse muss aber auch instanziert und freigegeben werden. Auf der einen Seite spare ich 3 Zeilen und muss dafür 2 neue Zeilen hinzufügen.

Dann bleibe ich doch lieber bei den DummyVariablen.

[hoika]

Hallo,

wenn jetzt noch ein paar Variablen hinzukommen,
sieht es anders aus.


Heiko