Ayuda con Tstringlist

[ronimaxh]

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]]

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]

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]

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

[ronimaxh]

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]

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;