Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Ayuda con Tstringlist (https://www.clubdelphi.com/foros/showthread.php?t=19033)

ronimaxh 02-03-2005 17:59:35

Ayuda con Tstringlist
 
Hola amigos del club, quiero aprender a usar stringlist, la pregunta es la siguiente despues de declarar una variable tipo Tstrlist, luego lo creo ejemplo
archivo:=Tstringlist.create;
archibo.add('esto es una preuba');

ahora aqui esta la pregunta con esto me escribe en el archivo txt, pero si quiereo cambiar de linea como lo hago, o si quiero llenar varias lineas como hacen esto. desde ya gracias!!!.

Neftali [Germán.Estévez] 02-03-2005 18:09:35

Vamos por partes...

Código Delphi [-]
  archivo:=Tstringlist.create;
  archibo.add('esto es una preuba');

Esto no escribe en ningun fichero, sólo añade elementos (líneas) al StringList (que está en memoria).
Si quieres guardarlo en un fichero deberá hacer:

Código Delphi [-]
 archivo.SaveToFile('c:\fichero.txt');

Si quieres modificar la línea puedes hacerlo así:

Código Delphi [-]
   archivo.strings[0] := 'esto es la prueba modificada';

Para volver a grabarlo, repites lo dicho anteriormente.
Si quieres llenar varias líneas:

Código Delphi [-]
   archivo.add('esto es una preuba');
   archivo.add('esto es la segunda línea');
   archivo.add('esto es la tercera línea');
   ...

geovany 02-03-2005 18:18:27

StringList
 
Para Enviar el contenido de un stringlist a un archivo tienes que poner lo siguiente

Archivo.SaveToFile('nom_arch.ext');

Cuando lo quieras recuperar solo tienes que hacer lo contario

Archivo.LoadFromFile('nom_arch.ext');

Y si quieres obtener el valor algun renglon o borrarlo solo haslo por el indice
por ejemplo para obtener el valor de un renglonpor medio del indice es:

Archivo.valuesFromIndex[index]; o si kieres borrarlo

Archivo.Delete[index]; lo de modificarlo no me acuerdo pero lo investigare

geovany 02-03-2005 18:20:00

StringList
 
Creo k Nentali se me adelanto ahi esta como modificar el StringLit

ronimaxh 02-03-2005 18:35:19

Gracias por contestar, lo que quiero hacer es un stringlist, que me permita generar un archivo txt de empleados. (no se como hacerlo), entiendo los puntos que me aclaraste, pero tengo una duda.

Si tengo una tabla con 200 empleados y los quiero copiar aun stringlis y luego aun archivo txt. como se hace esto...

erick78 02-03-2005 23:29:59

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;


La franja horaria es GMT +2. Ahora son las 20:15:19.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi