Модератор: Модераторы
Код: Выделить всё
type
TIntArray = array if integer;
PIntArray = ^ TIntArray;
var
IntArray: PIntArray;
begin
IntArray = GetMem(100*SizeOf(integer));Код: Выделить всё
IntArray^[0] := 0;Код: Выделить всё
IntArray[0] := 0;Там динамический массив
Код: Выделить всё
type
TIntArray = array if integer;
PIntArray = ^ TIntArray;
var
// IntArray: PIntArray;
IntArray: TIntArray;
begin
// IntArray = GetMem(100*SizeOf(integer));
SetLength(IntArray,100);
IntArray[0] := 0;
endzub писал(а):>>В такой ситуации указатели не нужны:
Всяко бывает, иногда нужны. Помня последнюю тему от SeZuka именно это ему и надо.
Код: Выделить всё
type
TIntArray = array if integer;
PIntArray = ^ TIntArray;
var
IntArray: PIntArray;
begin
New(IntArray);
SetLength(IntArray^,100);
IntArray[0]^ := 0;
endzub писал(а):Всяко бывает, иногда нужны. Помня последнюю тему от SeZuka именно это ему и надо.
SeZuka писал(а):Память под "тело" дин.массива в любом случае распределяется через SetLength().
zub писал(а):Многие неправильные вещи в делфи работали до поры до времени, всплывая при смене оси или компа или тупо по "фазе луны". В фпц такие моменты всплывают сразу.
Код: Выделить всё
{$R-}
uses crt;
const nmax=20;
type
Tmas=^TTmas;{одна строка матрицы}
TTmas=array[1..1] of integer;
Tmatr=^TTmatr;{матрица-массив указателей на строки}
TTmatr=array[1..1] of Tmas;
var
a:Tmatr;
n,m,i,j,k:integer;
f:boolean;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
getmem(a,sizeof(TTmatr)*n);{выделяем память под указатели на строки}
for i:=1 to m do
getmem(a^[i],sizeof(integer)*m);{для каждой строки память для хранения данных}
writeln ('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
begin
repeat
a^[i]^[j]:=random(50)-25;
until a^[i]^[j]<>0;{создаем матрицу без нолей}
write(a^[i]^[j]:4);
end;
writeln;
end;
writeln;
for i:=1 to n do
begin
j:=m;
k:=0;
while(j>=1)and(k=0) do
if a^[i]^[j]<0 then k:=j
else j:=j-1;
if k<>0 then a^[i]^[j]:=0;{замена последнего отр. на 0}
if k=m then f:=true; {если все}
end;
writeln('Замена последних отрицательных в строках на 0');
for i:=1 to n do
begin
for j:=1 to m do
write(a^[i]^[j]:4);
writeln;
end;
for i:=1 to n do
freemem(a^[i],sizeof(integer)*m); {освобождаем память в обратном порядке, сначала удалим строки}
freemem(a,sizeof(TTmatr)*n); {потом указатели на них}
readln
end.Код: Выделить всё
TIntArray = array of integer;Код: Выделить всё
TIntArray = array [0..0] of integer;Код: Выделить всё
IntArray^[n] := m;zub писал(а):Тут лучше какогонибудь учебника по делфи никто не объяснит. первый динамический, второй статический.
отличия те же что у дельфовой string и bp`шной string[255]