[dartv]

Хай Пиплы!
Создал Свой Класс

Код:

type
  TTTN1 = class(TObject)
    function GetDateNNT: TDate;
    procedure SetDateNNT(ttn1_date:TDate);
    property ttn1_date: TDate read GetDateNNT write SetDateNNT;

    function GetSeriesNNT: String;
    procedure SetSeriesNNT(ttn1_series:String);
    property ttn1_series: String read GetSeriesNNT write SetSeriesNNT;

  private
  public
    procedure MessageSH();
  end;

Передаю в свойства ttn1_date и ttn1_series Значения:

Код:

TTN1:=TTTN1.Create;
  TTN1.ttn1_series:=ttn1_seriesE.Text;
  TTN1.ttn1_number:=ttn1_numberE.Text;
  TTN1.ttn1_date:=ttn1_dateE.Date;

Значения ttn1_series в итоге пустое, а ttn1_date По умолчанию 30.12.1899

Методы Read и Write с пустыми операторами, что я делаю не так, почему в свойства класса не передаются параметры?

[Aristarh Dark]

Свойство - это просто отображение поля объекта программисту. А поля для свойства у тебя нет. Ну и Set... Get... тоже пустыми не должны быть, они как раз и должны либо читать значение из поля, либо писать его туда.

[dartv]

Чето с полями я не понял поясни, как их правильно использовать?

[dartv]

Добавил
Fttn1_series:string;
С полями все ОК, но разве это выход? Как передавать параметры именно в Свойства? и что должно быть описано в GET SET Чтобы значения задовались

[Aristarh Dark]

Вот тут я писал как делать свойства и события

[dartv]

Код:

type
  TTTN1 = class(TObject)
    private
      Fseries: String;
    function GerSeries: string;
    procedure SetSeries(const Value: string);
    public
      property series : string read GerSeries write SetSeries;

  end;

implementation

{ TTTN1 }

function TTTN1.GerSeries: string;
begin
  Result:=Fseries;
end;

procedure TTTN1.SetSeries(const Value: string);
begin
Fseries:=Value;
end;