Aktuelle Zeile auslesen ...

[Nils_13]

Delphi-Quellcode:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i, i2: integer;
begin
  i := 0;  i2 := 0;
  while i < Memo1.Lines.Count do begin
    Inc(i2, Length(Memo1.Lines.Strings[i]));
    if i2 < Memo1.SelStart then Break;
    Inc(i);
  end;

  if Key = VK_Return then
  begin
    if Lowercase(Memo1.Lines[i]) = '#exit' then Application.Terminate;
  end;
end;

Läuft immer noch nicht.