Delphi, Help!

• 

  Jappe

  16-06-2006 09:55

  Ik heb een vraagje, ik ben bezig met een schoolonderzoek en moet een delphi programma maken. Ik heb een rekentrainer gemaakt maar de bedoeling is dat Als er een Edit staat, er dan automatisch een getal in komt te staan.

  Hoe kan ik dit Coderen?

  Groeten Jappe

  (het liefst zo snel mogelijk)
• 

  Norrit

  27-06-2006 16:14

  Uiteraard het liefst zo snel mogelijk…. Maar dit is wel een erg late reactie.

  De eenvoudigste oplossing:

  interface

  type

  TForm1 = class(…)

  procedure FormCreate(Sender: TObject);

  protected

  procedure RandomEdits;

  end;

  var

  Form1: TForm1;

  implementation

  procedure TForm1.RandomEdits;

  var

  i: Integer;

  begin

  for i := 0 to ComponentCount - 1 do

  begin

  if Components is TEdit then

  TEdit(Components).Text := IntToStr(Random(100) + 1);

  end; // for

  end; // RandomEdits

  procedure TForm1.FormCreate(…);

  begin

  Randomize;

  RandomEdits;

  end;