[drkane]

народ, кто нибудь пробовал эту процедуру:

Код:

var
  int   : Integer;
  i     : Integer;
begin
  ShowMessage('Первые 5 фиксированных чисел');
  for i := 1 to 5 do
  begin
    int := 1 + Random(100);  
    ShowMessage('int = '+IntToStr(int));
  end;
  Randomize;
  ShowMessage('');
  ShowMessage('Следующие 5 случайных чисел');
  for i := 1 to 5 do
  begin
    int := 1 + Random(100);   
    ShowMessage('int = '+IntToStr(int));
  end;
end;

переделать в функцию? объектная она работает замечательно, а в виде функции ну никак! 4 дня бьюсь, так изменю, этак изменю... ни в какую...

[Drozh]

А что у тебя не получается? Или что тебе нужно чтобы получилось? Уточни плиз

[drkane]

этот код - объектная процедура. я хочу переделать ее в ф-цию NumFunc(j:integer):integer где j допустим можно использовать как random(j). мне все равно где j там будет лишь бы заработало...
а в самой процедуре будет так

Код:

if NumFunc(10) = 5 then begin

примерно так

[Drozh]

Чесно, либо я перепил пенного, либо хочу спать, но тебя я реально не понимаю))) Толком с расстановкой можешь объяснить?
Куда ты хочешь передавать функцию

Код:

NumFunc(j:integer):integer

???
И в какой процедуре должно быть так:

Код:

if NumFunc(10) = 5 then begin

???

[M.A.D.M.A.N.]

Код:

Randomize;
......
function CommonNumeric(var OutBuff:Array Of Byte):Byte;
var I:Byte;
begin
  For I:=1 To 5 Do
    OutBuff[I-1]:=1+Random(100);
  Result:=I;
end;

Usage this function

Код:

var Common:Array[0..4]Of Byte;
      Count,Index:Byte;
begin
  Count:=CommonNumeric(Common);
  For Index:=0 To Count-1 Do
    ShowMessage(IntToStr(Common[Index]));
end;

[drkane]

M.A.D.M.A.N., я твой код пытался подогнать, но все аналогично не работает... вот как я хочу:

Код:

function randomall(i1:integer):integer;
var
  int: Integer;
begin
  randomize;
  begin
    int := 1 + Random(i1);
    result:= int;
  end;
end;

procedure privet(P:pchar);stdcall;

var
  s:string;
  int:integer;
begin
  s:= strpas(P);
  int:= randomall(strtoint(s));
  showmessage(inttostr(int));

end;

как мне переделать ф-цию?