Immer +1 nehmen

[isilive]

Zitat:

Zitat von SyntaxXx

Also im einfachsten falle wäre es so:

x : x + 1

:drunken: Gute Idee!! :mrgreen:

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:

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 ;)