Registriert seit: 2. Sep 2008
Ort: Kleve
822 Beiträge
Delphi 2010 Professional
|
Re: dll einbinden
5. Mär 2009, 21:48
Delphi-Quellcode:
function ProzentBerechnung(Hauptwert: string; Nebenwert: string): string; stdcall;
begin
if Hauptwert = '0' then
Result:= '0'
Else
Result:= FloatToStrF(StrToFloat(Nebenwert)/StrToFloat(Hauptwert)*100,ffFixed,10,2);
end;
exports
ProzentBerechnung,
NFak,
TorProzent;
so siehts es in der dll aus hab die anderen beiden funktionen mal außen vor gelassen
Steven
|