[variabel].caption := 'hvordan?';

hvordan vil du sætte en caption på en variabel.. det er da umuligt

Hvis du bare vil have at en variabel (string) får værdien 'hvordan' skriver du bare
variabel := 'hvordan?';

men det kræver at variabel er en string.

var
variabel: string;
begin
  variabel := 'hvordan?';
end;

Variablen vil altid være en label.

et eks. som i pricippet er det samme jeg er ved at lave nu...

var
  muh: integer;
begin
muh := random(20);
label[muh] := 'ko';
end;

De 20 labels <i> er </i> lavet i forevejen.

-Remis

det skulle selvfølgelig ha' været
label[muh].caption := 'ko';

Alle componenter har et index, så det kan du godt:

Procedure SetLabelTo(i: integer, s: string);
begin
  if (Components[I] is TLabel) then
    Components[i].caption := s;
end;

Der var lige en lille fejl, men brug følgende (den virker):

Procedure SetLabelTo(i: integer; s: string);
var
  temp: TComponent;
begin
  Temp := Form1.Components[I];
  if (Temp is TLabel) then
    TLabel(temp).caption := s;
end;

Kaldes med:
  SetLabelTo(1,'Ko');

Hreiff>>Din virker da ikke hvis man f.eks. har sat andre componenter ind på formen før label'erne

Denne virker:

og du kan kalde den sådan her:

var
  muh: integer;
begin
  muh := random(20);
  SetLabelCaption('label' + IntToStr(muh), 'ko');
  label[muh] := 'ko';
end;



procedure SetLabelCaption(LabelName, LabelCaption: String);
var
  i: integer;
begin
  for i := 0 to Pred(ComponentCount) do
    begin
      if (Components[i] is TLabel) and (lowercase(Components[i].Name) = lowercase(LabelName)) then
        (Components[i] as TLabel).Caption := LabelCaption;
    end;
end;


/SpEeDy

Nej, man skal have styr på numrene, ellers må man bruge navne som i speedy's eksempel.

Jeg takker.