필드에서 값을 가져와 TStringList에 할당하는 방법은 무엇입니까?

Question

아래 이미지에서 모든 사용자 이름 값을 얻고이를 TStringList 문자열 또는 TMemo으로 변환 할 수 있습니까?

나는 다음 코드를 시도했지만 작동하지 않았다. 당신이 GetUserNames의 두 번째 매개 변수를 변경 한 경우

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; 

당신은 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; 

처럼 사용할 수 있습니다 : 스크린 샷을 가정

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

는이 같은 일을 할 전화 데이터 세트입니다 GetUserNames(DataSet : TDataSet; Strings : TStrings) 에서처럼 TStrings에 Memo1.Lines를 직접 전달할 수 있습니다.