- procedure init();
- begin
- project_name:='OS Game Maker - The Learning Stage';
- assign(f, 'app.log');//Log Datei erstellen
- rewrite(f);//Alte Log Datei leeren
- writeln(f, Project_Name);
- write(f, 'LOG Datei vom : ');
- writeln(f, DateTimeToStr(Now) ); // opens to write )
- close(f);//wieder schlieáen (sauberer code)
- end;