（wzrlover ）看例题：

[hammer_shi]

private
MYDycs:array of array of string;
MYState:string;
procedure ReadTableName; //浏览
procedure ReadFNFS;
procedure ReadFromTable;
procedure ShowDycs;
procedure ClearData;

procedure AddCut(Sender: TObject; var Key: Word;
Shift: TShiftState;Edt:TEdit);
procedure UpDownClick(Sender: TObject; Button: TUDBtnType;Edt:TEdit);
procedure NumbInput(Sender: TObject; var Key: Char;Edt:TEdit);

procedure BeforeNewPost; //保存新建
procedure ReadFromVCL; //准备保存
procedure EditPost;
procedure NewPost;
public
{ Public declarations }
end;

var
Form_PrintSet: TForm_PrintSet;
implementation

uses Main,Printers;
{$R *.DFM}
{ ---------- 浏览 ---------- }

procedure TForm_PrintSet.ReadTableName; //读取所有的报表名称
begin
CombBbmc.Items.Clear;
CombBbdm.Items.Clear;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select mc,dm from jtsjk.dbo.DYCSPZB Group by mc,dm');
Query1.Open;
while not Query1.Eof do
begin
CombBbmc.Items.Add(Query1.Fields[0].asstring);
CombBbdm.Items.Add(Query1.Fields[1].asstring);
Query1.Next;
end;
Query1.Close;
CombBbmc.ItemIndex:=0;
CombBbdm.ItemIndex:=0;
end;

procedure TForm_PrintSet.ReadFNFS; //读取字体名与文字大小
Var
FSList: TStringList;
begin
CombSMFN.items.Clear;
CombRQFN.items.Clear;
CombSJFN.items.Clear;
CombCZYGFN.items.Clear;
CombZBDWFN.items.Clear;
CombBTFN.items.Clear;
CombZBTFN.items.Clear;
CombFBTFN.items.Clear;
CombZWFN.items.Clear;
CombDQYFN.items.Clear;
CombZYSFN.items.Clear;
CombSMFS.items.Clear;
CombRQFS.items.Clear;
CombSJFS.items.Clear;
CombCZYGFS.items.Clear;
CombZBDWFS.items.Clear;
CombBTFS.items.Clear;
CombZBTFS.items.Clear;
CombFBTFS.items.Clear;
CombZWFS.items.Clear;
CombDQYFS.items.Clear;
CombZYSFS.items.Clear;

CombSMFN.items:=Printer.Fonts;
CombRQFN.items:=Printer.Fonts;
CombSJFN.items:=Printer.Fonts;
CombCZYGFN.items:=Printer.Fonts;
CombZBDWFN.items:=Printer.Fonts;
CombBTFN.items:=Printer.Fonts;
CombZBTFN.items:=Printer.Fonts;
CombFBTFN.items:=Printer.Fonts;
CombZWFN.items:=Printer.Fonts;
CombDQYFN.items:=Printer.Fonts;
CombZYSFN.items:=Printer.Fonts;

FSList := TStringList.Create;
FSList.Add('8');
FSList.Add('9');
FSList.Add('10');
FSList.Add('11');
FSList.Add('12');
FSList.Add('14');
FSList.Add('16');
FSList.Add('18');
FSList.Add('20');
FSList.Add('22');
FSList.Add('24');
FSList.Add('26');
FSList.Add('28');
FSList.Add('36');
FSList.Add('48');
FSList.Add('72');

CombSMFS.items.AddStrings(FSList);
CombRQFS.items.AddStrings(FSList);
CombSJFS.items.AddStrings(FSList);
CombCZYGFS.items.AddStrings(FSList);
CombZBDWFS.items.AddStrings(FSList);
CombBTFS.items.AddStrings(FSList);
CombZBTFS.items.AddStrings(FSList);
CombFBTFS.items.AddStrings(FSList);
CombZWFS.items.AddStrings(FSList);
CombDQYFS.items.AddStrings(FSList);
CombZYSFS.items.AddStrings(FSList);
end;