Aktuelle Zeile auslesen ...

[jim_raynor]

Zitat von Nils_13:

Was brinbgt mir außerdem der Debugger ? Es tauchen ja keine Fehler auf.

Weil man mit dem Debugger auch Werte von Variablen anzeigen kann ... und so den Fehler auf die Schliche kommt.

[marabu]

Du könntest eine Befehlsliste verwenden:

Delphi-Quellcode:

var
  CommandList: TStringList;

begin
  CommandList := TStringList.Create;
  with CommandList do
  begin
    Sorted := true;
    CaseSensitive := false;
    Add('#exit');
    Add('#pause');
    // ...
  end;
end;

Und später dann prüfst du so:

Delphi-Quellcode:

if CommandList.IndexOf(command) >= 0 
  then // gültiger Befehl
  else // ungültiger Befehl
;

marabu

[Nils_13]

Zitat von marabu:

Du könntest eine Befehlsliste verwenden:

Delphi-Quellcode:

var
  CommandList: TStringList;

begin
  CommandList := TStringList.Create;
  with CommandList do
  begin
    Sorted := true;
    CaseSensitive := false;
    Add('#exit');
    Add('#pause');
    // ...
  end;
end;

Und später dann prüfst du so:

Delphi-Quellcode:

if CommandList.IndexOf(command) >= 0 
  then // gültiger Befehl
  else // ungültiger Befehl
;

marabu

Und wie willst du überprüfen, ob der Befehl gültig oder ungültig ist ?

[Die Muhkuh]

Weil der Befehl dann nicht in der Liste steht?

[Nils_13]

Zitat von Spider:

Weil der Befehl dann nicht in der Liste steht?

Ach nee Aber wie macht man das mit Delphi ?
-
Ach ich idiot ... schon gut.
-
Nur was ist dann Comman bei dem Indexof ?

[malo]

Zitat von Nils_13:

Nur was ist dann Comman bei dem Indexof ?

Ein wenig Nachdenken schadet doch bestimmt nicht? Ich würde vorschlagen, das ist deine aktuelle Zeile, die dann geprüft wird

[Nils_13]

Delphi-Quellcode:

procedure TForm1.ConsoleKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  iLine: integer;
  CommandList: TStringList;

begin
  CommandList := TStringList.Create;
  with CommandList do
  begin
    Sorted := true;
    CaseSensitive := false;
    Add('#exit');
    Add('#pause');
  end;
  iLine := Console.Perform(EM_LINEFROMCHAR, -1, 0);

{  // #exit
  if (Key = VK_Return) and (LowerCase(Console.Lines[iLine]) = '#exit') then
    Application.Terminate;
  if not (Key = VK_Return) and (LowerCase(Console.Lines[iLine]) = '#exit') then
    Console.Lines.Add('Befehl konnte nicht gefunden werden.');     }
  if CommandList.IndexOf(IntToStr(iLine)) >= 0
  then // gültiger Befehl
  else Console.Lines.Add('Ungültiger Befehl');
  ;
end;

Jetzt kann ich halt kein #exit mehr eintippen, da alles vollgemüllt wird.

[malo]

Delphi-Quellcode:

if CommandList.IndexOf(IntToStr(iLine)) >= 0
  then // gültiger Befehl
  else Console.Lines.Add('Ungültiger Befehl');

Jetzt schaust du dir mal den Sourcecode an, und gehst dich danach schämen.

Aber immerhin eine Leistung, zweimal den selben Fehler zu machen

[marabu]

Nils, meinst du nicht auch, dass deine CommandList besser in dem Ereignis OnCreate() der Form aufgebaut wird? Sie ändert sich ja nicht bei jedem Tastendruck. Auch ist mein Code für die Überprüfung eines Befehls eher beispielhaft. Du musst dir da schon noch ein paar eigene Gedanken machen. Deine Befehle werden vielleicht nicht immer alle einsam und alleine in einer Zeile stehen - oder?

Freundliche Grüße vom marabu

[Nils_13]

Zitat von malo:

Delphi-Quellcode:

if CommandList.IndexOf(IntToStr(iLine)) >= 0
  then // gültiger Befehl
  else Console.Lines.Add('Ungültiger Befehl');

Jetzt schaust du dir mal den Sourcecode an, und gehst dich danach schämen.

Aber immerhin eine Leistung, zweimal den selben Fehler zu machen

Geh du dich mal für deine Besserwisserei schämen, du hast es ja nicht nur zweimal gemacht