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