Immer +1 nehmen

[isilive]

Zitat von SyntaxXx:

Also im einfachsten falle wäre es so:

x : x + 1

Gute Idee!!

Nein, im Ernst - warum nicht so?

Delphi-Quellcode:

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

Edit: danke m²

[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