Доброго времени суток.
Мне нужно написать генератор случайных чисел. Исходник я нашел, но он почемуто не работает, пишет ошибку.
Привожу исходник:
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.
| М | Тегами пользуемся... |
s[i]:=Random (MaxValue);
В том то и дело, что проверить не могу, ошибка вылазит на строке "CONST". И что дальше делать не знаю.
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
a[i]:=Random (MaxValue);
//данные из массива добавляем сначала в строковую переменную, затем в Memo
s:='';
for i:=1 to 100 do
s:= s+IntToStr(a[i])+ ', ';
Memo1.Lines.Add(s);
end;
Уважаемый VOLVO большое спасибо, все заработало.