Zitat von
Neutral General:
... sondern in der i-1 Zeile.
Nein.
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-1]) = '#exit' then Application.Terminate;
end;
end;
Passiert nichts. Was brinbgt mir außerdem der Debugger ? Es tauchen ja keine Fehler auf.