Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
ВнизКак создать свой класс Найти похожие ветки
← →
Юрий Зотов (2002-03-21 21:01) [3]type
TNPoint = class(TObject) // Выбор предка - за Вами
private
FnX: extended;
FnY: extended;
public
property nX: extended read FnX write FnX;
property nY: extended read FnY write FnY;
end;
var
N: TNPoint;
begin
N := TNPoint.Create;
try
N.nX := 12.2;
N.nY := 13.1;
...
finally
N.Free
end
end;
А вообще-то, здесь объект не обязателен, для подобных целей существуют записи - с ними и работать проще, и памяти они меньше требуют.
type
TNPoint = record
nX: extended;
nY: extended
end;
И вот тогда Ваш код сработает без всяких Create и Free.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c