Como obtengo los resultados de una consulta???

[[BlueSteel]]

Hola

Creo que debiera ser algo similar a esto

Código Delphi [-]
Memo1.Lines.Add(Concat(Tquery1['Campo1'],' ',Tquery1['Campo2'],' - ',Tquery1['Campo3'])

ahora, si lo quieres en un ciclo para que ponga todas los registro de la factura...

Código Delphi [-]
While Tquery1.Eof = False Do
Begin
        Memo1.Lines.Add(Concat(Tquery1['Campo1'],' ',Tquery1['Campo2'],' - ',Tquery1['Campo3']);
        Tquery1.Next;
End;

Salu2

[[ElKurgan]]

También podrías hacer algo como esto:

Código Delphi [-]
 
var
  i: Integer;
  Cadena: String;
begin
  Memo1.Lines.Clear;
  QrProducto.First;
  While not QrProducto.Eof do
  begin
    Cadena := '';
    for i := 0 to QrProducto.FieldCount - 1 do
      Cadena := Cadena + QrProducto.Fields[i].AsString + ' - ';
    Memo1.Lines.Add(Cadena);
    QrProducto.Next;
  end;
end;

Un saludo

[oktubre]

gracias amigos, ya mismo estoy probando las dos opciones,
evidentemente me falta leer mucha documentación sobre lo que ocurre con un Tquery ya que puedo imaginarme que es lo que sucede con el tquery.next y tquery.first pero no estoy seguro del significado de tquery.eof
si tienen algún manual de referencia que incluya una descripción completa de tquery se los voy a agradecer, por lo pronto pruebo eso y sigo buscando en google mas info al respecto.
gracias a los dos.

[[oscarac]]

TQuery.EOF

E nd
O f
F ile

significa Fin de Archivo

[oktubre]

amigos, he probado los codigos y tengo problemas con los strings.
el famoso "invalid variant type conversion" me persigue!!!

usando

Código Delphi [-]
While Tquery1.Eof = False Do
Begin
        Memo1.Lines.Add(Concat(Tquery1['Campo1'],' ',Tquery1['Campo2'],' - ',Tquery1['Campo3']);
        Tquery1.Next;
End;

me da ese error. ya corregí el faltante de un paréntesis que termine el concat y da igual el error.
les copio lo que me funcionó pero me parece un parche medio pedorro.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
LaLinea, Cantidad, Articulo, Precio : string ;
begin
 {*
  SELECT Cantidad, Articulo, Precio FROM DETALLE WHERE Idfactura = 33

 While Tquery1.Eof = False Do
Begin
        Memo1.Lines.Add(Concat(Tquery1['Campo1'],' ',Tquery1['Campo2'],' - ',Tquery1['Campo3']);
        Tquery1.Next;
End;

 *}

  while  Query1.Eof = False do
  begin
 Cantidad := Query1['Cantidad']      ;
 Articulo :=  Query1['Articulo']      ;
 Precio :=   Query1['Precio']          ;


 LaLinea :=  Cantidad +' # '+ Articulo + '          $'  + Precio;
  Memo1.Lines.Add(LaLinea) ;
  Query1.Next ;
  end;

uso delphi 6 y tablas paradox 7

[ecfisa]

Hola oktubre.

amigos, he probado los codigos y tengo problemas con los strings.
el famoso "invalid variant type conversion" me persigue!!!

El problema es que estas accediendo a los campos mediante la propiedad vectorial por omisión FieldValues, y esta es de tipo Variant.

Es incorrecto hacer:

Código Delphi [-]
  Concat(Tquery1['Campo1'],' ',Tquery1['Campo2'],' - ',Tquery1['Campo3']);

Lo correcto sería:

Código Delphi [-]
  Concat(VarToStr(Tquery1['Campo1']),' ',VarToStr(Tquery1['Campo2']),' - ',VarToStr(Tquery1['Campo3']));

Algo así tendría que funcionarte: ( Como también la propuesta de ElKurgan )

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT CANTIDAD,ARTICULO,PRECIO FROM DETALLE');
  Query1.SQL.Add('WHERE IDFACTURA = 33');
  Query1.Open;
  while not Query1.Eof do
  begin
    Memo1.Lines.Add(Query1.FieldByName('CANTIDAD').AsString)+' # '+
                    Query1.FieldByName('ARTICULO').AsString+'          $'+
                    Query1.FieldByName('PRECIO').AsString);
    Query1.Next;
  end;
  Query1.Close;
end;

Otra opción (la más símple) es crear los campos persistentes en el Query y trabajar con ellos.

Pero a todo esto yo veo un problema más difícil de solucionar. El TMemo no está diseñado para trabajar con columnas y tabular los resultados de forma correcta es un rompedero de cabeza. No sirve por ejemplo usar StringOfChar para tratar de ajustar con espacios los campos ya que la diferencia en píxeles de los caracteres no permiten el correcto espaciado.

Sé que pusiste:

pero no quiero usar un DBgrid, quiero generar una línea para ser agregada en un memo

Pero me parece que es mucho más simple usar un TDBGrid creando las columnas con el editor de columnas y poner esto en el evento OnShow del TForm:

Código Delphi [-]
DBGrid1.Options:= [dgTitles];

Saludos.

[abelg]

Mira la solución que te dio ElKurgan, es la más correcta pues ahi ni los nombres de cada campo son necesarios, los recorre con un (for) y con un (while) recorre los registros.
saludos