Skip to main content
Ajuste do código exemplo
Fonte Link
Andrey
  • 1,6mil
  • 14
  • 41
var  
  linhas: string;
begin
  FDQuery1.First;
  while not FDQuery1.Eof do
  begin
    linhas := linhas + FDQuery1.FieldByName('nome').AsString + ', ';

    FDQuery1.Next;
  end;
end;

Até onde entendi de sua pergunta, o código acima irá atender sua necessidade por concatenar o resultado da Query numa string. Você também pode fazer isso numa StringList, segue o código:

var
  linhas: TStringList;
begin
  linhas := TStringList.Create;
  FDQuery1.First;
  while not FDQuery1.Eof do
  begin
    linhas.Add(FDQuery1.FieldByName('nome').AsString);

    FDQuery1.Next;
  end;
end;
var  
  linhas: string;
begin
  FDQuery1.First;
  while not FDQuery1.Eof do
  begin
    linhas := linhas + FieldByName('nome').AsString + ', ';

    FDQuery1.Next;
  end;
end;

Até onde entendi de sua pergunta, o código acima irá atender sua necessidade por concatenar o resultado da Query numa string. Você também pode fazer isso numa StringList, segue o código:

var
  linhas: TStringList;
begin
  linhas := TStringList.Create;
  FDQuery1.First;
  while not FDQuery1.Eof do
  begin
    linhas.Add(FieldByName('nome').AsString);

    FDQuery1.Next;
  end;
end;
var  
  linhas: string;
begin
  FDQuery1.First;
  while not FDQuery1.Eof do
  begin
    linhas := linhas + FDQuery1.FieldByName('nome').AsString + ', ';

    FDQuery1.Next;
  end;
end;

Até onde entendi de sua pergunta, o código acima irá atender sua necessidade por concatenar o resultado da Query numa string. Você também pode fazer isso numa StringList, segue o código:

var
  linhas: TStringList;
begin
  linhas := TStringList.Create;
  FDQuery1.First;
  while not FDQuery1.Eof do
  begin
    linhas.Add(FDQuery1.FieldByName('nome').AsString);

    FDQuery1.Next;
  end;
end;
Fonte Link
Andrey
  • 1,6mil
  • 14
  • 41

var  
  linhas: string;
begin
  FDQuery1.First;
  while not FDQuery1.Eof do
  begin
    linhas := linhas + FieldByName('nome').AsString + ', ';

    FDQuery1.Next;
  end;
end;

Até onde entendi de sua pergunta, o código acima irá atender sua necessidade por concatenar o resultado da Query numa string. Você também pode fazer isso numa StringList, segue o código:

var
  linhas: TStringList;
begin
  linhas := TStringList.Create;
  FDQuery1.First;
  while not FDQuery1.Eof do
  begin
    linhas.Add(FieldByName('nome').AsString);

    FDQuery1.Next;
  end;
end;