случайный вызов процедуры

[yulia]

Есть большое количество почти одинаковых процедур. Как можно одну из них вызвать рендомом?

[mihali4]

Сгенерировать случайное число "а", затем

case a of
1: вызов первой процедуры;
2: вызов второй процедуры;
...
100: вызов сотой процедуры;

[Kostia]

или так

...
procedure p1;
procedure p2;
procedure p3;

var
  Form1: TForm1;
  m: array[1..3]of procedure=(p1,p2,p3);

implementation

procedure p1;
begin
  form1.Caption:='1';
end;

procedure p2;
begin
  form1.Caption:='2';
end;

procedure p3;
begin
  form1.Caption:='3';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  m[1+random(3)];
end;
...

[yulia]

все гениальное просто!! спасибо большое, а то я уже в такие дебри полезла...

только вот теперь вопрос, почему когда я вот так вызываю процедуру, то оно пишет, что недостаточно параметров
ShC3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

точнее я знаю почему - потому что нажатия на кнопку не происходит и ему неоткуда брать значения этих параметров. Как ее правильно вызвать?
ShC3MouseDown(ShC3; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); - а остальные параметры?

[Kostia]

А у "ShC3" есть процедура OnMouseDown. Если да, то ничего вызывать не нужно, а просто присвоить указатель одной процедуре, другой:
ShC3.OnMouseDown:=ShC3MouseDown;
И тогда все будет работать автоматически.

[mihali4]

Переменная должна быть объявлена глобальной.
И в первых строках вашего обработчика

ShC3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
// вот тут
...
end;

вы можете спокойно ее значение проанализировать...
Иначе придется переопределять стандартную процедуру OnMouseDown.

[yulia]

спасибо, оно запустилась.... но процедуру, как я понимаю, не вызывает.

Процедура сама имеет вид:
procedure TForm1.ShC3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ShC3.Brush.Color:=BelKlavNag;
midiOutShortMsg (hmidi, $3C90+((vel) * $10000));
end;

ну и потом я пишу:
procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
randomize;
i:=random(24);
case i of
0: begin ShC3.OnMouseDown:=ShC3MouseDown;
ShC3.OnMouseUp:=ShC3MouseUp; end;
...

и ничего не происходит (((

[mihali4]

и ничего не происходит

Ну, дык... Простите, а вот этим вы что хотели сказать?

ShC3.OnMouseDown:=ShC3MouseDown;
ShC3.OnMouseUp:=ShC3MouseUp;

Что а:=a & b:=b ?
Где у вас сам вызов процедуры ShC3MouseDown ???

[yulia]

Сообщение от Kostia

А у "ShC3" есть процедура OnMouseDown. Если да, то ничего вызывать не нужно, а просто присвоить указатель одной процедуре, другой:
ShC3.OnMouseDown:=ShC3MouseDown;
И тогда все будет работать автоматически.

Или я что-то не так поняла?