Immer +1 nehmen

[mquadrat]

Zitat von isilive:

Delphi-Quellcode:

var a:integer;
begin
  str := Socket.ReceiveText;
  if str='1' then inc(a);
  ShowMessage(inttostr(a));
end

Da würde immer 1 rauskommen, wenn du a da deklarierst wo es gerade steht