Выдает ошибку [Error] Unit1.pas(46): Method identifier expected

[ckbdf16]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Edit4: TEdit;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure init(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
Form1: TForm1;
  reg:Treg;
  i:integer;
implementation

{$R *.dfm}
procedure TForm1.init;
begin
i:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
reg:= Treg.Create;
reg.FIO:= Edit1.Text;
i:=i+1;
reg.registracia(i);
Edit4.Text:= Treg.count;

end;

end.

вторая:
unit Unit2;

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

  Treg=class
  protected
   FFIO: string;
   Fmassive: array [1..5] of string;
   Fcount:integer;
   procedure SetFIO(Value: string);
   procedure Setcount(Value: integer);

public

   Constructor Create;

   property FIO: string write SetFIO;
   property count:integer write Setcount;
   procedure registracia(Value: Integer);

 end;

implementation

Constructor Treg.Create;
  begin

end;

procedure Treg.SetFIO(Value: String);

 begin FFIO:= Value;
 end;
procedure Treg.Setcount(Value: Integer);
 begin Fcount:=Value;
 end;
procedure Treg.registracia(Value: Integer);
begin
  //ìåòîä

 Fmassive[Value]:=FFIO;
 Fcount:=Value;

end;

end.

Ошибка здесь Edit4.Text:= Treg.count;. В чем ошибка?



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[p51x]

функции вызываются со скобками()

[Mad_Cat]

Edit4.Text:= reg.count;

[ckbdf16]

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

Edit4.Text:= reg.count;

выдает ошибку [Error] Unit1.pas(46): Cannot read a write-only property

[p51x]

Ну так он у вас и описан как ТОЛЬКО ДЛЯ ЗАПИСИ

[Serge_Bliznykov]

p51x, +1


ckbdf16
1) дайте исходник модуля, где описывается класс reg (по всей видимости это Unti1)

2) сразу могу предположить, что как только Вы сделаете Count доступным для чтения, так сразу вылезет ошибка несовместимости типов. (сужу исключительно по имени - Count числовое целое поле?
Тогда надо

Edit4.Text := IntToStr( reg.count);