Hallo zusammen,

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

Gruss

Holger

Hi!

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

Form1.Controls[]
Ciao, Frederic

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

markieren

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;

Vielen dank für die Hilfen,

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

Gruss

Holger

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

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

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.

zusammenfalten · markieren

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

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.

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.