Метод Create

[Skyline174Rus]

В техникуме дали задание сделать программу демонстрации метода Create в Borland Delphi7. Я этим методом не пользовался подскажите как реализовать программу если можно напишите код. Заранее благодарен!!!

[Utkin]

Искусственное создание компонента в процессе создания формы:

var
   Form1: TForm;
   Memo: TMemo;

procedure TForm1.FormCreate(Sender: TObject);
begin 
       
      Memo1:=TMemo.Create(Self);
      Memo1.Parent:=self;
end;

[Stilet]

демонстрации метода Create

Просто метода, который так называется или конструктора?

[Skyline174Rus]

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

Просто метода, который так называется или конструктора?

Про100 метода

[Stilet]

Запросто:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  type
  TObj=class
   procedure Create;
  end;

{ TObj }

procedure TObj.Create;
begin
 writeln('This is demo of Create Method');
end;

var a:TObj;
begin
 a.Create;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Делфи 6

Про100

Что за выпендреж? Русский язык уже не в моде? Ох уж эта школота продвинутая...

[Skyline174Rus]

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

Запросто:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  type
  TObj=class
   procedure Create;
  end;

{ TObj }

procedure TObj.Create;
begin
 writeln('This is demo of Create Method');
end;

var a:TObj;
begin
 a.Create;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Делфи 6

Что за выпендреж? Русский язык уже не в моде? Ох уж эта школота продвинутая...

Может в Делфи 6 и пашет а в 7 нет

[Utkin]

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

Может в Делфи 6 и пашет а в 7 нет

Может у Вас и не пашет, а в Дельфи 7 идет на ура. Отображается надпись говорящая, о том, что произошел вызов соответствующего метода.

[Stilet]

Skyline174Rus

Все там работает. Это консольная программа. Это просто пример.