Nils, ich würde mir an deiner Stelle mal die Grundlagen ansehen. Ein else bezieht sich nicht auf die Prozedur, so wie du es oben glaubst, sondern auf das if.
Also:
Delphi-Quellcode:
if Key = VK_RETURN
then
begin
if LowerCase(Console.Lines[iLine]) = '
#exit'
then
Application.Terminate;
if LowerCase(Console.Lines[iLine]) = '
#help'
then //Hier wäre doch ein else if besser
begin
(...)
end;
if LowerCase(Console.Lines[iLine]) = '
#opencd'
then //Auch hier wäre ein else if besser
begin
mciSendString('
Set cdaudio door open wait',
Nil, 0,
Handle);
end;
if LowerCase(Console.Lines[iLine]) = '
#closecd'
then //Und nochmals else if
begin
mciSendString('
Set cdaudio door closed wait',
Nil, 0,
Handle);
end
else //Dieses else wird sonst immer ausgeführt, wenn >>LowerCase(Console.Lines[iLine]) = '#closecd'<< nicht zutrifft.
Console.Lines.Add('
Unbekannter Befehl');
Console.Lines.Add('
');
//Nur am Rande bemerkt: Diese Zeile gehört nicht eingerückt, die gehört nicht zum else.
end;
Grüße
Faux
Faux Manuel
Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß.
GoTrillian