so,
hier ist die ausgelagerte funktion:
Code:
unit URound;
interface
implementation
function runden(zahl : real; stellen : integer) : real;
var faktor : real;
i : integer;
begin
if (zahl = 0)
then runden := 0
else if stellen = 0
then
begin
zahl := int(zahl + 0.5);
runden := zahl;
end
else
begin
faktor := 1;
for i := 1 to stellen do
begin
faktor := faktor * 10;
end;
zahl := ((zahl * faktor) + 0.5);
zahl := int(zahl);
zahl := zahl / faktor;
runden := zahl;
end;
end;
end.
und hier der fehler:
[Fehler] calc.pas(533): E2003 Undefinierter Bezeichner: 'runden' und zwar bei diesem aufruf.
Code:
DLabel[s,f2,1].Caption := FloatToStr(URound.runden(erg,2));