Como Crear archivos

[marcoszorrilla]

Un sencillo ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
FConcurso:TextFile;
CrLf:String;
sTexto:String;
i:Integer;
begin
CrLf=Chr(13)+Chr(10);
cCamino:='c:\Concurso.txt';
AssignFile(FConcurso, cCamino);
Rewrite(FConcurso);
sTexto:='Ejemplo de linea ';

  For i:=1 to 10 do
  begin
  Write(FConcurso, sTexto+IntToStr(i)+CrLf);
  end;


CloseFile(FConcurso);

end;

Un Saludo.