Dienst/Service bleibt hängen bei StrToFloat()

[TUX_der_Pinguin]

Ich habe einen kleinen Dienst geschrieben der eine Datei einliest und diese soll dann später mit einer Datenbank abgeglichen werden.
Jedoch gibt es ein Problem wenn ich die Funktion StrToFloat() verwende dann bleibt der Dienst hängen.

Delphi-Quellcode:

procedure TService1.Execute;
begin
  while NOT Terminated do begin
  //Log=> 'starte update'
  pLoad_File(db_File);
  //... Update routinen
  //Log=> 'beende update'
  end;

end;

Konvertiere ich in der folgenden Prozedur 2 Stings nach Real mit der Funktion 'StrToFloat' so ergibt die Logdatei das der Dienst hängen bleibt.

Zitat:

Log:
starte update

Konvertiere ich nicht mit 'StrToFloat' so sieht die log Datei korrekt aus

Zitat:

Log:
starte update
beende update

Was für ein Problem gibt es mit StroToFloat in einem Dienst/Service, ich raff es nicht!?

Delphi-Quellcode:

Procedure pLoad_File(Var db_File tDbFile);
Var
  FHandle     : System.Text;
  Index       : Integer;
  strRow      : String;
  strID       : String;
  strName     : String;
  strType     : String;
  strSupplier : String;
  strPrice    : String;
  strPriceDiv : String;

Begin
  //init
  db_File := nil;
  Index   := 0;

  //Länge setzen
  SetLength(db_File, 32768);

  //Einlesen der Artikelinformationen
  Assign(FHandle, FilePath);
  {$I-}
  Reset(FHandle);
  {$I+}
  If IoResult = 0 Then Begin
    While NOT EOF(FHandle) Do Begin
      Readln(FHandle,strRow);
      strID       := Copy(strRow,64,6);
      strName     := Copy(strRow,1,25);
      strType     := Copy(strRow,27,15);
      strSupplier := Copy(strRow,43,3);
      strPrice    := Copy(strRow,76,7);
      strPriceDiv := Copy(strRow,136,4);

      db_File[Index].ID       := fDeleteChar(' ',fAsciiToAnsi(strID));
      db_File[Index].Name     := fAsciiToAnsi(strName);
      db_File[Index].Typ      := fAsciiToAnsi(strType);
      db_File[Index].Supplier := fAsciiToAnsi(strSupplier);
      db_File[Index].Price    := 0;
      db_File[Index].PriceDiv := 1;

      //Preis
      If (Length(strPrice) > 0) AND fCheckChars(strPrice,'0123456789.') Then
        db_File[Index].Price := StrToFloat(strPrice)
      Else
        db_File[Index].Price := 0.0;

      //Preisdivisor
      If {(Length(strPriceDiv) > 0) AND} fCheckChars(strPriceDiv,'0123456789.') Then
        db_File[Index].PriceDiv := StrToFloat(strPriceDiv)
      Else
        db_File[Index].PriceDiv := 1;

      Inc(Index);
    End;{while}
    Close(FHandle);

  End;{if IoResult}

  //Array auf korrekte Länge abschneiden
  SetLength(db_File, Index);

End;

[mkinzler]

TryStrToFloat ist StrToFloat immer vorzuziehen

[Bernhard Geyer]

StrToFloat schmeißt vermutlich eine Exception die du nicht behandelst.

[Luckie]

Zitat von Bernhard Geyer:

StrToFloat schmeißt vermutlich eine Exception die du nicht behandelst.

...weil der Decimalseparator nicht passt.

[TUX_der_Pinguin]

Zitat von Luckie:

Zitat von Bernhard Geyer:

StrToFloat schmeißt vermutlich eine Exception die du nicht behandelst.

...weil der Decimalseparator nicht passt.

Genau daran lag es, manchmal sieht man den Wald vor lauter Bäumen nicht