[Jia]

Насколько я знаю tpoint поддерживает только целочисленный тип данных, в моём случае значения будут вещественными.

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

Код:

type
   mas=array [1..12, 1..11] of real;
  TMyRec = record
    Field1: real;
    Field2: real;
  end;
  TMyRecArray = array[0..12] of TMyRec;




var
 MyArray: TMyRecArray;
 MyRec: TMyRec;
prm:array[1..12] of real;
a:array [1..2] of mas;
t,hx,y,razmer:integer;

If form1.AHP1.Checked=true then  
      begin

      prm[t]:=norm[y];                        {Заполняем одномерный массив prm нужными значениями из другого массива}
      str((prm[t]):12:12,st);                 {перевод значения в строку}
      ShowMessage('мой массив= '+st);         {вывод строки для контроля заполнения}
      end;
For i:=1 to razmer do
      For j:=1 to razmer do
      if i=j then begin
      with MyRec do
      begin
      Field1:=1;
      Field2:=1;
      end;
      for t:=1 to razmer do                   {прогоняем массив до конца}
      begin
       with MyRec do                   {работа с записью}
       begin
       Field1:=prm[t];   {Первое поле принимает первое значение}
       Field2:=prm[t+1]; {Второе поле принимает второе значение}
       t+1
       end;