buenos dias
el titulo parece facil, pero el query tiene diferentes tipos de datos
entonces me gustaria tener ideas de como hacr lo que necesito (armar una cadena con los campos de un query)
estaba haciendo mas o menos esto
Código Delphi
[-]
qryTemporal.Close;
qryTemporal.SQL.Clear;
qryTemporal.sql.Add(StrSql);
qryTemporal.Open;
qryTemporal.First; AssignFile( F, ExtractFilePath( Application.ExeName ) + 'prueba.txt' );
while not qryTemporal.Eof do
begin
for i:= 0 to qryTemporal.FieldCount do
begin
if tipodedato de qryTemporal.Fields[i].Value = Fecha Then
_Cadena := _Cadena + DatetoStr(qryTemporal.Fields[i].Value + '¦')
if tipodedato de qryTemporal.Fields[i].Value = Float Then
_Cadena := _Cadena + FloatToStr(qryTemporal.Fields[i].Value + '¦')
if tipodedato de qryTemporal.Fields[i].Value = Integer Then
_Cadena := _Cadena + inttostr(qryTemporal.Fields[i].Value + '¦')
if tipodedato de qryTemporal.Fields[i].Value = string Then
_Cadena := _Cadena + qryTemporal.Fields[i].Value + '¦';
end;
end;
alguna idea?