Case of ~ hochzählen

[aerotech]

Delphi-Quellcode:

  public
  count: byte;

      { Public declarations }

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
     count := 0;
end;

Delphi-Quellcode:

begin
if tquizfragen.FieldByName('L1').AsInteger = 1 then begin
  tquizfragen.first;
  tquizfragen.moveby(random(tquizfragen.RecordCount));

     end else
     Form4.Show;

     count:= count +1;

     case count of
     1: begin
     Lb_Stufe1.color := clred;
     Lb_Stufe15.color := clNone;
     end;

     2: begin
     Lb_Stufe1.color := clred;
     Lb_Stufe2.color := clNone;
     end;

     3: begin
     Lb_Stufe2.color := clred;
     Lb_Stufe3.color := clNone;
     end;

  end;
end;

Das Programm soll bei der richtigen frage jeweils immer ein Label weiter nach oben gehen, sich rot färben und den zurückgelassenen -zurück auf standart setzen.

nur irgendwie will sich hier nix tun, hab noch weitere stufen

LB_Stufe1 bis 15 heißen die Labels, :wall:

[Nikolas]

Mach's doch per Findcomponent. Da alle label den gleichen String und ne Zahl im Namen haben, kannst du die dadurch ansprechen und brauchst keine 15 case-Abfragen.

[aerotech]

Zitat:

Zitat von Toxman

Mach's doch per Findcomponent. Da alle label den gleichen String und ne Zahl im Namen haben, kannst du die dadurch ansprechen und brauchst keine 15 case-Abfragen.

wär super lieb von dir, wenn du es mir irgendwie irgendwie zeigen könntest! :thuimb:

[Nikolas]

einfach findcomponent markieren und F1 drücken.

Delphi-Quellcode:

with TLabel(FindComponent('LB_Stufe' + IntToStr(i))) do
begin
color:=clred;
end;

[Steve]

Oder auch einfach ein ARRAY OF TLabel (dann kannste Dir das Formular halt nimmer so schön "zusammenklicken") :zwinker:

Gruß
Stephan