In einem Label zählen?

[citybreaker]

Hallo,

wie kann man in/mit einem Label zählen? Habs bisher
immer in einem Editfeld mit TUpDown gezählt. Find die
möglichkeit aber nicht so gut.

[ixtreme]

Code:

Label1.Caption := inttostr(strtoint(Label1.Caption) + 1);

gruß

ixtreme.de

[nailor]

ich weiß nicht, genau was du meinst. aber vielleicht meinst du TSpinEdit. Kann allerdings sein, dass es das bei Delphi 3 noch nicht gibt!
An sonsten wende dich mal an Torry, der hat garantiert was!

[citybreaker]

Zitat von Nailor:

ich weiß nicht, genau was du meinst. aber vielleicht meinst du TSpinEdit. Kann allerdings sein, dass es das bei Delphi 3 noch nicht gibt!
An sonsten wende dich mal an Torry, der hat garantiert was!

Nein ich meinte TUpDown da kann man ja dann nen SpinEdit raus machen.

@ixtreme Klappt nicht. "Label1 ist kein gültiger Wert" wird
immer angezeigt.

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

Zitat von citybreaker:

@ixtreme Klappt nicht. "Label1 ist kein gültiger Wert" wird immer angezeigt.

Ist auch richtig So. Vorher muß natürlich in Caption eine Zahlt drin stehen ('123').
Sonst kommt dieser Fehler, da die Zahl dort ausgelesen wird.

Delphi-Quellcode:

Label1.Caption := IntToStr(StrToInt(Label1.Caption) + 1);

{=}

I := StrToInt(Label1.Caption);  {auslesen}
I := I + 1;                     {erhöhen}
Label1.Caption := IntToStr(I);

Es besteht noch die Möglichkeit Tag zu mißbrauchen:

Delphi-Quellcode:

Label1.Tag := 122;
Label1.Tag := Label1.Tag + 1;
Label1.Caption := IntToStr(Label1.Tag);
{Anzeigetext = "123"}

Was auch Vorteile hat, denn wenn noch etwas anderes außer einder Zahl angezeigen will:

Delphi-Quellcode:

Label1.Tag := 122;
Label1.Tag := Label1.Tag + 1;
Label1.Caption := IntToStr(Label1.Tag) + 'irgendwas';
{Anzeigetext = "123 irgendwas"}

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[nailor]

Ich kapier nicht genau, was du haben willst

[citybreaker]

Zitat von himitsu:

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

Zitat von citybreaker:

@ixtreme Klappt nicht. "Label1 ist kein gültiger Wert" wird immer angezeigt.

Ist auch richtig So. Vorher muß natürlich in Caption eine Zahlt drin stehen ('123').
Sonst kommt dieser Fehler, da die Zahl dort ausgelesen wird.

Delphi-Quellcode:

Label1.Caption := IntToStr(StrToInt(Label1.Caption) + 1);

{=}

I := StrToInt(Label1.Caption);  {auslesen}
I := I + 1;                     {erhöhen}
Label1.Caption := IntToStr(I);

Es besteht noch die Möglichkeit Tag zu mißbrauchen:

Delphi-Quellcode:

Label1.Tag := 122;
Label1.Tag := Label1.Tag + 1;
Label1.Caption := IntToStr(Label1.Tag);
{Anzeigetext = "123"}

Was auch Vorteile hat, denn wenn noch etwas anderes außer einder Zahl angezeigen will:

Delphi-Quellcode:

Label1.Tag := 122;
Label1.Tag := Label1.Tag + 1;
Label1.Caption := IntToStr(Label1.Tag) + 'irgendwas';
{Anzeigetext = "123 irgendwas"}

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

Hier wird die zahl aber nureinmal erhöht. Wie würde das ganze gehen wenn bei
jedem Button klick die Zahl erhöht werden soll?

[ixtreme]

ja dann setzt du es einfach auf einen button Click;

[Uncle Cracker]

...oder arbeitest mit einer globalen Variable, die du jedes mal erhöhst und dann in einem Label anzeigst.

Diese Variable kann ein Integer sein, die du mit Label1.aption := InttoStr(Variable) anzeigst.

[citybreaker]

Zitat von ixtreme:

ja dann setzt du es einfach auf einen button Click;

Hab ich, klappt nicht.

@Uncle Cracker Werde es mal versuchen