Konsole beenden

[Quick_silver]

Blöde frage aber:
Wie beende ich ne Consolenanwendung vorzeitig? Application.Destory gibt nen error wieder das er irgendwas mit dem Spreicher nicht lesen kann.

[Luckie]

So:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  Readln;
  exit;
end.

[SleepyMaster]

Glaube mit halt;

[Luckie]

halt ginge wohl auch, aber da steht in der Hilfe:

Zitat:

Halt performs an abnormal termination of a program and returns to the operating system.

Exit hingegen verläßt die aktuelle Prozedur / Funktion. Und wenn du das Hauptprogramm verläßt, bekommt automatisch das System wieder die Kontrolle.

[SleepyMaster]

Naja, aber was wenn er es nicht aus der Hauptprocedure machen will??

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure KA;
begin
  exit; 
//halt;
end;

begin
  KA;
  Readln;
end.

Oder aus nem anderen Thread aus? Da kann man dann doch nur das Halt verwenden oder aber TerminateProcess.

[Quick_silver]

Ich weiss neeur thrad wäre besser aber nochmal hier ne kurze frage:
wie kann ich eine Zeile zurück springen. Also die letzte Zeile überschreiben?
Writeln macht ne neue Zeile
Write addiert

Gibt es irgendwas was die Zeile neu schreibt?

[Chewie]

Zitat:

Zitat von Quick_silver

Ich weiss neeur thrad wäre besser aber nochmal hier ne kurze frage:
wie kann ich eine Zeile zurück springen. Also die letzte Zeile überschreiben?
Writeln macht ne neue Zeile
Write addiert

Gibt es irgendwas was die Zeile neu schreibt?

Mach mal lieber einen neuen Thread auf, die Frage lässt sich nicht mit einem Satz beantworten.

[Luckie]

@Sleepymaster: Etwas mehr Phantasie bitte:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure Foo;
begin
  Readln;
  exit;
end;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  Foo;
  exit;
end.

[SleepyMaster]

Und was wenn in der Foo entschieden wird, ob das Programm beendet werden soll oder nicht???

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure Foo;
var
  s: string;
begin
  Readln(s);
  if s = 'STOP' then
    halt;
end;

begin
  Foo;
  Writeln('Laeuft noch');
  Readln;
end.

Ja, man könnte dann bei Foo anstelle einer Procedure eine Funktion nutzen, die zurückliefert ob das Programmbeendet werden soll oder nicht, nur wenn man was anderes über die Funktion zurückgeben will, dann wird irgendwann der Aufwand zu groß!

[alcaeus]

Hi SleepyMaster,

beendest du jedes Delphi-Programm auch mit Application.Terminate oder mit KillProcess?
Wenn eine Funktion nötig ist, um dies abzufragen dann muss eben eine Funktion ran. Jeder der mal Turbo Pascal programmiert haben wird dies noch kennen. Ich sehe eigentlich nicht das Problem exit zu verwenden und das Programm sauber zu beenden als das Programm mit Halt zu beenden und sich sozusagen die Knarre an die Schläfe zu halten und abzudrücken. :roll:

Greetz
alcaeus