Hi,
ich lese mit diesem Code die Zeile aus in der ich mich befinde
Delphi-Quellcode:
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;
Der ganze Code:
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(IntToStr(i)) = '#exit' then Application.Terminate;
end;
end;
Warum passiert nichts, wenn ich '#exit' eintippe und Return drücke ?