Schleife

Halunkel · Beiträge: 34

Hallo!

Wie kann ich denn mit einer Schleife in folgendem Fall viel Schreibarbeit sparen??

Ich würde gerne viele Labels (und andere Dinge) einblenden, wenn eine gewisse Auswahl in einer Combobox gewählt wurde.

Die Labels heißen Label1....Label100 und so würde ich nur ungerne schreiben müssen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

if combobox1.Text = 'Eintrag1' then
  begin
    Label1.visible := true;
    Label2.visible := true;
         .
         .
         .
    Label100.visible := true;

Da gibt es doch sicher ne Möglichkeit das etwas eleganter und übersichtlicher zu fassen mit ner for... to... Schleife oder?? Aber wie bekomme ich die Variable dann in den Label-Begriff?? Ich hätte es mir etwa so vorgestellt, aber das wäre auch zu einfach gewesen...

markieren

Delphi-Quelltext

1:
2:
3:
4:

if combobox1.Text = 'Eintrag1' then
  begin
    for i:= 1 to 5 do
      Label(i).visible := true; {funktioniert leider nicht}

Dann hab ich noch was gelesen von FindComponent, aber das klappt leider auch nicht in etwa so:

markieren

Delphi-Quelltext

1:
2:
3:
4:

if combobox1.Text = 'Eintrag1' then
  begin
    for i:= 1 to 5 do
      TLabel(FindComponent('Label'+IntToStr(i)+'.visible')) := true; {funktioniert leider nicht}

Gibts hierfür ne Lösung??

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

War ja fast richtig, hättest Du deinen obigen Code mal mit dem unteren verglichen wärest Du wahrscheinlich noch draufgekommen wo der Fehler lag.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender: TObject);
var
 i:Integer;
begin
if combobox1.Text = 'Eintrag1' then
  begin
    for i:= 1 to 5 do
      TLabel(FindComponent('Label'+IntToStr(i))).visible := True;
  end;
end;

Jetstream · Beiträge: 222

Du hast 100 Labels per Hand erstellt ? RESPEKT !!

kannst dir auch einfach 100 Labels in einem Array dynamisch erzeugen, das geht wahrscheinlich einfacher und die Klickarbeit fällt weg.

geht irgendwie so:

markieren

Delphi-Quelltext

1:
2:
3:
4:

Feld:Array[1..100] of TLabel;
a:integer;

for a:=1 to 100 do Feld[a].visible:=true;

Da ich mich grade mit Java rumschlage, kann die Syntax auch vollkommen falsch sein :roll:

Und die Labels sollten noch Eigenschaften zugewiesen bekommen.

Jakob Schöttl · Beiträge: 929 Erhaltene Danke: 1 Delphi 7 Professional

Ich hab das mal so gemacht:

markieren

Delphi-Quelltext

1:
2:

  for i := 1 to 5 do
    (FindComponent('Label' + IntToStr(i)) as TLabel).Visible := False;

So hats bei mir damals glaub ich geklappt! Probiers aus.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme