Umwandlung String in Double

[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