wert der variable wird vermindert ohne geändert zu werden

[Sunlight7]

Hallo Dino,

brutaler Programmierstiel gefällt mir, aber nicht mein Fall

Delphi-Quellcode:

procedure TForm1.ibDblClick(...);
   var vo:Integer;
begin
   For vo:=1 to 4 do begin
      ...
   end;

   ges[vo]:=0; <- Fehler !!!
end;

procedure TForm1.ibDblClick(...);
   var vo, vos:Integer;
begin
   For vo:=1 to 4 do begin
      ...
      vos:=vo;
   end;

   ges[vos]:=0; <- Kein Fehler
end;

PS: Real's sind Out, nimm dafür Single oder Extended

Edit: Anderswo machst Du den gleichen Fehler mit dem Bau.