Inkrementieren - Wie geht das norrens?

[Tommy1988]

Hallo @ all.

Ich weis nicht wieso ich DAS immer vergesse, ich habe halt vergessen wie man Zahlen
inkrementiert bzw. dekrementiert.

Kann mir da wer nochmal helfen?

[phXql]

Delphi-Quellcode:

inc(x);
dec(x);

[Tommy1988]

Genau das weis ich ja, oder halt X := X + 1;

Mein Problem was ich vergessen habe ist wie es von Anfang an geht.

mit

Delphi-Quellcode:

inc(x);
caption := inttostr(x);

kommt ja logischerweise eine6-stellige zahl heraus

[phXql]

hä?

[Tommy1988]

Kurz:

Von Anfang an wär nicht schlecht.

[phXql]

Delphi-Quellcode:

procedure Bla;
var
  x: int;
begin
  x := 0;
  inc(x);
end;

Ohne Gewähr, schon ewig kein Delphi mehr angefasst ;).

[DeddyH]

Setz Dich hin, hol tief Luft, gehe in Dich und dann sag uns mal, was Du eigentlich willst, ich verstehe nämlich nur Bahnhof. :gruebel:

[Dax]

Aaaaalso. Grundkurs Delphi, "Wie benutze ich Variablen". Punkt 1: Variablen vor der ersten Verwendung initialisieren!

[Tommy1988]

Ich möchte einfach nur eine zahl herauszählen ;)

Z.B. im Sekundentakt, aber keinen Timer. Wollte das selber machen.

[mkinzler]

Ohne Timer wird dir das nicht gelingen.

[Tommy1988]

Zitat:

Zitat von Dax

Aaaaalso. Grundkurs Delphi, "Wie benutze ich Variablen". Punkt 1: Variablen vor der ersten Verwendung initialisieren!

Ohne Link, wie soll ich da genau das finden?

[Tommy1988]

Zitat:

Zitat von mkinzler

Ohne Timer wird dir das nicht gelingen.

Ich glaube ich habs falsch verständlich gemacht. sry..

var
x: int;
begin
x := 0;
inc(x);
end;

das kann man ja schlecht nehmen da wird x immer wieder auf 0 gesetzt

edit:
ich hab mir nochmal alles angeguckt (post oben mit grundlagen) und habe den fehler (?!) gefunden.

[DeddyH]

Delphi-Quellcode:

type TEineForm = class(TForm)
...
private
  x: integer;
...
end;

procedure TEineForm.Create(Sender: TObject);
begin
  x := 0;
end;

procedure TEineForm.Timer1Timer(Sender: TObject);
begin
  inc(x);
end;

[phXql]

Delphi-Quellcode:

var
  x: int;
begin
  x := 0;
  while(true)
  begin
    Sleep(1000);
    inc(x);
  end;
end;

[mkinzler]

Delphi-Quellcode:

var
    x: int;
begin
    x := 0;
    while True 
    begin
        inc(x);
...
    end;
end;

Aber wie gesagt, ist das nicht was du brauchst