Zahlen von x bis y direkt in Datei speichern

[Al Ex]

Hallo Leute, hab folgendes Problem:

Ich kann nur in ein Memo-Feld die Zahlen eintragen lassen und dann in eine Datei abspeichern lassen.
Für das direkte Abspeichern bin ich zu dumm
Wie lautet dazu der Code??
Außerdem dauert meine Metode ewig lange für Zahlen von 100000000 bis 999999999.

Vielen Dank im Voraus und Grüße

Alex

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

 var x :integer;
   begin
 memo1.Lines.clear;
 for x := 100000000 to 100000009 do Begin
 memo1.lines.Add(IntToStr(x));
 Memo1.Lines.SaveToFile('Datei.plr');
 End;
end;


end.

[3_of_8]

Kein Wunder, dass das lange dauert - es sind auf 8 GB an Daten.

[silver-moon-2000]

Zitat von Al Ex:

Außerdem dauert meine Metode ewig lange für Zahlen von 100000000 bis 999999999.

Hallo,

das dürfte ziemlich lang dauern, da es sich um mehrere GigaByte handeln dürfte..., aber
nur so als kurze Anmerkung :
Es reicht, einmal ganz am Ende zu speichern. Du Speichert die Datei in jedem Zyklus der for-Schlefe, das dürfte auch ziemlich viel Zeit verbraten.

Delphi-Quellcode:

 
for x := 100000000 to 100000009 do 
  memo1.lines.Add(IntToStr(x));
Memo1.Lines.SaveToFile('Datei.plr');

[Dax]

Delphi-Quellcode:

procedure blubb(left, right: integer; file: string);
var stream: tfilestream; s: string; i: integer;
begin
  if right < left then exit;
  stream := tfilestream.create(file);
  try
    for i := left to right do
    begin
      s := inttostr(i) + #13#10;
      if length(s) > 4*1024 then
      begin
        stream.write(s[1], length(s));
        s := '';
      end;
    end;
    if length(s) > 0 then
      stream.write(s[1], length(s)); 
  finally   
    stream.free();
  end;
end;

Ungetestet, sollte aber (so in der Art) recht schnell funktionieren, vor allem ohne den Umweg über Memos...

[dominikkv]

Delphi-Quellcode:

procedure Speichern(Von, Bis: Integer; FileName: String);
var
  MyFile: File of Integer;
  I: Integer;
begin
  AssignFile(MyFile, FileName);
  ReWrite(MyFile);
  try
    for i := Von to Bis do
      Write(MyFile, I);
  finally
    CloseFile(MyFile);
  end;
end;

[Dax]

Er will (soweit ich das sehe) die Zahlen als Zeilen einer Datei, also wäre es nicht nur WriteLn, sondern sogar WriteLn(IntToStr(I)).

[Hador]

Zitat von Dax:

Er will (soweit ich das sehe) die Zahlen als Zeilen einer Datei, also wäre es nicht nur WriteLn, sondern sogar WriteLn(IntToStr(I)).

Annahme: Dein erstes WriteLn sollte Write heißen.

Das IntToStr() kannst du dir dann auch sparen. WriteLn kann auch direkt mit ints umgehen

[3_of_8]

Aber nicht in einem typisierten file of Integer. Dann wird der Integer in binärer Form in die Datei geschrieben und nicht - wie gewünscht - als Text. Dafür braucht man dann ein TextFile.

Im übrigen sind diese Datei-Routinen aus System doch schon seit einiger Zeit als veraltet anzusehen, wenn ich mich nicht irre, und man sollte besser auf den TFileStream zurückgreifen.

[dominikkv]

hmmm, ich sehe nirgens dass die zahl als text gespeichert werden soll...
ich würd sagen der threadersteller sagt mal genauer was er will.

und nur weil meine methode veraltet ist (ist sie das ?!?) heißt das noch nicht dass sie schlecht ist