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

[tito tarantula]

Прочитал пример из библиотеки, но не разобрался в чем причина моих ошибок, интернет не помог, вот мой код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)

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

 type MyClass = class//–sozdaem sobstvennij class MyClass
private
Name: String;
Color: String; //– Opisivaem parametri ob`ekta
public
  function info():String;//ob`javljaem metod dlja vivoda informacii ob ob`ekte
 end;


function MyClass.info:String;
 var
begin
  Result:= ('Name:'+MyClass.Name+' Color:'+MyClass.Color); //vivodim informaciju ob ob`ekte
end;

var
  Form1: TForm1;
  Obj:MyClass;  
  begin
    Obj:=MyClass.Create();//Sozdaem objekt
    Obj.Name:='Crocodile';  
    Obj.Color:='Green';
    Showmessage(Obj.info()); //vivodim soobschenie o parametrah objekta
    Obj.Free();  //Razrushaem objekt
  end;
implementation

{$R *.dfm}


end.

[Lardes]

Доступ к переменным

    Obj.Name:='Crocodile';  
    Obj.Color:='Green';

закрыт, так как они в private секции. Лучше обращайтесь к ним через set/get-функции.

function MyClass.info:String;
 var
begin
  Result:= ('Name:'+MyClass.Name+' Color:'+MyClass.Color); //vivodim informaciju ob ob`ekte
end;

Ошибка на var - уберите это объявление

[min@y™]

function MyClass.info:String;
begin
  Result:= ('Name: ' + Name + '; Color: ' + Color);
end;
// в других модулях private видно не будет.

[tito tarantula]

Сделал public, но не помогло ((
Переписал код на геттеры-сеттеры: (Но возникли новые ошибки)
Если можете, скиньте ссылки на тему создания собственных классов, нужно разобраться с ними на конкретных простых примерах.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)

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

 type MyClass = class
private
Name: String;
Color: String;
function info():String;//metod vivoda informacii ob objekte
procedure setName(N:string);
function getName():String;
procedure setColor(C:string);
function getColor():String;
 end;

procedure setName(N:string);
begin
  MyClass.Name:=N;
end;

function getName();
begin
 result:=MyClass.Name;
end;

procedure setColor(C:string);
begin
  MyClass.Color:=C;
end;

function getColor();
begin
  result:=MyClass.Color;
end;

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

var
  Form1: TForm1;
  Obj:MyClass;
  begin
    Obj:=MyClass.Create();
    Obj.Name:='Crocodile';
    Obj.Color:='Green';
    Showmessage(Obj.info()); //Vivodim soobschenie o parametrah objekta
    Obj.Free();
  end;
implementation
{$R *.dfm}
end.

[Stilet]

И в чем смысл опроса?

[min@y™]

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

А вообще - матчасть читай. Могу книжку подарить, старую, но хорошую.

[tito tarantula]

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

И в чем смысл опроса?

Субъективный интерес, объективное желание ускориться в изучении Delphi и помочь таким же как я.

Сообщение от min@y™

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

А вообще - матчасть читай. Могу книжку подарить, старую, но хорошую.

Спасибо, счас посмотрю, а от книги не откажусь))

[min@y™]

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

Спасибо, счас посмотрю, а от книги не откажусь))

книжка тут.

[tito tarantula]

Сообщение от min@y™

книжка тут.

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

[Stilet]

ускориться в изучении Delphi

Книгу Тексейры и Пачеко достань. Отличный ускоритель. Расплющивает посажЫра уже на 2G.

Кстати по поводу ошибки в коде - тела процедур описываются в секции implementation, а ты все в interface загнул. Кажется тебе не по Делфи нужна книга а по классическому паскалю.