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! <<