Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi StrToFloat funzt nicht (https://www.delphipraxis.net/36865-strtofloat-funzt-nicht.html)

Christian18 27. Dez 2004 12:46


StrToFloat funzt nicht
 
Hallo,

ich habe mal wieder ein kleines Problem. Und zwar möchte ich einen String in eine Float Zahl umwandeln. mein string sieht so aus.

1.024,99 <<-- String

1024,99 <<-- Float

wie kann ich das umkonvertieren???

Mit freundlichen Grüßen

Christian18

Neutral General 27. Dez 2004 12:47

Re: StrToFloat funzt nicht
 
Was willst du denn umkonvertieren ?
Da stimmt doch alles :gruebel:

Luckie 27. Dez 2004 12:48

Re: StrToFloat funzt nicht
 
Du musst erst das tausender Trennzeichen aus dem String entfernen.

Steve 27. Dez 2004 12:50

Re: StrToFloat funzt nicht
 
Hi,

stimmen die FormatSettings überein? (Tausender-Trennzeichen, Dezimaltrenner usw.) Schau Dir evtl. auch ma TryStrTofloat an.

Gruß
Stephan :dance: :xmas:

edit: Schneller geschrieben als gedacht :oops: Aus der Delphi-Hilfe: Tausendertrennzeichen und Währungssymbole sind nicht zulässig.

Christian18 27. Dez 2004 12:52

Re: StrToFloat funzt nicht
 
ja das tausender tennzeichen will ich auch raus haben. aber wie???

Torpedo 27. Dez 2004 12:53

Re: StrToFloat funzt nicht
 
Zitat:

Zitat von Christian18
aber wie???

Lösch einfach alle Punkte raus.

Luckie 27. Dez 2004 12:53

Re: StrToFloat funzt nicht
 
Delphi-Referenz durchsuchenpos, Delphi-Referenz durchsuchendelete.

Sharky 27. Dez 2004 13:13

Re: StrToFloat funzt nicht
 
Zitat:

Zitat von Luckie

Oder einfach mit Delphi-Referenz durchsuchenStringReplace.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  foo : String;
  baa : Real;
begin
  foo := '1.024,99';
  foo := StringReplace(foo,'.','',[rfReplaceAll]);
  baa := StrToFloat(foo);
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:21 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz