delphi保存和提取ini文件信息

procedure TLoginForm.FormShow(Sender: TObject);
var
ini:TIniFile;
name:string;
begin //实现动态提取数据库的登录用户名
edt1.Text:='';
qry1.SQL.Text:='';
qry1.SQL.Text:='select username from LoginUser';
qry1.Open;
dbcmbxhusername.KeyItems.Clear;
dbcmbxhusername.Items.Clear;
if qry1.FieldCount = 1 then
begin
while not qry1.Eof do
begin
dbcmbxhusername.Items.Append(qry1.Fields[0].AsString);
qry1.Next;
end;
end;
if qry1.FieldCount >= 2 then
begin
while not qry1.Eof do
begin
dbcmbxhusername.KeyItems.Append(qry1.Fields[0].AsString);
dbcmbxhusername.Items.Append(qry1.Fields[1].AsString);
qry1.Next;
end;
end;
qry1.Close;
qry1.Free;
//以下代码实现提取上次登录用户名在config.ini文件中
if dbcmbxhusername.DataSource = nil then begin
ini:=Tinifile.Create(extractfilepath(application.ExeName)+'config.ini');
try
name:=trim(ini.readstring('loginuser','Name',''));
finally
ini.free;
end;
if name<>'' then
begin
qry2.SQL.Text:='select username from LoginUser where username='''+name+'''';
qry2.Open;
if not qry2.IsEmpty then //判断上次登录的用户名是否被删除
dbcmbxhusername.Text:=name else
dbcmbxhusername.ItemIndex:= 0;
end else
dbcmbxhusername.ItemIndex:= 0;
end;
qry2.Close;
qry2.Free;
end;