Einzelnen Beitrag anzeigen

Benutzerbild von faux
faux

Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
 
Turbo Delphi für Win32
 
#23

Re: Aktuelle Zeile auslesen ...

  Alt 13. Nov 2005, 10: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]) = '#helpthen //Hier wäre doch ein else if besser
  begin
    (...)
  end;

  if LowerCase(Console.Lines[iLine]) = '#opencdthen //Auch hier wäre ein else if besser
  begin
    mciSendString('Set cdaudio door open wait', Nil, 0, Handle);
  end;
  if LowerCase(Console.Lines[iLine]) = '#closecdthen //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
  Mit Zitat antworten Zitat