mehrere Button-Captions in Memo verschieben

[Robert_G]

Ungetested, nur schnell heruntergetippt.
(Ich bin eigentlich gerade am Rechnerschrauben )

Delphi-Quellcode:

Var
  TempCaption: String;
  i: Integer;
Begin

  If Sender Is TButton Then
    TempCaption := TButton(Sender).Caption;

  If Sender Is TLabel Then
    TempCaption := TLabel(Sender).Caption;

  If Sender Is TPanel Then
    With Sender As TPanel Do
      For i := 0 To pred(ControlCount) Do
        If Controls[i] Is TLabel Then
        Begin
          TempCaption := TLabel(Controls[i]).Caption;
          // Läßt du das "Break" weg, werden alle Labels in das Memo geschrieben. Mit "Break" nur das erste, dass gefunden wird. 
            (Falls die Caption nicht schon im Memo steht)
          Break;
        End;
  If (TempCaption <> '') And (Memo1.Lines.IndexOf(TempCaption) = -1) Then
    Memo1.Lines.Add(TempCaption);
End;

Edit: Tippfehler & Comment in der Schleife...