Umwandlung String in Double

[allarich]

Hallo !
Ich hab ein Problem,daß ich möglichst schnell lösen möchte.
Ich muß eine Spalte einer Tabelle aufsummieren, deren Werte in Stringform vorliegen.
Ich möchte nin die Strings in Realgrößen (Double) umwandeln und aufsummieren.Will bei mir nicht funktionieren. Wie kann ich das möglichst einfach realisieren ?

MfG
allarich

[mirage228]

Hi,

schau mal StrToFloat

mfG
mirage228

[Jasocul]

Die Funktion StrToFloat sollte da helfen.

[allarich]

Hallo Freunde,

habe ich schon probiert.Hat aber nicht geklappt. Vielleicht ein Fehler von mir ?
Habe folgende source verwendet:

Delphi-Quellcode:

var
  i: Integer;
  Z1: string;
  Ergebnis: Double;

begin
  Ergebnis:= 0;
  i:= 0;
  REPEAT
    i:= i + 1;
    Z1:= ws.Cells.Item[i];
    Ergebnis:=Ergebnis + StrToFloat(Z1);
    end; 
  UNTIL Z1 = ''
end;

Wer sieht hier wo einen Fehler ?

MfG
allarich

[edit=Sharky]Delphi-Tags gesetzt und den Code etwas formatiert Mfg, Sharky[/edit]

[Sanchez]

Hallo,

Du hast da ein end zuviel. So wird es gar nicht kompilieren.
Außerdem solltest du vor dem StrToFloat sicherstellen, das Z1 kein Leerstring ist, oder am Besten gleich TryStrToFloat benutzen um sicherzugehen, dass in Z1 ein gültiger String steht.

Delphi-Quellcode:

var
  i: Integer;
  Z1: string;
  Ergebnis: Double;

begin
  Ergebnis:= 0;
  i:= 0;
  REPEAT
    i:= i + 1;
    Z1:= ws.Cells.Item[i];
    Ergebnis:=Ergebnis + StrToFloat(Z1);
    end; <--- das ist zuviel
  UNTIL Z1 = ''
end;

grüße, daniel

[allarich]

Hallo Sanchez,
Du hast natürlich recht. Ich habe das begin nach REPEAT vergessen !
Habe aber noch ne andere Frage,vielleicht kannst Du mir hier auch helfen.
Wie frage ich programmtechnisch ab, ob ein Workbook schon geöffnet ist ?

MfG
allarich

[Sanchez]

Ich fürchte, da kann ich dir nicht helfen. Ich hab nämlich keine Ahnung, was ein Workbook ist.

[jim_raynor]

Denk daran, dass Delphi ein . als Dezimaltrenner erwartet. Ein Komma wird nicht akzeptiert. Generell darf bei StrToFloat der String nicht Formatiert sein (also zum Beispiel keine führenden Leerzeichen oder Tausendertrennzeichen).

[Sanchez]

Zitat von jim_raynor:

Denk daran, dass Delphi ein . als Dezimaltrenner erwartet. Ein Komma wird nicht akzeptiert.

Meine OH sagt dazu was anderes:

Zitat:

Die globale Variable DecimalSeparator definiert das Zeichen, das als Dezimaltrennzeichen verwendet werden muß. Tausendertrennzeichen und Währungssymbole sind nicht zulässig. Enthält S keinen gültigen Wert, wird eine EConvertError-Exception ausgelöst.

Ich hab nämlich vorher beim Probieren ne Exception bekommen, wie ich . verwendet hab.

[Luckie]

Zitat von allarich:

Wie frage ich programmtechnisch ab, ob ein Workbook schon geöffnet ist ?

Öffne bitte für eine neue Frage einen neuen Thread. Danke.