Zwei Labels nacheinander mit Ziffernbuttons füllen

[zeras]

Zitat von DieDolly:

Zitat:

Dann prüfst du die Länge vom Label1 und Label2. Damit solltest du alles haben.

Oder man zählt die Klicks mit. Aber das könnte alles etwas schwierig werden, wenn man zwei- oder mehrstellige Zahlen eingeben will.

Er spricht aber von Ziffern. Also kann im Label1 nur eine Ziffer stehen und im Label2 auch nur eine Ziffer.
Ist das vielleicht eine Hausaufgabe in der Corona Zeit, die Online vorm Lehrer kommt?)

[haentschman]

Moin...

Zitat:

die Online vorm Lehrer kommt?

...halte ich für ein Gerücht...Android + FMX.

Wie schon gesagt: Für dich sind Events (ButtonClick) interessant. Im Eventhandler weißt du die Werte den Labels zu...fertsch.

[hoika]

Hallo,
GetNumber hätte ich über Nutzung des Properties Tag ersetzt.

[Moombas]

Bei dem Beispiel von Alallart kannst du, wenn du normale Buttons benutzt auch einfach anstatt

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);

  function GetNumber(LabelName: String): String;
  var
    s: String;
  begin
    //Routine geht davon aus, dass alle Buttons die Nummer
    //SpeedButton0 bis SpeedButton10 haben.
    s := LabelName;
    Delete(s, 1, Length('SpeedButton')); //Entfernt Text vor der Zahl
    Result := s;
  end;

begin
  if Label1.Caption = '' then
    Label1.Caption := GetNumber(TSpeedButton(Sender).Name)
  else
    if Label2.Caption = '' then
      Label2.Caption := GetNumber(TSpeedButton(Sender).Name);
end;

folgendes nutzen (deine Buttons sind ja entsprechend "konfiguriert"):

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if Label1.Caption = '' then
    Label1.Caption := TButton(Sender).Caption
  else
    if Label2.Caption = '' then
      Label2.Caption := TButton(Sender).Caption;
end;

[himitsu]

@Alallart

Warum in GetNumber die Nummer aus dem Namen extrahieren und nicht die Caption verwenden?
Wobei man hier auch ganz gut .Tag verwenden darf, dann wäre Anzeige und Inhalt getrennt und es gäbe keine Probleme auf den Buttons was Anderes anzuzeigen
und man bräuchte nichtmal eine Funktion, da Tag direkt das Ergebnis liefert.
(z.B. die Ziffern/Zahlen in einer anderen Sprache oder z.B. als Wort "Eins")

Und wer diese Komponenten weiterhin als SpeedButton1 bis sonstwas benannt lässt, der hätte es verdient mit einem rosa Wattebausch gesteinigt zu werden.

[hoika]

2 Wattebäusche,
für jeden Arm einer!

[cyberaj]

Oha!

Da bin ich nur mal kurz die Geschirrspüle ausräumen und Ihr löst das Problem gleich mit Skript und freundlichem Wattebausch-Hinweis?!

Ich werd mal schnell in die Tasten hauen - naja ctrl-c reicht ja fast aus ...

Ich melde mich wieder, vielen Dank erst mal!
Und nein, keine Hausaufgabe

AJ

[cyberaj]

Funktioniert genau wie geplant - Dank an alle Mitdenker!
AJ