Aktuelle Zeile auslesen ...

[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