et stort tælel prolem

Howdy, delphi'er

Jeg sidder her med 5 edit felter, skal senere udvides til 100, og de skal der stå nogle ting i:

edit1 skal der stå, er
edit2 skal der stå, en
edit3 skal der stå, en
edit4 skal der stå, en
edit5 skal der stå, er

så skal jeg have en knap, som tester hvor mange som er rigtige, af de fem, hvad skal koden til knappen være?????

på forhånd tak!
******************
*Fishing is a lifestyle*
*Like Computer is *
******************

Fatter ikke helt dit tabel system, men det er at gå igennem dem er simpelt! f.eks.:

var
I: Integer;
begin
for I := 0 to Form1.ComponentCount-1 do begin
if Form1.Components[I] is TEdit then begin
// Her kører du så din tabel kode!
end;
end;
end;

MH.

The-Freak

Livet er for kort til at kede sig.

Min tabel kode, jeg skal bare have tjekety om der står det rette i de fem felter???
******************
*Fishing is a lifestyle*
*Like Computer is *
******************

Howdy, delphi'er

Jeg sidder her med 5 edit felter, skal senere udvides til 100, og de skal der stå nogle ting i:

edit1 skal der stå, er
edit2 skal der stå, en
edit3 skal der stå, en
edit4 skal der stå, en
edit5 skal der stå, er

så skal jeg have en knap, som tester hvor mange som er rigtige, af de fem, hvad skal koden til knappen være?????

på forhånd tak!
******************
*Fishing is a lifestyle*
*Like Computer is *
******************

Kode 

var
  I: Integer;
begin
  for I := 0 to Form1.ComponentCount-1 do begin
    if Form1.Components[I] is TEdit then begin
      // Her kører du så din tabel kode!
    end;
  end;
end;

Howdy, delphi'er

Jeg sidder her med 5 edit felter, skal senere udvides til 100, og de skal der stå nogle ting i:

edit1 skal der stå, er
edit2 skal der stå, en
edit3 skal der stå, en
edit4 skal der stå, en
edit5 skal der stå, er

så skal jeg have en knap, som tester hvor mange som er rigtige, af de fem, hvad skal koden til knappen være?????

på forhånd tak!
******************
*Fishing is a lifestyle*
*Like Computer is *
******************

Fatter ikke helt dit tabel system, men det er at gå igennem dem er simpelt! f.eks.:

var
I: Integer;
begin
for I := 0 to Form1.ComponentCount-1 do begin
if Form1.Components[I] is TEdit then begin
// Her kører du så din tabel kode!
end;
end;
end;

MH.

The-Freak

Livet er for kort til at kede sig.

Hmm.. det var nok lidt overdrevent, jeg skal højest øre det med 20, men der må være en kode, som jeg kunen ændre lidt i så den tjekkede alle??
******************
*Fishing is a lifestyle*
*Like Computer is *
******************

Kode 

procedure TjekEdits;
var
  I: Integer;
begin
  for I := 0 to Form1.ComponentCount do begin
    if Form1.Components[I] is TEdit then begin
      if (TEdit(Form1.Components[I]).Text <> 'en') or (TEdit(Form1.Components[I]).Text <> 'et') then begin
        raise Exception.Create('En eller flere felter er ikke ''en'' eller '''et''');
      end;
    end;
  end;
end;