Pole – Delphi – Fórum – Programujte.com

Zdravim potreboval bych jestli by mi nekdo mohl napsat kod ve kterem do jednorozmerneho pole vygeruje nahodne cisla a pak jednoduse to pole vypise treba do Mema nebo Caption. Diky za pomoc ,prisel jsem jsem o svoje zdrojaky a nikde na intrnetu to nemuzu najit.

Mas Memo a jedno tlacidlo. Kliknutim na tlacidlo sa vypise pole. Pole sa vytvara pri starte, kde sa aj naplni (pocet aj cisla su ako konstanty). V inicializacii zavolame randomize - zapnutie generatora nahodnych cisel.

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  // ---------------------------------------------------------------------------

  TForm1 = class(TForm)

    Button1: TButton;

    Memo1: TMemo;



    procedure Button1Click(Sender: TObject);

  private

    FPole: TStringList;

  protected

    procedure VytvorPole;

    class procedure DoplniPole(Pole: TStringList; const Pocet: Integer);

  public

    constructor Create(AOwner: TComponent); override;

    destructor Destroy; override;

  end; // TForm1



var

  Form1: TForm1;



implementation



const

  // ---------------------------------------------------------------------------

  MaxNahodneCislo       = 1000;

  PocetCisel            = 20;



{$R *.dfm}



// *****************************************************************************

// Vypiseme pole kliknutim na tlacidlo

procedure TForm1.Button1Click(Sender: TObject);

var

  Index: Integer;

begin

  for Index := 0 to Pred(FPole.Count) do

    Memo1.Lines.Add(FPole[Index]);

end;



// *****************************************************************************

procedure TForm1.VytvorPole;

begin

  FPole := TStringList.Create;

end;



// *****************************************************************************

class procedure TForm1.DoplniPole(Pole: TStringList; const Pocet: Integer);

var

  Index: Integer;

begin

  if Assigned(Pole) then

  begin

    for Index := 1 to Pocet do

      Pole.Add(IntToStr(Random(MaxNahodneCislo)));

  end; // IF

end;



// *****************************************************************************

constructor TForm1.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

  VytvorPole;

  DoplniPole(FPole, PocetCisel);        // Naplnime pole s nejakymi cislami

end;



// *****************************************************************************

destructor TForm1.Destroy;

begin

  FreeAndNil(FPole);

  inherited Destroy;

end;



// *****************************************************************************

initialization

  Randomize;



end.