- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
SetLength(s,N);
SetLength(Y,N);
SetLength(U,N);
SetLength(Z,N);
SetLength(E,N);
for i:=0 to N do //какбэ на выход за границы даже не смотрим, не в этом суть
begin
SetLength(S[i],M);
SetLength(Y[i],M);
SetLength(U[i],M);
SetLength(Z[i],M);
SetLength(E[i],M);
end;
Как оказывается давно уже не пишу на дельфях
SetLength(s,N,m);
SetLength(Y,N,m);
SetLength(U,N,m);
SetLength(Z,N,m);
SetLength(E,N,m);
Ну и размерность у него соответственно будет [0..n-1,0..m-1]
http://govnokod.ru/user/5559/codes?page=3
гумно оно такое гумно
sub=array of knot;
Slipknot=array of sub;
subb=array of real;
ValuesInKnots=array of subb;
+1.