Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];

Вниз

класс 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]


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


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


 
Ega23 ©   (2004-08-17 15:25) [9]

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

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


 
Думкин ©   (2004-08-18 06:50) [10]

И тишина.


 
KSergey ©   (2004-08-18 07:17) [11]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.047 c
1-1092818353
YurikGL
2004-08-18 12:39
2004.09.05
Передать TTReeNode


11-1080229086
Sewix
2004-03-25 18:38
2004.09.05
ListView ScrollBar


14-1092921031
stone
2004-08-19 17:10
2004.09.05
"Ремейк" книжных бестселлеров


4-1089807719
BVV
2004-07-14 16:21
2004.09.05
Как разрушать чужие окна?


3-1092359954
vasko
2004-08-13 05:19
2004.09.05
Как приконектится к запароленной базе





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский