Komponente suchen und Caption ändern ?

[Gandimann]

Hello Friends,
zuerst frohes 2021 wünsche ich allen :)

Mein Problem :
ich mochte gern auf ein Form platzierte mehrere Panels(mehr als 50) per Button-klick suchen und falls auf welche keine Caption vorhanden ist,ein neue caption zuweisen. Ich versuche mit follgende.... aber ohne Erfolg :(
Ich bitte um Hilfe !!

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
 CNAME, CAP: string;
  i: Integer;
begin
  CNAME := 'pnl';
  CAP := 'LAST CHECK' ;
  for i  := 1 to 4 do
  begin
      if (FindComponent((CNAME[i])) as TPanel).caption <> '' then
          (FindComponent((CNAME[i])) as TPanel).caption := CAP ;
  end;
end ;
end.

Ein TestProjekt habe ich hinzugefügt.

[hschmid67]

Guten Morgen,
ich vermute, die Panels heißen pnl1...pnl4 , oder?
Dann müsste es lauten

Delphi-Quellcode:

if (FindComponent(CNAME + i.ToSting) as TPanel).caption <> '' then
...

Viele Grüße und allen ein gutes Neues Jahr
Harald

[striderx]

und nicht <> '' sondern = ''

[Delfiano]

Um das überhaupt mit meinem Delphi 7 testen zu können, musste ich entsetzlich viel Müll entfernen.

Hier die Lösung:

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
 CNAME, CAP: string;
  i: Integer;
begin
  CNAME := 'pnl';
  CAP := 'LAST CHECK' ;
  for i  := 1 to 4 do
  begin
      if (FindComponent(CNAME+intToStr(i)) as TPanel).caption = '' then
         (FindComponent(CNAME+intToStr(i)) as TPanel).caption := CAP;
  end;
end;

[TKanne]

Moin,

frohes Neues erst einmal. :)

oder, wenn es etwas flexibler sein soll (bei mir z.B. sind die Panels nicht mimmer nur durchnummeriert):

Code:

procedure TForm1.btn1Click(Sender: TObject);
var
  CAP: string;
  i: Integer;
begin
  CAP := 'LAST CHECK';
  for i := 0 to ComponentCount - 1 do
    if (Components[i] is TPanel) and ((Components[i] as TPanel).Caption = '') then
      (Components[i] as TPanel).Caption := CAP;

end;

[EmWieMichael]

Delphi-Quellcode:

if (FindComponent(CNAME+intToStr(i)) as TPanel).caption = '' then
   (FindComponent(CNAME+intToStr(i)) as TPanel).caption := CAP;

Das funktioniert zwar, allerdings ist der zweimalige Aufruf von FindComponent unnötig, nicht sonderlich elegant und wenig effektiv.

[Delfiano]

Gut gebrüllt, Löwe. Dann mach's doch besser.

Ich hab mich nur an der Vorgabe orientiert und
den/die entsprechenden Fehler behoben.

Aber ich will mal nicht so sein:

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
 CNAME, CAP: string;
 p: TPanel;
 i: Integer;
begin
  CNAME := 'pnl';
  CAP := 'LAST CHECK' ;
  for i  := 1 to 4 do
  begin
    p:= (FindComponent(CNAME+intToStr(i)) as TPanel);
    if p.caption = '' then p.caption := CAP ;
  end;
end;

[zeras]

Zitat:

Zitat von Delfiano (Beitrag 1480175)

Gut gebrüllt, Löwe. Dann mach's doch besser.

Ich hab mich nur an der Vorgabe orientiert und
den/die entsprechenden Fehler behoben.

Aber ich will mal nicht so sein:

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
 CNAME, CAP: string;
 p: TPanel;
 i: Integer;
begin
  CNAME := 'pnl';
  CAP := 'LAST CHECK' ;
  for i  := 1 to 4 do
  begin
    p:= (FindComponent(CNAME+intToStr(i)) as TPanel);
    if p.caption = '' then p.caption := CAP ;
  end;
end;

Man sollte aber noch prüfen, ob es das Panel überhaupt gibt und nicht gleich das Caption zuweisen.

[Delfiano]

Zitat:

Man sollte aber noch prüfen, ob es das Panel überhaupt gibt und nicht gleich das Caption zuweisen.

Prinzipiell korrekt. Aber selbst wenn es nicht existiert, also statt z.B 4 ein höherer Wert benutzt wird, kommt es zu keinem Fehler.

Etwas anderes ist viel problematischer. Der Themenersteller möchte ja die Änderungen nicht nur zur Laufzeit, sondern sie sollen dauerhaft übernommen werden.

Das aber ginge auf diese Weise so oder so nicht, sondern es müsste extern zugegriffen werden.

Zwar dürfte das auch nicht allzu schwierig sein, aber soll das ruhig wer anderes lösen.

[Gandimann]

Thanks Friends for your kind help :)