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:

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:

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