一个简单的问题，请大家帮忙。

Question

不就是采用sql语句解决吗？
反正sql语句中可以使用+.-.*./符号，当选择的Rownum>1时表示输入满足条件，
否则请重新输入。
Y/N?

Answer 1

窗体设置一TComBox，命名为cb1
窗体名为Form1procedure TForm1.FormCreate(Sender: TObject);
begin
  cb1.items.assign(printer.printers);
end;procedure TForm1.Button1Click(Sender: TObject);
var LPrinter:string;
    PrinIniFile:Tinifile;
    LStr:string;
begin
  LStr:=printer.Printers[cb1.itemindex];
  delete(Lstr,pos(' on ',Lstr),Length(LStr));
  PrinIniFile:=TIniFile.Create('WIN.ini');
  try
    LPrinter:=PrinIniFile.ReadString('Devices',LStr,'');
    PrinIniFile.writestring('windows','device',LStr+','+LPrinter);
  finally
    PrinIniFile.free;
  end;
end; 

Answer 2

要是你不会用Delphi连接数据库那大家也帮不了你要不你就问问身边的熟悉的人，差不多会Delphi＋数据库的人都会你的问题。