フィールドから値を取得してTStringListに割り当てる方法は？

Question

下の画像からすべてのユーザー名の値を取得し、TStringList、文字列またはTMemoに変換するにはどうすればよいですか？

私は、次のコードを試してみましたが、それはうまくいきませんでした。

あなたのスクリーンショットは、あなたがこのような何かを呼び出すデータセットであると仮定すると、

with q3 do 
    var txResul:stringlist 
    begin 
    Close; 
    SQL.Clear; 
    SQL.Add('SELECT*FROM user'); 
    Open; 
    Next; 
    end; 
    txtResult.Add(q1.FieldByName('username').AsString); 

Answer 1

：

procedure GetUserNames(DataSet : TDataSet; StringList : TStringList); 
var 
    Field : TField; 
begin 
    Field := DataSet.FieldByName('username'); 
    StringList.BeginUpdate;  
    try 
    DataSet.DisableControls; 
    try 
     DataSet.First; 
     while not DataSet.Eof do begin 
     StringList.Add(Field.AsString); 
     DataSet.Next; 
     end; 
    finally 
     DataSet.EnableControls; 
    end; 
    finally 
    StringList.EndUpdate; 
    end; 
end; 

あなたがGetUserNamesの2番目のパラメータを変更した場合は、ところでこの

procedure TForm1.GetUsers; 
var 
    TL : StringList; 
begin 
    TL := StringList.Create; 
    try 
    GetUserNames(MyTable, TL); 
    Memo1.Lines.Text := TL.Text; 
    finally 
    TL.Free; 
    end; 
end; 

のようにそれを使用する場合がありますGetUserNames(DataSet : TDataSet; Strings : TStrings)のようにTStringsにMemo1.Linesを直接渡すことができます。