Einzelnen Beitrag anzeigen

Al Ex

Registriert seit: 28. Sep 2007
9 Beiträge
 
#1

Zahlen von x bis y direkt in Datei speichern

  Alt 29. Sep 2007, 20:59
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.
  Mit Zitat antworten Zitat