заполнение таблицы

[Andreyka]

Как сделать так чтобы StringGrid была заполнена случайными, но неповторяющимися числами от 0 до 24, таблаца 5х5?

[Djem1991]

покрути поиск, тебе же давали уже ответ)

Заполнение стринггрида - элементарно.
а вот неповторяющиеся числа это тоже элементарная задачка) вбей в поиск, не побрезгуй)

[Andreyka]

Случайными чилами я заполняю но как сделать чтоб они неповторялись?

[Djem1991]

дак при генерации числа поставь условие, если такого числа нет в массиве,то оно туда добавляется,если есть,то прорисходит сново генирация.

[Andreyka]

var x,y: byte;
begin
with StringGrid1 do
for y := 0 to RowCount - 1 do
for x := 0 to ColCount - 1 do
Cells[x,y]:= IntToStr(random(24));

И как в это сделать?

[Djem1991]

var
  i: integer;
  bm: array of boolean; //массив флагов для отслеживания было уже число
  или нет
begin
  SetLength(bm, length(inputMass));
  for i := 0 to length(inputMass) - 1 do
  begin
    inputMass[i] := Unic(bm, range) + 1; //для последовательности 1,2, ... , N
    //inputMass[i]:=Unic(bm,range);//для последовательности 0,1, ... , N
  end;
end;

function Unic(var flag: array of boolean; range: integer): integer;
begin
  {данная функция возвращает одно случайное число}
  result := random(range);
  while flag[result] do
    result := random(range); //ищем какого числа еще нет
  flag[result] := true; //это чтобы не было повторений
end;
var
  i: integer;
  bm: array of boolean; //массив флагов для отслеживания было уже число
  или нет
begin
  SetLength(bm, length(inputMass));
  for i := 0 to length(inputMass) - 1 do
  begin
    inputMass[i] := Unic(bm, range) + 1; //для последовательности 1,2, ... , N
    //inputMass[i]:=Unic(bm,range);//для последовательности 0,1, ... , N
  end;
end;

function Unic(var flag: array of boolean; range: integer): integer;
begin
  {данная функция возвращает одно случайное число}
  result := random(range);
  while flag[result] do
    result := random(range); //ищем какого числа еще нет
  flag[result] := true; //это чтобы не было повторений
end;

попробуй чуток подумать)

можно и проще) но зачем нам это))))))))))

[Djem1991]

procedure TForm1.FillArray(var A: arr; n: integer);
var
  i: integer;
  s: string;
  q: byte;
begin
  randomize;
  s := '';
  for i := 1 to n do
  begin
    q := random(i);
    insert(chr(i), s, q);
  end;
  for i := 1 to n do
  begin
    A[i] := ord(s[i]);
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  FillArray(b,5);
  For i:=1 to 4 do Memo1.Lines.Add(IntToStr(b[i]));
end;

уж как мог упростил)))))

Нашёл покороче...

var
  I, S, R: Integer;
begin
  for I := 0 to High(A) do
    A[I] := I;
  for i := High(A) downto 0 do
  begin
    R := Random(I);
    S := A[R];
    A[R] := A[I];
    A[I] := S;
  end;
end;