Ændre label1,label2...3...4...5 på en nem måde,

Du må da godt lægge labels i et array, så hvad er problemet?

Hvordan gør man det med labels der er synlige?

Såvidt jeg husker skal (kiggede på Delphi for mange år siden) skal dine labels oprettes som array -- altså have samme navn, når du indsætter dem på din form.

Men som sagt er det nogle år siden ...

Øhm... Så skal jeg igen sidde og sætte alle label'sne ind i et array. Så er jeg jo lige langt :)

Men vent bare til der kommer et par hajer på besøg -- er sikker på at der findes metoder til at indsætte eksisterende elementer ind i nye arrays ;-)

Håber ihvertfald der er en smart måde at gøre det på. Det ser så grimt ud med 24 linjer med Label1.Caption := balallgl..osv

if Controls[I] is TLabel then
  (Controls[I] as TLabel).Caption := StringList1.Strings[I];

Du må lige forklare hvordan det virker :)

Jeg har prøvet bare at sætte det ind. Der sker intet. Ingen fejl ingen action :)

Hvis dine labels er arrangerede rimelig logisk er det klart lettest at smide dem ind i et array... Det gøres således:

private
  Labels: array [1..15{eller hvor mange du nu vil ha}] of TLabel;

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := Low(Labels) to High(Labels) do
  begin
    Labels[I] := TLabel.Create(Self);
    with Labels[I] do
    begin
      Parent := Self;
      Left := 17;
      Top := I*20;
      Caption := 'Hest';
      Tag := I;
      //Sæt diverse andre værdier for dine labels her
    end;
  end;
end;

Når dit program så er færdigt, så er det selvfølgelig en god ide at fjerne dine labels fra hukommelsen igen, efter som du selv har oprettet dem...

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  I: Integer;
begin
  for I := Low(Labels) to High(Labels) do
    Labels[I].Free;
end;

God førnøjelse, nu vil jeg snart i seng!! :)

//hermandsen

Hmmm... Det er mig der sover... Prøv lige at bruge Components i stedet for Controls...

Smutter i seng nu... Prøv dig lidt frem og spørg videre i morgen hvis der er problemer... ;)

//hermandsen

Tak tak :)

Du kan også finde nummeret ud fra labelnavnet. Eks.

procedure TForm1.Button1Click(Sender: TObject);
var
  i,temp: integer;
begin
  for i := 0 to componentCount-1 do
  if Controls[i] is TLabel then
  begin
    Temp := StrToInt(copy(controls[i].name,6,255));  {label nr. }
    (Controls[i] as TLabel).Caption := 'Label nr. '+InttoStr(temp);
  end;
end;