TypInfo und Komponenten verursachen Execption

[Nils_13]

Hi,

ich benutze die Unit TypInfo, um die Sichtbarkeit von bestimmten Komponenten in einer Schleife setzen zu können.
Dies geschieht mit folgendem Code, welcher allerdings in den markierten Zeilen (NICHT in der Funktion) eine Execption verursacht. Warum ?

Delphi-Quellcode:

{$M+}
procedure TfrmMain.SetVisibleValue(aObject: TObject ; aVisible : Boolean);
var Info : PPropInfo;
begin
  Info := GetPropInfo(aObject, 'Visible');
  if Assigned(Info) then
    SetOrdProp(aObject, 'Visible', Integer(aVisible));
end;
{$M-}

[...]
for i := 0 to ComponentCount - 1 do
begin
  with Components[i] do
  begin
    if (Tag and 2) > 0 then
-->   SetVisibleValue(Components[i], True)   <--
    else
-->   SetVisibleValue(Components[i], False); <--
  end;
end;
[...]

[r2c2]

Hallo :hi:

meine Glaskugel sagt, dein Problem hämgt am $M das muss zur Klasse, nicht zur Funktion. Bin mir da ber nicht sicher.

Wobei ich mich sowieso frage, warum du RTTI benutzt. Bracuhst du doch hier gar nicht:

Delphi-Quellcode:

// Pseudocode:
for i := 0 to ComponentCount - 1 do 
begin 
  if Components[i] is TControl then
  begin
    if ... then
      Components[i].Visible := True;
    else
      Components[i].Visible := False;
  end;
end;

mfg

Christian

[Hawkeye219]

Hallo Nils,

durch das WITH greifst du in der IF-Anweisung auf die Komponenten der Komponenten zu. Versuche es so:

Delphi-Quellcode:

[...]
for i := 0 to ComponentCount - 1 do
  SetVisibleValue (Components[i], (Components[i].Tag and 2) <> 0);
[...]

Die Compilerschalter ($M+, $M-) sind überflüssig. Nur Definition der Klasse, für die Typinformationen erzeugt werden sollen, muß damit eingeklammert werden.

Gruß Hawkeye

[Nils_13]

@r2c2: Das Visible nimmt er nicht hin.
@Hawkeye219: Danke, jetzt ist schonmal die Exeption weg, aber warum wird dann die Form fast komplett ausgeblendet ?

[r2c2]

Zitat:

Zitat von Nils_13

@r2c2: Das Visible nimmt er nicht hin.

Deshalb hab ich ja auch Pseudocode drüber geschrieben. Musst natürlich noch auf TControl casten...

mfg

Christian

[Nils_13]

Thx, so funktioniert es.