Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Вниз

Как создать свой класс 


Zool   (2002-03-21 20:46) [0]

Здравствуйте уважаемые мастаки! Кто-нибудь плиз приведите пример обьявления нового клсса. Например с именем TNPoint, причём в етом класе мне бы очень хотелось лицезреть два параметра типа Extended.
Если я чё не правильно сказал, то другими словами я хочу, чтобы можно Delphi откомпилировала такой код :
........
var
N : TNPoint;
begin
N.nX := 12.2;
N.nY := 13.1;
........
end;
end.



Юрий Федоров   (2002-03-21 20:53) [1]

type
TNPoint = class
NX, NY : Extended;
end;
.............
........
var
N : TNPoint;
begin
N:=TNPoint.Create;

N.nX := 12.2;
N.nY := 13.1;
........
N.Free;
end;
end.



Zool   (2002-03-21 20:56) [2]

Сенкс, щас опробую :)



Юрий Зотов   (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.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
3-14              vasilly               2002-03-06 10:26  2002.04.01  
Помогите примером!!! Как получить выходные параметры хранимой процедуры!!!


1-224             Алена                 2002-03-20 10:05  2002.04.01  
свойство типа TCollection


1-133             Vampire               2002-03-21 20:43  2002.04.01  
Поверх всех окон и не только


7-321             Aleksandr             2001-12-28 11:08  2002.04.01  
Как узнать, крупный или мелкий экранный шрифт установлен в системе?


1-80              GenBr                 2002-03-18 13:22  2002.04.01  
Меню