Integer og boolean

Jeg kan lige præcisere spørgsmålet - det skal helst også være navnene på labelsne. Nu er de kaldt label0, label1, label2... label9, så hvis det kan være det sidste bogstaver(tal), så ville det være lækkert

Du indsætter en tæller:

var
c : integer;
.
.
c:=0;
her finder du alle labels og efter hver fundne skriver du
inc(c);
.
.
til sidst har du antallet i c
ShowMessage('Antallet af fundne labels:'+inttostr(c));

Nå, så ikke lige din tilføjelse, den tænker jeg lige over :)

Hvad med at vise hele koden du bruger?

for i := 1 to 3 do
  begin
    for j := 1 To 3 do
      begin
        z := (j - 1)*3 + i - 1;
  TLabel(findcomponent('felt' + inttostr((z)))).caption := 'X';

Skal dine labels hedde felt1 til felt8? Var det ikke bedre at kalde dem noget mere sigende?

hmm, jeg tænkte, at det ville være smart at kalde dem noget meget generelt, og bare tilføje nogle flere numre - så er det nemmere at hive det sidste tal ud. Men jeg kan vel kalde dem "cell" så

Men ellers forstår jeg ikke helt spørgsmålet, den sidste labels du finder vil jo hedde felt8

jeg vil finde de labels, som har captionen 'goddag'. Dette kan eksempelvis være cell1, cell3 og cell8. Så vil jeg blot have tallet 1, 3 og 8

Du vil altså have en function som kan returnere et array af tal som viser hvilke labels der indeholder goddag?

Ja, lige præcis! Det lyder blot bedre når du siger det :-)

Det laver jeg lige, man kan også lave en function der giver dig et array som indeholder selve labelsene hvis det er bedre?

Nej, synes hellere jeg vil se på tallene. Så vidt jeg ved skal man bruge noget med Rightstr?

Start med at definere denne type:

type
  Tai = array of string;

Tilføj StrUtils til din uses, RightStr befinder sig i denne unit.

Her er selve funktionen:
procedure FindLabels(C : TComponent;Tekst : string;var ai : Tai);
var
    i : integer;
begin
    for i:=0 to C.ComponentCount-1 do
      if (C.Components[i] is tlabel) and ((C.Components[i] as tlabel).Caption=Tekst) then
      begin
          SetLength(ai,Length(ai)+1);
        ai[Length(ai)-1]:=RightStr(C.Components[i].Name,1);
      end;
end;

---------

Hvis du vil finde alle labels på din form der indeholder 'goddag' kan du bruge den sådan:

procedure TForm1.Button2Click(Sender: TObject);
var
    ai : Tai;
  i : integer;
begin
    FindLabels(Self,'goddag',ai);
  for i:=0 to Length(ai)-1 do
      showmessage(ai[i]);
end;

det ser rigtig fint ud - læg gerne et svar Kroning.

ok