Мне нужно написать генератор случайных чисел. Исходник я нашел, но он почемуто не работает, пишет ошибку.
Привожу исходник:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TfMain = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fMain: TfMain;
implementation
{$R *.dfm}
procedure TfMain.Button1Click(Sender: TObject);
begin
const
MaxValue = 1000; //максимальный размер случайных чисел
var
a:array [1..100] of integer; //массив целых чисел из ста элементов
i:integer; //счетчик для for
s:string;
begin
//сначала очистим Memo
Memo1.Clear;
//заполним случайными числами от 0 до MaxValue массив a
for i:= 1 to 100 do
s[i]:=Random (MaxValue);
//данные из массива добавляем сначала в строковую переменную, затем в Memo
s:='';
for i:=1 to 100 do
s:= s+IntToStr(a[i])+ ', ';
Memo1.Lines.Add(s);
end;
end.
Может кто что подскажет.
Спасибо!
М | Тегами пользуемся... |
Сообщение отредактировано: volvo -