diff options
| author | Erich Eckner <git@eckner.net> | 2015-07-29 14:15:32 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2015-07-29 14:15:32 +0200 |
| commit | 373ed9802b6d05e6c020553a68e6529d604cd5ef (patch) | |
| tree | 2c3f2072b946b7c565ce5387dbfe1b4c3a8d9b8f /Plasmapropagation.lpr | |
| parent | 956357390e27cf5add18f4e386adc7e25b38302c (diff) | |
| download | Plasmapropagation-373ed9802b6d05e6c020553a68e6529d604cd5ef.tar.xz | |
lauffaehig, bisher ohne Teilchen
Diffstat (limited to 'Plasmapropagation.lpr')
| -rw-r--r-- | Plasmapropagation.lpr | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/Plasmapropagation.lpr b/Plasmapropagation.lpr index 5c914d5..5559f51 100644 --- a/Plasmapropagation.lpr +++ b/Plasmapropagation.lpr @@ -8,9 +8,7 @@ uses {$ENDIF}{$ENDIF} Classes, SysUtils, CustApp, { you can add units after this } - math, Physikunit, crt, protokollunit; - -var ErrorCode: longint; + math, Physikunit, protokollunit; type @@ -45,7 +43,7 @@ begin zeitDatei:=0; zeitPhysik:=0; - simulation:=tSimulation.create(paramstr(1),prot); + simulation:=tSimulation.create(paramstr(1),prot,'simulation'); while simulation.iteriereSchritt(start,zeitPhysik,zeitDatei) do ; @@ -66,7 +64,7 @@ begin prot.schreibe('Das hat '+s+' gedauert,',true); prot.schreibe(' davon '+t+' für Dateizugriffe',true); prot.schreibe('und nur '+u+' für die eigentliche Physik!',true); - prot.Free; + prot.free; // stop program loop Terminate; |