String->Zahl->vergleichen - wie ?

[mfg]

Huhu,

der mega-nubi is wieder da:

Diesmal möchte ich eine Zahl die in einem String ist, in eine Zahl umwandeln um Sie mit einer anderen Zahl zu vergleichen. Mit STRtoINT() komme ich da nich so weit, denn meine Zahl hat dezimalstellen nach dem komma. Aus Delphis Hilfe Datei wurde ich auch nich ganz schlau, vieleicht kann mir wer mein Beispiel vervollständigen:

Delphi-Quellcode:

var zahl1,zahl2 : string;

begin
zahl1 := '11.1';
zahl2 := '9.8';

if STRtoZAHL(zahl1) > STRtoZAHL(zahl2) then begin
   {Zahl 2 ist größer}
   end;

Wenn ich in diesem Fall die Strings direkt vergleiche wäre zahl2 größer, wie muss ich nun die Funktion (STRtoZAHL) wählen damit das geht. Und was für ein var-typ ist das dann ?

Danke

mfg

[SirThornberry]

hast dus schon mit strtoFloat oder so probiert??

[Treffnix]

Für Gleitkommazahlen gibts StrToFloat und FloatToStr

*edit*
:shock: da war mal wieder jemand schneller

[mfg]

jupp,

blos was für ein var typ gibt strtofloat zurück ? also wenn ich den zurückgegebenen wert in einer var speichern will!?

[Treffnix]

Double

*edit*
Stimmt gar nicht. Extended, aber kann man in ner Double oder Real-Variable speichern.

[mfg]

hm, also ich krieg immer nen fehler: 5.9 ist kein gleitkommawert... liegt das an dem . statt , ?

[Treffnix]

ja, liegt an dem Punkt. Das holt der sich aus den Windowseinstellungen. Gibt ne Konstante Decimalseparator oder so. Wenn da ein Komma drin ist ( und das ist auf deutschen Rechnern wohl so ), dann will er auch ein Komma als Komma.

[Nalincah]

Ja

[mfg]

najut, und wie ersetze ich nun den . durch ein , im string ?

[Treffnix]

Delphi-Quellcode:

StringReplace( Zahlx, '.', ',', [] )

oder

Delphi-Quellcode:

for i:= 0 to length( Zahl ) - 1 do Begin
  if 
    Zahl[i] = '.' 
  Then  
    Zahl[i] := ','
End;

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[Nalincah]

StringReplace(GesamtString, AlterString, NeuerString, Flags)

Gesamtstring ist dein "5.9"
AlterString ist "."
NeuerString ist ","
Flags sind Optionen wie

rfReplaceAll: Ersetzt jeden AltString mit NeuString, sonst nur den ersten
rfIgnoreCase: Ignoriert Groß/Kleinschreibun

Also;

Delphi-Quellcode:

Edit1.text := StringReplace('5.9', '.' ',' []);

[edit] Verdammt, schon wieder nur zweiter :wall: :wink: [/edit]

[SirThornberry]

stringreplace wars glaube und wenn das nicht geht einfach mit ner schleife

Delphi-Quellcode:

var source: String;
    count: Integer;
begin
  source := '12.95';
  for count := 1 to length(source) do
    if source[count] = '.' then source[count] := ',';
end;

[Treffnix]

Oh, sorry! Sir Thornberry hat natürlich recht. Der erste Char hat den Index 1, nicht 0. Also ist auch das -1 am Ende hinfällig.
Sprich: Seine Schleife gut, meine Schleife macht böse Exceptions. :roll:

*edit*
Fipptehler verbessert