[Viajero]

Cвой класс желательно в отдельном unit делать и по моему в дельфи, если не ошибаюсь, class(TObject) должен быть.
А что, в данном случае пишет ошибку? желательно текст ошибки.

[Pyro]

первое что бросается в глаза

PHP код:

begin
label1.Caption := inttostr(function test.x(5));
end; 


PHP код:

var
  testobj: test;
begin
  testobj := test.create(10);
  label1.Caption := inttostr(testobj.x(20));
  testobj.free;
end 


[angvelem]

Ещё, это что значит?

Код:

function test.x(y: integer) : integer;
begin
  x := a + y;
end;

сам понял?

[bezzzare]

pyro спасибо))))
все заработало!!!

а можете объяснить что там не так было?

[bezzzare]

я так понимаю мы тут создаем объект класса?

но я же его создал вот тут

constructor test.create;
begin
a:=10;
end;

или это не то?
а что тогда я сделал тут?

[icWasya]

Сообщение от bezzzare

или это не то?
а что тогда я сделал тут?

Тут

Код:

constructor test.create;
begin
a:=10;
end;

ты написал, что должно происходить при создании объекта класса.
Вот тут

Код:

Var
  T: test;

описывается переменная типа вашего класса.
а вот тут

Код:

 T:=test.create

мы и создаем объект класса.

[bezzzare]

понятно!
спасибо всем)

[bezzzare]

подскажите..
мне кажется что,например, родительские классы и их потомков лучше размещать в разных модулях..?

это разумно?
как вообще обычно это делают?

[NumLock]

чтобы не начинать холивар не буду писать разумно или нет описывать класс родителя и его потомков в одном модуле
отвечу так: к примеру модуль Classes:

Код:

type

  TStrings = class(TPersistent)
  private
  ...

  TStringList = class(TStrings)
  private
  ...

[bezzzare]

непонял

[NumLock]

а что тут непонятного? делай как тебе удобней - никто тебя за это пинать не будет. ведь даже в java просто рекомендуют, но не заставляют делать 1 файл = 1 класс)))
у Инди вот так:

Код:

unit IdHTTP;

TIdCustomHTTP = class(TIdTCPClient)

TIdHTTP = class(TIdCustomHTTP)

Код:

unit IdTCPClient;

TIdTCPClient = class(TIdTCPConnection)

лишь бы потом в коде самому не заблудиться

[bezzzare]

а как сделать так чтоб родительский класс был в другом модуле?

[Viajero]

Просто создать отдельный модуль (в Delphi называется Unit) и написать в нём класс. Что тут сложного?

[bezzzare]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if x <= x+75 then begin
x:= x+1;
button1.left := button1.left+x;
end
else Timer1.Enabled:= false;
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
x:=button1.Left;
Timer1.Interval:= 20;
Timer1.Enabled:= true;
end;


почему кнопка не останавливается?((

[Aristarh Dark]

Ошибка в ДНК