Tildeling af tekst til Edit-bokse i for-lykke

Der skulle havde stået:
Jeg har lavet 5 edit-bokse med navnene T1, T2, T3, T4 og T5.
Pointen er nu, at for-lykken først tildeler T1’s tekst et tilfældigt tal mellem 1 og 6 – dernæst skal T2’s tekst tildeles et nyt tilfældigt tal mellem 1 og 6 – derefter T3’s, T4’s og T5’s.
Altså skal for-lykken udfører følgende:

Det virkede heller ikke!

Husk altid at kalde randomize inden du bruger random ellers vil
den starte med samme tal altid.

Nedenstående er lidt klodset men det virker.
Husk den tager alle dine Tedit på din form.

procedure TForm1.Button1Click(Sender: TObject);
  var i : Integer;
  str : string;
begin
randomize;
for i := 0 to ComponentCount-1 do
  if (Components[i] is Tedit) then
    (Components[i] as Tedit).text := IntToStr(Random(5)+1);

for i := 0 to ComponentCount-1 do
  if (Components[i] is Tedit) then
  str := str + (Components[i] as Tedit).text;
  showmessage(str);
  end;

Stoney

Er der en nemmere løsning???

Det er nemlig ikke OK, at den tager alle TEdits på formen!

Du kan oprette et statisk array af TEdit's på din form, så er det lettere at holde styr på!

Jeg har lavet noget til det i dette spørgsmål:
http://www.eksperten.dk/spm/275517

Se mit svar 26/10-2002 20:30:30...

Vil du gøre mig den tjeneste, at forklare hvordan jeg kan integrere dette i mit lykke?

Jaaaah, hvis jeg kunne læse spørgsmålet... Jeg er efterhånden ved at være træt af den bug!!! :(((((

Nå, men så vidt jeg husker så var det noget med at skrive Text-property'en i en masse Edits...

private
  Edits: array [1..7{hvor mange du nu ønsker}] of TEdit;

//Når du så har oprettet de edits som det var beskrevet i det andet spørgsmål, så er det let at skrive til dem!

var
  I: Integer;
begin
  for I := 1 to 7 do
    Edits[I].Text := 'Hest!';
end;

"I can see clearly now, the rain is gone..." Jibii!!!

Et stort skulderklap til Admin for at få fikset problemet!!! :)

Nå, men tilbage til problemet...

Først skal variablerne erklæres:

public
  Edits: array [1..5] of TEdit;

Så skal klasserne oprettes:

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  Randomize;
  for I := 1 to 10 do
  begin
    Edits[I] := TEdit.Create(Self);
    Edits[I].Parent := Self;
    Edits[I].Top := I * 20 + 10;
    Edits[I].Left := 10;
    //Så kan du ellers selv sætte properties
  end;
end;

Når vi er færdige med at bruge dem, må vi hellere fjerne dem fra hukommelsen igen:

procedure TForm1.FormClose(Sender: TObject);
var
  I: Integer;
begin
  for I := 1 to 5 do
    Edits[I].Free;
end;

Og nu det smarte... Du ville jo gerne skrive noget i Text-property'en:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 1 to 5 do
    Edits[I].Text := IntToStr(Random(5)+1);
end;

Hvis du også vil opsnappe events for dine edits, så kan det gøres således:

Du opretter en ny procedure under public, private eller hvad du nu vil og giver den parameteret "Sender: TObject", hvis det nu skal være for OnChange...

Eksempel:

public
  procedure EditsChange(Sender: TObject);

Under FormCreate sætter du så følge linie ind i loopet efter at Edit'en er oprettet:

  Edits[I].OnChange := EditsChange;

Når så OnChange bliver kaldt fra en Edit, så har vi proceduren der håndterer hvad der skal ske...

procedure TForm1.EditsChange(Sender: TObject);
begin
  (Sender as TEdit).Text := 'Du har skrevet noget i den her Edit!';
end;

Hvis du sætter dine Edits' tag-property, så kan du måske endda bedre holde styr på dem...

Under FormCreate, i loopet, efter edit'en er oprettet skriver du:

  Edits[I].Tag := I;

Så har du en tal-variabel under din edit som angiver dens nummer i dit array...

Så kunne OnChange-proceduren f.eks. se således ud:

procedure TForm1.EditsChange(Sender: TObject);
begin
  Caption := 'Du har ændret i edit nr. ' + IntToStr((Sender as TComponent).Tag);
end;

Grunden til at jeg skrive TComponent og ikke TEdit er at Tag-property'en allerede er tilført i TComponent-klassen og da TEdit nedarver fra TComponent, så kan vi lige så godt bruge den... Det skader dog ikke at skrive TEdit i stedet for, hvis du har det bedre med det! ;)

Nå, det må vist være dagens lektie for i aften...

Håber det bragte mere forståelse end forvirring!

//hermandsen