Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Наследование. Запутался.   Найти похожие ветки 

 
mfender   (2010-04-30 09:56) [0]

Здравствуйте, товарищи.
Где-то у меня что-то не соображает.
Вводная: есть замечательная штука в Indy - TIdUri. Всё хорошо, но она не разбирает по полкам QueryString. А мне приспичило сделать это.

Делаю следующим образом (в листинге, понятное дело оставляю только соль, выкинув всё ненужное):

 TIdURI = class
 protected
   FURI: String;
   FParams: string;

   procedure SetURI(const Value: String);
   function GetURI: String;
 public
   constructor Create(const AURI: string = ""); virtual;    {Do not Localize}

   property Params: string read FParams write FParams;
   property URI: string read GetURI write SetURI;
 end;

 TIdUriEx = class(TIdUri)
 private
   FParams: string;
   function GetParams: string;
 protected
   procedure SetURI(const Value: string);
 public
   constructor Create(const AURI: string = ""); override;
   destructor Destroy;

   procedure ParseParams; //Тут как раз происходит разбор строки

   property Params: string read GetParams write FParams;
   property URI: string read GetURI write SetURI;
 end;

implementation

procedure TIdUriEx.SetURI(const Value: string);
begin
 inherited SetURI(Value);
 ParseParams;
end;


Вот тут-то происходит затык. Приделать override к SetURI нельзя - статичный метод. И вот как бы сделать, чтобы после всех действий в SetURI базового класа, произвести разбор строки в моём наследнике?


 
mfender   (2010-04-30 10:03) [1]

Всё, всё оказалось правильно. просто я свой ParseParams зацикливал на самого себя, а Indy это Indy и он просто от назойливого меня избавлялся. ))))))



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

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.048 c
15-1269041292
Германн
2010-03-20 02:28
2010.08.27
Инсталлятор


15-1275683377
Юрий
2010-06-05 00:29
2010.08.27
С днем рождения ! 5 июня 2010 суббота


2-1268949255
allrussia
2010-03-19 00:54
2010.08.27
Технология работы процедуры


15-1274151079
wl
2010-05-18 06:51
2010.08.27
мнимое 3d


2-1269172946
Первокурсница
2010-03-21 15:02
2010.08.27
Программа вылетает (delphi 7), свойство кнопки Enabled или Visibl