Zitat von
Christian Seehase:
Da Du nur i nicht näher erläutert hast gehe ich mal davon aus, dass Du diese Variable nicht korrekt deklariert hast.
japs,sollte dann ungefair so aussehen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer; // hier deklarieren !
begin
quer := 0;
for i := 1 to length(edit1.Text) do quer := quer + strtoint(copy(edit1.Text,i,1)) ;
edit2.Text := inttostr(quer);
end;
PS &
OT: Wie kann ich wörter inherhalb der Delphi-Tags färben
