9 respuestas en este tema

[TheJoker]

Quisiera saber como puedo hacer para escribir en un bloc de notas usando un listado(Lineas.Strings)?

delphi

Por ejemplo Write(file, lineas.strings[i]);

El caso es que al ser tengo problemas para que haga los saltos con cada escritura y lea todas las lineas, porque me transcribe solo la ultima, y necesitaria que escriba todas.

Salu2.

[egostar]

Voy a ver si entendí, lo que no te hace es agregar el "ENTER" de las lineas de tu archivo que quieres agregar ?

Intenta con esto:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
{  Memo1.Lines.Delimiter := #13;
  Memo1.Lines.StrictDelimiter := true; } // Se puede omitor
  memo1.Lines.LoadFromFile('C:\Documentos\Archivo.txt');
end;

Salud OS

[Rolphy Reyes]

Saludos.

Creo que estos links te pueden ayudar: Link1 y Link2.

Prueba y postea

[cadetill]

Buenas,

Amigo egostar, era escribir, no leer  Pero tirando de lo que has dicho, la clase TStrings tiene el método SaveToFile que te permite grabar en un archivo de texto el contenido

delphi

  memo1.Lines.SaveToFile('C:\Documentos\Archivo.txt');

Y si lo que quieres es añadir texto a un fichero ya existente, como te comenta Rolphy Reyes usa writeln en lugar de write

Nos leemos

[TheJoker]

Gracias por contestar, explico un poco mejor lo que quiero hacer.

Quiero crear un archivo de texto, y escribir un par de lineas (todo eso ya lo tengo), y ademas quiero incluir los nombres de los archivos que se encuentran:

delphi

if FileExists(Lineas.Strings[i]) then
memo1.lines.add(Lineas.Strings[i] + ' encontrado!');
   AssignFile(myFile, 'Test.txt');
   ReWrite(myFile);
WriteLn(myFile, 'Comenzando');
 
   CloseFile(myFile);

Me falta saber como escribir el listado de los archivo.

[cadetill]

Buenas,

Dependiendo de la cantidad de información que le tangas que añadir, si no es mucha y es en sitios concretos (inicio o fin del fichero), yo jugaría con la clase TStrings que tiene métodos para facilitarnos la inserción en el lugar donde queramos. Mírate el método Insert en la ayuda si es el caso.

Si por contra hay mucha información a añadir, sólo tendrías que hacer un bucle que recorriera los Items del TStrings e ir poniéndolos en el archivo

delphi

for i := 0 to memo1.lines.count - 1 do
  WriteLn(myFile, memo1.lines[i]);

Nos leemos

[TheJoker]

Lo logre hacer

delphi

if FileExists(Lineas) then WriteLn(myFile, Lineas + ' encontrado!');

Muchas gracias a todos.

Son los mejores.

Salu2.

[TheJoker]

Pero con esto no funciona ?

delphi

if FileExists(Lineas.Strings[i]) then WriteLn(myFile, Lineas.Strings[i] + ' encontrado!'); memo1.lines.add(Lineas.Strings[i] + ' Encontrado!');

[Delphius]

Hola TheJoker,
Creo que tienes una mezcla de conceptos.

Estas maniplando archivos de dos maneras diferentes y lo estás mezclando.
Te explico, la clase TStrings y todas las clases que heredan de ésta cuenta con la capacidad de leer y escribir en un archivo. Para ello tiene dos métodos: LoadFromFile() y SaveToFile() respectivamente.

De este modo, el contenido de un memo se puede guardar en un archivo muy facilmente:

delphi

Memo1.Lines.SaveToFile('...\archivo.txt');

Y Cuando uno lee con LoadFromFile el contenido, linea a línea queda almacenado en .Lines. ¿Me explico?

La otra manera, con el uso de AssingFile, Seek, Rewrite, Write, etc es un estilo viejo, heredado de la época de Turbo Pascal. No mezcles, usa una u otra. 

Saludos,

[TheJoker]

Muchas gracias, con tu aclaracion lo pude arreglar.

Ya esta resuelto. 

Salu2.