Problem s testovanim na IS

Problem s testovanim na IS

Newbie

20. 4. 2009 #1

Ahoj,

pisu objekt, ktery bude jazykove lokalizovat jiny objekt. Delam to pomoci metody (procedury), ktere predam TComponent v parametru a podle jejiho typu volam prislusnou proceduru, ktera provede dal jeji lokalizaci.

procedure TLokalizator.LokalizujComponent(AForm: TForm; 

  AComponent: TComponent);

begin

  if AComponent is TForm then

    LokalizujForm(AComponent as TForm)

  else

  if AComponent is TApplication then

    LokalizujApplication(AComponent as TApplication)

  else

  if AComponent is TLabel then

    LokalizujLabel(AForm, AComponent as TLabel)

  else

  if AComponent is TButton then

    LokalizujButton(AForm, AComponent as TButton)

  else

  if AComponent is TComboBox then

    LokalizujComboBox(AForm, AComponent as TComboBox)

  else

  if AComponent is TPageControl then

    LokalizujPageControl(AForm, AComponent as TPageControl)

end;

Pro vsechny doposud potrebne typy komponent to funguje dobre, problem nastal az s typem TPageControl, ktery testovanim na is nevyhovi podmince a tudiz se nezavola procedura LokalizujPageControl.

Muze mi nekdo poradit, co delam spatne?

Nahlásit jako SPAM

IP: 85.93.188.–

Off-line verze seriálu o programování v C#: http://poznavame-c-msnet.wz.cz/ [br] Off-line verze seriálu o programování v Delphi: http://umime-to-s-delphi.wz.cz/

o-lox0

Super člen

21. 4. 2009 #2

Asi máš ten AComponent jako TPageControl špatně inicializován, nevytvořil se apod.

Nahlásit jako SPAM

IP: 85.71.152.–

gully0

Newbie

23. 4. 2009 #3

Tak chybu jsem uz nasel. Byl to "hloupy" preklep v definici uses.
uses
Windows, Forms, IniFiles, Classes, StdCtrls, QComCtrls;

Napsal jsem pred jednotku ComCtrls jednotku pismenoQ, cimz jsem definoval jednotku QComCtrls, ktera existuje pro linux. Zadnou chybu to nevyhodilo, takze jsem tu chybu musel najit "rucne".

Omlouvam se tedy za tento planny poplach, zpusobeny moji blbosti :-)

Nahlásit jako SPAM

IP: 85.93.188.–

Off-line verze seriálu o programování v C#: http://poznavame-c-msnet.wz.cz/ [br] Off-line verze seriálu o programování v Delphi: http://umime-to-s-delphi.wz.cz/