Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
25. Okt 2006
Sorry, aber ich habe nur einen Weg präsentiert, indem man das umgeht, und nie etwas direkt dazu gesagt...
Aber wo wir gerade dabei sind :D ...
Mit "break;", "exit;" und "halt;" mancht man den Code schön unstrukiert...
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
25. Okt 2006
Eine Funktion die einen Boolean zurückgibt:
function firstInstanz : Boolean;
begin
// Überprüfen, ob dies die 1. Instanz ist, oder eine weitere...
end;
Ich habe mich nicht damit auseinandergesetzt... Deshalb kann es sein, dass es so nicht geht, aber wenn es so geht, dann kann man so ein Halt; / Application.Terminate; umgehen!
Nicht getestet:
program Project1;
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
25. Okt 2006
Ich kenne mich da jetzt nicht 100%ig aus, aber es sollte doch auch ohne "Halt;" laufen indem du einfach überprüfst, OB es die 1. Instanz ist?
begin
if firstInstanz then begin
...
Application.CreateForm(...);
...
Application.Run;
...
end;