funktion in eine unit auslagern

[fwsp]

moin,

wie kann ich eine funktion auslagern?

[alcaeus]

Hallo fwsp,

erklaer mal bitte genauer was du machen willst. Normalerweise musst du nur eine neue Unit erstellen, die Funktion in den implementation-Teil kopieren und den Funktionsheader zusaetzlich in den interface-Teil. Anschliessend bindest du diese neue Unit da ein, wo du sie brauchst. Je nachdem welche Objekte du aber verwendest, wird es mehr oder weniger aufwaendig (zusaetzliche Parameter definieren, zusaetzliche Units in der neuen Unit einbinden usw.)

Greetz
alcaeus

[fwsp]

genau das hab ich ja gemacht, funktioniert aber nicht...

[alcaeus]

Hallo fwsp,

zeig doch mal ein bisschen Source. Und was genau meinst du mit "funktioniert aber nicht"? WAS funktioniert nicht, welche Fehlermeldungen treten auf? Ohne weitere Infos wird das nur ein Ratespiel.
Poste einfach mal den Quellcode der Funktion die du ausgelagert hast, und die Fehlermeldungen die auftreten, dann kann man sehn was ueberhaupt los ist.

Greetz
alcaeus

[Kroko1999]

HAT HIER KEINER EINE GLASKUGEL

[fwsp]

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));

[alcaeus]

Zitat von alcaeus:

Normalerweise musst du nur eine neue Unit erstellen, die Funktion in den implementation-Teil kopieren und den Funktionsheader zusaetzlich in den interface-Teil.

Mach mal genau was ich sage...

Greetz
alcaeus

[Tyrael Y.]

Die Deklaration muss auch noch im Inteface-Teil stehen

Delphi-Quellcode:

unit URound;

interface
function runden(zahl : real; stellen : integer) : real; 


implementation

[fwsp]

danke sehr.