Wie kann ich die Namen aller DBGrids auf einer Form ermittel

[HolgerCW]

Hallo zusammen,

wie kann ich die Namen aller DBGrids auf einer Form ermitteln ? und diese z.B. in eine StringList schreiben ?

Gruss

Holger

[fkerber]

Hi!

Du könntets die Liste aller Controls durchgehen und schauen, wenn es ein DbGrid ist --> Namen reinschreiben

Delphi-Quellcode:

Form1.Controls[]

Ciao, Frederic

[mkinzler]

1. Interiere über alle Controls der Form und überprüfe den Typ.

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TDBGrid then
      ListBox1.Items.Add(Components[i].Name);
end;

[HolgerCW]

Vielen dank für die Hilfen,

und wie sae ich dem ComponentCount, um welche Form es sich handelt ?

Gruss

Holger

[DeddyH]

Schreib sie einfach davor: TFrmMain.ComponentCount. Dann musst Du das bei Components natürlich auch machen ;)

[mkinzler]

Es handelt sich um die Instanz, in der der Code steht (Self)

[HolgerCW]

Fantastisch,

das klappt alles.

Will das nun in eine Funktion packen.

Welche deklaration muss ich für Componenten nehmen ? Als Componente soll mal DBGrid mal ComboBox mal was anderes ... rein.

Delphi-Quellcode:

function Komponenten_ermitteln(Form:TForm; Komponente: ???):String;
var
 I: integer;
 Wert: String;
begin

 For I := 0 to Form.ComponentCount - 1 do
 begin

  if Form.Components[I] is Komponente then
  begin
   Wert := Wert + Form.Components[I].Name + #13#10;
  end;
 end;

 Result := Wert;

end;

Gruss

Holger

[shmia]

Schau mal in der Code-Library: http://www.delphipraxis.net/internal...ct.php?t=52210
Durch Benützung von Callbacks sind die Funktionen universell einsetzbar.

[RavenIV]

Du musst als Komponente diejenige Komponente nehmen, die beiden als nächsthöhere Instanz gleich ist.
Im Zweifelsfall nimm TWinControl, das trifft bei den meisten zu.