[jusalex]

Пытаюсь в TList вставить следующий класс и получаю access violetion.
слетает на SetAll туда передаю String
Где я накололся?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

unit Unit2;   interface    type    TSentens = Class      private        stAll         : String;      published        procedure SetAll(const Value: String);        function GetAll() : String;    end;      implementation      procedure TSentens.SetAll(const Value: String);     begin        self.stAll := Value;     end;      function TSentens.GetAll;      begin       Result := self.stAll;    end; end.

[jusalex]

сам допетрил:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

unit Unit2;   interface    type    TSentens = Class      private        stAll         : String;      published        procedure SetAll(const Value: String);        function GetAll() : String;        constructor Create(Text : String);      end;      implementation    constructor TSentens.Create(Text: String);  begin    stAll         := Text;  end;      procedure TSentens.SetAll(const Value: String);     begin        self.stAll := Value;     end;      function TSentens.GetAll;      begin       Result := self.stAll;    end; end.

и еще плюс вызывал не правильно и передавал в TList не вызвав Create

[Страдалецъ]

А так не проще будет?

Код:

1 2 3 4 5 6 7 8

type   TSentens = Class     private       fstAll         : String;     published       property stAll: String read fstAll write fstAll;       constructor Create(Text : String);   end;