Delphi 数据库获取所有用户名

本文整理自网络，侵删。

 
function Tform1.GetAllUser: TStringList;
begin
  Result := TStringList.Create;
  Result.Clear;
  with TADOQuery.Create(nil) do
    try
      Connection := FdbJbda;    
      Close;
      SQL.Clear;
      SQL.Add('select name from data');
      Open;
      while not Eof do
      begin
        Result.Add(Format('%s', [Fields[0].AsString]));
        Next;
      end;
      Close;  

    finally
      Free;
    end;
end;
 

相关阅读 >>

Delphi fmx getapppath 获取app路径

Delphi结合winrar生成自解压文件

Delphi android 程序名称在哪里设置？

Delphi 用正则表达式检查一个串是否是电信的手机号

Delphi strtodatetime 这个函数在win7下出错

Delphi 程序动态改变皮肤

Delphi 隐藏文件夹

Delphi 根据窗口类判断程序是否运行

Delphi 将listview保存为txt

Delphi idtcpclient1实现端口扫描器

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 数据库获取所有用户名