методы в ООП

[albatros]

программа зависает
в чём причина?
type
people = class
name: string;

procedure cr(a: integer);
function see: integer;
property payment: integer
read see
write cr;

end;

procedure people.cr(a:integer);
begin
payment:=a;
end;

function people.see: integer;
begin
see:=payment;
end;



var
p: people;





begin
p:=People.create;
readln(a);
p.cr(a);
writeln(p.see);
readln;
end.

[BOBAH13]

Сообщю все что думаю о коде и о вас

1. Вам стоит почитать соглашение о именах в Delphi (object pascal)
2. Нормально, опять такие соглашение, оформлять класс
3. После создания какого-либо объекта, попользовшись им, надо вызвать его "метод" Free или Destroy. Верно будет вызвать Free.

Зависает ? А вы Enter нажимали ? Еще вопрос:

1. Что такое payment, где и как объявлен.
2. Из текста видно что это консольное приложение, где шапка вашего кода я имею ввиду:

program MyProgram;

{$APPTYPE CONSOLE}

3. "Зависает" - очень разплывчато и толком не понятное явление Пожалуйста, приведите текст ошибки.

[albatros]

payment является свойством т.е. полем
ошибка runtime error
(не выводит на экран значение payment

[albatros]

разобрался я в свойствах
как их готовят и с чем едят

program gfdg;

{$APPTYPE CONSOLE}

uses
SysUtils;


type
people = class
name: string;
z: integer;
{* чтобы в дальнейшем использовать процедуру для описания свойства объекта
"Зарплаты" нужно обязательно указать параметры для неё*}
procedure cr(value: integer);// создаём процедуру для записи зарплаты сотрудника компании
function see: integer;
property payment: integer// создаём объект payment типа integer
read see // определим функции для чтения зарплаты сотрудника
write cr;// определим процедуру "cr" для записи свойств объекта

end;

function people.see: integer;
begin
result:=payment;
end;

procedure people.cr(value:integer);
begin
z:=value;
end;

var
p: people;
{* создаём переменную для перехвата введёного значения
с клавиатуры и передачи процедуре people.cr в качестве параметра *}
a: integer;




begin
p:=People.create;
readln(a);
p.payment:=a;
writeln(p.z);
readln;
end.

От Михалыча: Молодец, что сам разобрался. Нам всем за это - плюс. Закрываем эту непродуктивную тему?
Конечно закрываем...