150 MB Datei erstellen immer in 256byte schritten?

[R0BIN]

also bis jetzt hat noch keine möglichkeit so richtig funktioniert...

nein es müssen nicht unbedingt zahlen sein...nur unterschiedliche zeichen...

[Zacherl]

Das Konzept ist schwierig ... man müsste in die Schleife noch einberechnen, wie viele Bytes eine Zahl hat ...

[Mackhack]

Zitat:

Zitat von R0BIN

also bis jetzt hat noch keine möglichkeit so richtig funktioniert...

nein es müssen nicht unbedingt zahlen sein...nur unterschiedliche zeichen...

Dann mach 0-9 und a-z und A-Z dann kannst ja denk ich wieder von vorne anfangen!

[R0BIN]

ja das wäre ja kein thema 0-9 a-z A-Z aber wie schreibe ich die procedure?

[Sunlight7]

Hab gerade probiert, ist ganz leicht.
Wird der Source noch benötigt?

[R0BIN]

ja wäre echt nett wenn du den posten könntest!

[Flare]

Wieso missbraucht ihr dafür nicht einfach die ASCII-Zeichen? Die Zeichen 1-31 sollte man natürlich weglassen aber danach können doch alle genommen werden und es ist auch immer ein anderes Zeichen...


Flare

[Sunlight7]

Jo, no problemo.

Warum ärgert ihr euch immer mit den komischen FileStreams???

Delphi-Quellcode:

procedure TForm1.CreateMyFile;
   const MaxSize=150 * 1024 * 1024;
   var F:File;
       PC:PChar;
       c:Char;
       i:Integer;
   label DoItAgain;
begin
   GetMem(PC, 256);

   AssignFile(F, 'E:\Test.nix');
   ReWrite(F, 1);
DoItAgain:
      For c:='a' to 'z' do begin
         For i:=0 to 256-1 do
            PC[i]:=c;

         BlockWrite(F, PC^, 256);
         If FileSize(F)>=MaxSize then Break;
      end;
      If FileSize(F)<MaxSize then goto DoItAgain;
   CloseFile(F);

   FreeMem(PC);
end;

Geht doch ohne viel einfacher :???:

[R0BIN]

danke, das scheint zu gehen!

[Zacherl]

Und jetzt noch ohne Label:

Delphi-Quellcode:

procedure TForm1.CreateMyFile; 
   const MaxSize=150 * 1024 * 1024; 
   var F:File; 
       PC:PChar; 
       c:Char; 
       i:Integer; 
begin 
   GetMem(PC, 256); 

   AssignFile(F, 'E:\Test.nix'); 
   ReWrite(F, 1); 
   repeat
      For c:='a' to 'z' do begin 
         For i:=0 to 256-1 do 
            PC[i]:=c; 

         BlockWrite(F, PC^, 256); 
         If FileSize(F)>=MaxSize then Break; 
      end; 
      until FileSize(F)>=MaxSize; 
   CloseFile(F); 

   FreeMem(PC); 
end;

Florian