Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

класс TString [D6]

C55 © (2004-08-17 14:59:00)
В своё время возникла необходимость в написание такого класса:

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.

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

KSergey (2004-08-18 07:17:00) [1]
Ну так позвонили, видимо :(

Думкин (2004-08-18 06:50:00) [2]
И тишина.

Ega23 (2004-08-17 15:25:00) [3]
Ну так и есть, блин.

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

Digitman (2004-08-17 15:20:00) [4]

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

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

C55 (2004-08-17 15:12:00) [5]
Тогда вызывайте дурку..
Ну так и есть, блин.

Digitman (2004-08-17 15:11:00) [6]

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

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

TUser (2004-08-17 15:10:00) [7]
Не будет

Anatoly Podgoretsky (2004-08-17 15:09:00) [8]
Никакой новой функциональности по отношению с string не наблюдается, кроме лишних вызовов и перерасхода памяти. Особенно на методе GetData

TUser (2004-08-17 15:09:00) [9]
У меня нормально все работает, вне зависимости от того, заремил я или нет. На самом деле непонятно, зачем нужно
Pointer(FData):=nil,
равно как зачем нужен такой класс.

C55 (2004-08-17 15:09:00) [10]
Я ж говорю, тогда будет ACCESS VIOLANTION, при любом присваивании!
Хоть я

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

напишу.

Digitman (2004-08-17 15:06:00) [11]
потому что ерундистикой занялся

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »