Создание простейшего класса (Delphi)

[min@y™]

Сообщение от tito tarantula

Чето меня на мой яндекс диск перекидывает автоматически

Щас попробовал - всё работает. Так шо нинада тут, панимаешь...
Попробуй другим браузером.

[tito tarantula]

наконец-то:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
 end;

 type MyClass = class
private
Name: String;
Color: String;

public
function info():String;//metod vivoda informacii ob objekte
procedure setName(N:string);
function getName():String;
procedure setColor(C:string);
function getColor():String;

  end;

implementation

{$R *.dfm}

procedure MyClass.setName(N:string);  //Ввод имени

begin
  Name:=N;
end;

function MyClass.getName():String;  //Вывод имени

begin
 result:=Name;
end;

procedure MyClass.setColor(C:string);

begin
  Color:=C;
end;

function MyClass.getColor():String;

begin
  result:=Color;
end;

function MyClass.info():String;
begin
  result:= ('Name: '+getName()+ ' Color:'+getColor()); //Vivodim informaciju ob objekte
end;

procedure TForm1.FormCreate(Sender: TObject);
   var
  Obj:MyClass;
  begin
    Obj:=MyClass.Create;
    Obj.Name:='Crocodile';
    Obj.Color:='Green';
    Showmessage(Obj.info()); //Vivodim soobschenie o parametrah objekta
    Obj.Free();
  end;

end.