Zitat von
marabu:
Hallo Nils,
kommst du damit zurecht?
Delphi-Quellcode:
procedure TDemoForm.MemoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
iLine: integer;
begin
iLine := Memo.Perform(EM_LINEFROMCHAR, -1, 0);
if (Key = VK_Return) and (LowerCase(Memo.Lines[iLine]) = '#exit') then
Application.Terminate;
end;
Grüße vom marabu
Danke
jetzt läuft es.
Wie könnte ich es machen, dass überprüft wird, ob es die Befehle überhaupt gibt ? Ich könnte es ja über eine Textdatei machen, in der alle Befehle stehen. Aber wie vergleiche ich das dann ? Dadurch wird der Code auch allgemein kleiner, da ich die if Abfragen nicht mehr für jeden Befehl benötige.