unit KomponentenListeUnit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, ComCtrls, Grids, DBGrids,
DB, ADODB,
ActnList, StdCtrls;
type
TForm1 =
class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
ActionList: TActionList;
acListe: TAction;
acEnde: TAction;
con: TADOConnection;
qry: TADOQuery;
dbg: TDBGrid;
stb: TStatusBar;
dbn: TDBNavigator;
meListe: TMemo;
procedure acListeExecute(Sender: TObject);
procedure acEndeExecute(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.acListeExecute(Sender: TObject);
var
i : Integer;
begin
meListe.Lines.Clear;
for i := 0
to Self.ComponentCount - 1
do Begin
meListe.Lines.Add(Format('
%s -> %s',[Self.Components[i].
Name,Self.Components[i].ClassName]));
end;
end;
procedure TForm1.acEndeExecute(Sender: TObject);
begin
Close;
end;
end.