Forum: Object-Pascal / Delphi-Language
Delphi
by Wolfgang Mix,
27. Nov 2009
Sorry, hast natürlich recht, hatte ich nicht getestet, nur mit der 1. Version.
Gruß
Wolfgang
Forum: Object-Pascal / Delphi-Language
Delphi
by Wolfgang Mix,
26. Nov 2009
@Alfonso:
Haben wir nicht :)
Die Funkton klappt auch mit '-' als 1.Zeichen :mrgreen:
Grüß
Wolfgang
Forum: Object-Pascal / Delphi-Language
Delphi
by Wolfgang Mix,
26. Nov 2009
Hast recht, ausserdem sollten wir jetzt noch den Funktionsnamen von EuroStringToStr
auf EuroStringToFloat ändern
Forum: Object-Pascal / Delphi-Language
Delphi
by Wolfgang Mix,
26. Nov 2009
Gefällt mir jetzt so sehr gut. Wollte nur den Anstoss geben :)
Forum: Object-Pascal / Delphi-Language
Delphi
by Wolfgang Mix,
26. Nov 2009
Ich denke, das müsste dem TE jetzt weiterhelfen :)
Gruß
Wolfgang
Forum: Object-Pascal / Delphi-Language
Delphi
by Wolfgang Mix,
26. Nov 2009
Bei mir funktioniert folgender Ansatz, der für das Euroformat ausreicht.
Wenn nicht, dann müssen wir den Code erweitern.
function EuroStringToStr(s1:String):real;
var i:integer;
begin
for i:=1 to length(s1) do
begin
if (s1='.') or (s1=' ') or (s1='€')
then delete (s1,i,1);
Forum: Object-Pascal / Delphi-Language
Delphi
by Wolfgang Mix,
26. Nov 2009
Wenn du dafür keine fertige Funktion findest, schreibe dir eine.
Einfach mit Delete den Punkt, das Leerzeichen und das
Eurozeichen löschen.
Gruß
Wolfgang