Wie Werte aus einem Feld abgerufen und einer TStringList zugewiesen werden?

Question

Wie bekomme ich alle Benutzernamen Werte aus dem Bild unten und kann sie in TStringList, Strings oder TMemo konvertieren?

Ich habe versucht, den folgenden Code, aber es hat nicht funktioniert.

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

Ihr Screenshot Unter der Annahme ist ein Datensatz, den Sie so etwas tun nennen:

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; 

Man könnte es wie dieses Btw

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

verwenden, wenn Sie den zweiten Parameter von getUserNames geändert zu einem TStrings, wie in GetUserNames(DataSet : TDataSet; Strings : TStrings) können Sie Memo1.Lines direkt daran übergeben.