Zahlen von x bis y direkt in Datei speichern

Thema durchsuchen

Ansicht

Themen-Optionen

Zahlen von x bis y direkt in Datei speichern

Ein Thema von Al Ex · begonnen am 29. Sep 2007 · letzter Beitrag vom 30. Sep 2007

Vorheriger Beitrag

Nächster Beitrag

dominikkv

Registriert seit: 30. Sep 2006
Ort: Gundelfingen
1.109 Beiträge

Delphi 2007 Professional

Re: Zahlen von x bis y direkt in Datei speichern

29. Sep 2007, 20:28

zusammenfalten · markieren

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;