Posible solución
procedure CreaArchivo
var
lstEmpleados: TStringList;
begin
lstEmpleados := TStringList.Create;
with dtstEmpleados do
begin
First;
while not Eof do
begin
// Agrego clave y nombre separado por un tab
lstEmpleados.Add(FieldByName('CLAVE').AsString+#9+
FieldByName('NOMBRE').AsString);
Next;
end;
end;
lstEmpleados.SaveToFile('C:\EMPLEADOS.TXT');
lstEmpleados.Free;
end;
|