1:
function AbgabePreis (p: pChar): pchar; cdecl; External „customer.dll“ Name „? AbgabePreisBerechnung@APlusVServerDelphi@@YAPBDQBD@Z“;
1 neu zu schreiben: 2: 3: 4: 5: 6: 7: 8:
_ Öffentlichkeit geteilte Funktion StrAbgabePreis (_ ByRef s als StringBuilder) als StringBuilder Enden-Funktion