Como crear un fichero texto por codigo ?

[Sr.Scorpion]

Alguien sabe como crear un archivo texto (.txt) a traves de codigo en Delphi 6 ?

Saludos

[*Caro*]

Hola, puedes hacerlo utilizando un TStringList;

Código Delphi [-]
var
 sl : TStringList;
begin
  sl := TStringList.Create;
  sl.Add('algo'); //llenamos
  sl.Add('algo1');
  sl.Add('algo2');
  sl.SaveToFile('C:\Fite.txt');  //grabamos
 
  sl.Free;

Saluditos

[donald shimoda]

Empezado por Sr.Scorpion

Alguien sabe como crear un archivo texto (.txt) a traves de codigo en Delphi 6 ?

Saludos

Si lo que quieres es un archivo de texto secuencial:

Código Delphi [-]
procedure demotexto;
var
    datatrace       : textfile;
begin
    assignfile(datatrace , 'pepe.txt');
    {$I-}
    Append(datatrace);
    {$I+}
    if IoResult = 2 then
      rewrite(datatrace);
    writeln(datatrace, 'lo que sea');
    closefile(datatrace);
end;

de memoria y al vuelo.

Saludos

[Sr.Scorpion]

Gracias por las alternativas.... no obstante me fui con la primera via

Saludos

[Lizette]

Hola, asi puedo crear el archivo, pero como puedo leerlo desde delphi?, lo que pretendo hacer es un contador, cuando cree el archivo contendra un 1, cuando acceso a el debe de leer ese 1 y sumarle 1 y grabarlo. Asi el archivo contendra un 2 y asi sucesivamente, para cada acceso al archivo.

[[Lepe]]

Siguiendo el ejemplo de Caro

Código Delphi [-]
var
 sl : TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('C:\Fite.txt');  //grabamos
  //hacer lo que sea
  sl.Free;

No sé, pero si quieres guardar valores para después leerlo, quizás te interese más un TIniFile, consulta la ayuda, un ejemplo sería:

Código Delphi [-]
uses IniFiles;

var ini:TiniFile;
   leido:integer;
begin
  ini := TiniFile.Create('c:\file.ini');
  ini.WriteInteger('MiSeccion', 'MiClave', 1);
  

  leido := ini.ReadInteger('MiSeccion', 'MiClave', 0); // si no existe, por defecto un cero.

  ini.Free;

El resultado sería un archivo como este:

[MiSeccion]
MiClave = 1

Saludos

[cmm07]

Aqui te dejo un ejemplo de como lo puedes hacer, lo hice rápido por eso no hice el código más corto u optimizado, recuerda que esto fue hecho en Delphi 2009, espero que te sea compatible con delphi 6, o si no el fuente está ahí para que veas la instrucción y lo hagas en tu delphi


54LU2