Показать сообщение отдельно
  #7  
Старый 07.11.2010, 19:25
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

А еще в делфях есть такое:
Код:
program Project5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type TRec=object
  procedure Proc;
end;

var Rec:TRec;

procedure TRec.Proc;
begin
  readln;
end;

begin
 Rec.Proc;
end.
думаю в ранних версиях тоже будет работать, т.к. это работает даже в TurboPascal7 Тоже никаких конструкторов, по сути та же запись.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием