класс TString

← →
C55 (2004-08-17 14:59) [0]

В своё время возникла необходимость в написание такого класса:

TString = class
private
FData:string;
function GetData:string;
procedure SetData(AData:string);
public
property Data:string read GetData write SetData;
constructor Create(AData:string);
end;

implementation

var S:TString;

constructor TString.Create(AData:string);
begin
SetData(AData);
end;

function TString.GetData:string;
begin
Result:=FData;
end;

procedure TString.SetData(AData:string);
begin
Pointer(FData):=nil;
FData:=AData;
end;

При созданиии нового объекта, конструктором Create (вызывет метод SetData), и последующем доступе к свойству Data - всё в порядке.
Однако, при изменении свойства Data (вызывает тот же метод SetData), всё проходит успешно, но если потом обратиться S.Data, то получаю прежнее значение (указанное при создании объекта), т.е.

S:=TString.Create("aaa");
ShowMessage(S.Data); {"aaa"}
S.Data:="bbb";
ShowMessage(S.Data); {"aaa"}

А если в процедуре SetData убрать Pointer(FData):=nil, то при присваивании сыпется Access Violantion.

В чём дело?? Что не так? Самое интересное, что это вроде работало (я это писал давно), но потом перестало. Что и где я мог сломать?

← →
Digitman © (2004-08-17 15:06) [1]

потому что ерундистикой занялся

куда уж проще :

procedure TString.SetData(AData:string);
begin
FData:=AData;
end;

← →
Anatoly Podgoretsky © (2004-08-17 15:09) [2]

Никакой новой функциональности по отношению с string не наблюдается, кроме лишних вызовов и перерасхода памяти. Особенно на методе GetData

← →
TUser © (2004-08-17 15:09) [3]

У меня нормально все работает, вне зависимости от того, заремил я или нет. На самом деле непонятно, зачем нужно
Pointer(FData):=nil,
равно как зачем нужен такой класс.

← →
C55 (2004-08-17 15:09) [4]

Я ж говорю, тогда будет ACCESS VIOLANTION, при любом присваивании!
Хоть я

procedure TString.SetData(AData:string);
begin
FData:="ds,ajdklas";
end;

напишу.

← →
TUser © (2004-08-17 15:10) [5]

Не будет

← →
Digitman © (2004-08-17 15:11) [6]

> C55 (17.08.04 15:09) [4]
> Я ж говорю, тогда будет ACCESS VIOLANTION, при любом присваивании!

чушь городишь

← →
C55 (2004-08-17 15:12) [7]

Тогда вызывайте дурку..
Ну так и есть, блин.

← →
Digitman © (2004-08-17 15:20) [8]

> Тогда вызывайте дурку

уже ... не уходи никуда, жди ... позвонят в дверь

Ну так и есть, блин.

А создаёшь ли ты её, приятель? :о)

И тишина.

Ну так позвонили, видимо :(

класс TString Найти похожие ветки