Forum: Algorithmen, Datenstrukturen und Klassendesign
by DieDolly,
30. Sep 2018
Weiß ich nicht. Auch deswegen bin ich hier und frage, wie es besser geht.
begin
asInt64 := Int64(IntToCheck);
CheckInteger(asInt64, iDefaultValue, iMinValue, iMaxValue);
end;
Da fehlt glaube ich noch IntToCheck := asInt64;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DieDolly,
30. Sep 2018
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....