Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   .NET (https://www.clubdelphi.com/foros/forumdisplay.php?f=17)
-   -   Crecer un .txt (https://www.clubdelphi.com/foros/showthread.php?t=47804)

REHome 07-09-2007 14:02:30

Crecer un .txt
 
Hola.

¿Es muy dificil hacer un pequeño programa que al ejecutarlo genere un archivo .txt o otro cualquiera y en ella se vaya llenando carácteres aleatorios o cualquier cosa hasta llenar el disco duro?

duilioisola 07-09-2007 14:12:44

Primero : No se si el sistema operativo te dejará hacer archivos tan grandes. Supongo que querras llenar discos de muchos Gigas y este problema lo podrías solucionar generando muchos archivos.

Segundo : programita ejemplo. Crea archivos llamados ARCHIVO_1.txt, ARCHIVO_2.txt, etc. con 10.000.000 de letras X.

Código Delphi [-]
procedure TFMMain.LlenarDisco;
var
   f : TextFile;
   i,j : integer;
   salir : boolean;
begin
   i := 0;
   salir := false;
   while (not salir) do
   begin
      inc(i);
      {genera archivos llamados ARCHIVO_1.txt, ARCHIVO_2.txt, etc.}
      AssignFile(f,'C:\ARCHIVO_'+IntToStr(i)+'.txt'); 
      try
         Rewrite(f);
         for j := 0 to 10000000 do
            Write(f,'X');
      except
         salir := true;
      end;
      CloseFile(f);
   end;
end;

REHome 07-09-2007 15:38:01

Me gusta el código y esto de crear archivos por achivos está bien.

Lo intentaré pasarlo con el lenguaje C# 2.0, ya que delphi lo he dejado hace años.

Si alguien sabe pasarlo a c#, una ayudaita no vendría mal, aún así lo intentaré y si me sale, lo publico aquí.

Muchas gracias por la ayuda, hasta otra.:)


La franja horaria es GMT +2. Ahora son las 04:48:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi