3 Label inhalte vergleichen

[sakura]

Wenn Du die Labels von
Label1, Label2, Label3 usw. nennst, dann würde folgender Code gehen

Delphi-Quellcode:

var
  I, J, K: Integer;
begin
  for I := 0 to 4 do
    for J := I + 1 to 5 do
    try
      if TLabel(FindComponent(Format('Label%d', [I]))).Caption =
          TLabel(FindComponent(Format('Label%d', [J]))).Caption then
        for K := J + 1 to 6 do
          if TLabel(FindComponent(Format('Label%d', [I]))).Caption = 
              TLabel(FindComponent(Format('Label%d', [K]))).Caption then
          begin
            // !!! DREI GLEICHE LABELS GEFUNDEN
            ......
            // folgende Zeile einsetzen, wenn nur ein Treffer gewertet werden soll
            // Break;
          end;
    except
      // irgendein Fehler zum vergessen ;)
    end;