Ich versuche gerade eine Prozedur zu schreiben der ich eine numerische Variable übergebe sowie einen Standard-, Minimal- und Maximalwert.
Befindet sich
In nicht im Rahmen, wird der Standardwert zurückgegeben.
Das klappt auch aber ich bekomme es nicht hin das mit überladenen Prozeduren zu realisieren, sodass ich Int64, Integer und alle anderen übergeben kann.
Mein kläglicher Versuch. Kompiliert nicht mit dem Fehler, dass keine überladene Prozedur im zweiten Aufruf unten gefunden werden kann
Delphi-Quellcode:
type
TIntUtils = record
public
class procedure CheckInteger(var IntToCheck: Int64; iDefaultValue: Int64; iMinValue: Int64; iMaxValue: Int64); overload; static;
class procedure CheckInteger(var IntToCheck: Integer; iDefaultValue: Int64; iMinValue: Int64; iMaxValue: Int64); overload; static;
end;
implementation
class procedure TIntUtils.CheckInteger(var IntToCheck: Int64; iDefaultValue: Int64; iMinValue: Int64; iMaxValue: Int64);
begin
if (IntToCheck < iMinValue) or (IntToCheck > iMaxValue) then
IntToCheck := iDefaultValue;
end;
class procedure TIntUtils.CheckInteger(var IntToCheck: Integer; iDefaultValue: Int64; iMinValue: Int64; iMaxValue: Int64);
begin
CheckInteger(Int64(IntToCheck), iDefaultValue, iMinValue, iMaxValue);
end;
Der Aufruf sähe etwa so aus. Im Beispiel unten hätte die Variable X danach den Wert 123.
Delphi-Quellcode:
var X : Integer
X := 100;
TIntUtils.CheckInteger(X, 123, 110, 200)
Wie würdet ihr diese Prozedur schreiben?