Como obtengo los resultados de una consulta???

[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

[oktubre]

antes que nada muchas gracias a todos.

ecfisa: entiendo perfectamente lo de romperme la cabeza intentando acomodar los resultados en un tmemo. he hecho un poco de todo, he contabilizado la longitud del registro al que le ajusto con espacios, y varias otras alternativas como completar los registros al almacenarlos con espacios y esas bobadas.
tal como me decías: "un rompedero de cabeza".

no es de ganas de romperme la cabeza que lo he hecho, sucede que estoy intentando armar un sistema que trabaje tan ágil como una maquina registradora y no que parezca el clasico wizard de formularios.

estoy complicado por donde lo miro, tengo que enviar los datos de renglon por renglon a una impresora fiscal rs232 y eso tambien me quita el sueño. cada linea que tengo que enviar a la placa fiscal la debo intercalar con el armado de lo que veo en pantalla para orientar al operador de la caja. y me he encontrado con todo tipo de problemas.

desde ya muchas gracias a todos, voy a armarlo con dbgrid y que dios y el foro me ayude... jjaja

saludos,
esteban

[ecfisa]

Hola Esteban.

Yo te sugerí lo del DBGrid a fin de mostrarlo en pantalla, pero para armar los renglones perfectamente podés usar TStrings en lugar del Memo. De ese modo lo trabajas como texto y no tenés los problemas de ajuste como en pantalla.
Es decir, mostras en pantalla con el DBGrid pero internamente mandás los datos a la impresora fiscal mediante el Tstrings.

Como ejemplo, reemplazá al Memo en cualquiera de los códigos que te haya funcionado por:

Código Delphi [-]
...
var
 TS: TStrings;
begin
  TS:= TStringList.Create;
  try
    ....
    // Ajustar los espacios en los campos a imprimir ( en este ejemplo lleno con espacios delante de los campos )
    Query1Cantidad.AsString:= Query1Cantidad.AsString + StringOfChar(' ',6-Length(Query1Cantidad.AsString)); 
    Query1Articulo.AsString:= Query1Articulo.AsString + StringOfChar(' ',40-Length(Query1Articulo.AsString));
    Query1Precio.AsString:= Query1Precio.AsString + StringOfChar(' ',15-Length(Query1Precio.AsString));
    ...
    // aca cargas las lineas como lo hacías en el Memo
    Ts.Add(Query1Cantidad.AsString+Query1Articulo.AsString+Query1Precio.AsString); 
    ...
    // mandar a imprimir
  finally
    TS.Free;
  end;
end;

(Quizá encuentres algún error, no tengo Delphi en este equipo )

Saludos.