Einzelnen Beitrag anzeigen

Benutzerbild von Leuselator
Leuselator

Registriert seit: 18. Mär 2003
Ort: Berlin
589 Beiträge
 
Delphi 8 Architect
 
#4

Re: StrToReal <--- gibt es so etwas

  Alt 8. Jan 2004, 00:03
gibt es:

SysUtils.StrToFloat(const S : String) : Extended;

Ansonsten, wenn Du es etwas sicherer machen willst:
Delphi-Quellcode:
function StrToFloatF(Zahl_Als_Text:String):Double;
var TmpStr : String;
    i :integer;
    Positiv : Boolean;
begin
  Positiv := TRUE;
  TmpStr := '';
  for i:= 1 to length(Zahl_Als_Text) do begin
    if Zahl_Als_Text[i] in ['0'..'9',',']
      then TmpStr := TmpStr+Zahl_Als_Text[i];
    if Zahl_Als_Text[i] = '-'         
      then Positiv := FALSE;
  end;
  if Positiv
    then Result := StrToFloat(TmpStr)
    else Result := StrToFloat(TmpStr)*-1;
end;
Edit: Wenn man schonmal glänzen will...
Tim Leuschner
Programmierer = moderner Sysiphos: stets wenn er meint, den Stein seiner Dummheit auf den Berg des Wissens gewuchtet zu haben, erblickt er einen völlig neuen Aspekt und der Dummfels poltert mit Getöse zurück ins Tal der Unwissenheit...
  Mit Zitat antworten Zitat