Como crear un fichero texto por codigo ?
 

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

Saludos

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

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

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

Saludos

Como puedo leer el archivo
 

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.

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:
Saludos

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
;)