Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
Turbo Delphi für Win32
|
Re: Aktuelle Zeile auslesen ...
13. Nov 2005, 11:17
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ß.
|