Developing.ru

Ты б сначала затеговал и отступы расставил. А то читать неудобно.

Класс матрицы описывается базовым адресом в памяти и размерностью, только вот заместо размерности приняты минимальные и максимальные значения целочисленных индексов строки и столбца
Метод ElemPP возвращает указатель на элемент массива в памяти, исходя из передаваемых индексов, ну а остальные два метода читают или записывают в матрицу значения.

[b][SIZE="6"]Не могу понять что в этих методах происходит(работа с классом)?
[/size][/b]unit Matrisa;
interface
type Real=Single;
RealP=^Real;
type TMatr=class
protected
Orig: Pointer;
kMin, kMax, jMin, jMax:Integer;
function ElemPP(k,j:Integer):RealP;
public
function OutElemm(k,j:integer):Real;
procedure InpElemm(k,j:integer;r:Real);
implementation
uses Uses_Massiv;
function TMatr.ElemPP;
begin
ElemPP:= Ptr(LongInt(Orig)+((k-kMin)*(jMax-jMin+1)+j-jMin)*Sizeof(Real));
end;
function TMatr.OutElemm(k,j:integer):Real;
begin
Result:=ElemPP(k,j)^;
end;
procedure TMatr.InPElemm(k,j:integer;r:Real);
begin
ElemPP(k,j)^:=r;
end;