3 Label inhalte vergleichen

[Quick_silver]

Ich habe nun 6 Label und möchte das wenn 3 davon den gleichen wert haben etwas passiert. Wie frage ich das ab?

[CalganX]

Hi,
vermutlich mit einer if-Abfrage. Das ganze ist zwar sehr aufwändig, aber da kannst du nichts machen (glaube ich zumindest).

Chris

[Quick_silver]

Das ist aber nicht schön das sind ja massig if's

Hat keiner ne Lösung die kürtzer ist?

[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;

[CalganX]

Zitat von sakura:

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

Versehen oder Absicht??? Kein Code!!!

Chris

[sakura]

Ich wollte Alt+D (Delphi-Tag) drücken und habe Alt+S (Senden) erwischt.