Здесь получается такая проблема.Максимальные значения нахожу но при переходе с одного модуля в другой у сохраненные данные стираются.Вот код:
Код:
unit center;
interface
uses windows,sysutils;
type
TCustomer = Record
xmax,ymax : integer;
end;
procedure kvadrat(x,y:integer);
var
custRecPtr : ^TCustomer;
implementation
uses boot;
procedure kvadrat(x,y:integer);
begin
new(custRecPtr);
custRecPtr.xmax:=x;
custRecPtr.ymax:=y;
end;
end.
Через процедуру new данные сохраняются, но когда снова вызывается процедура kvadrat снова вызывается процедура new и данные в xmax и ymax стираются.Помогите решить Задачу.