Aktuelle Zeile auslesen ...

**Nils_13**

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:

zusammenfalten · markieren

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 ?

Aktuelle Zeile auslesen ...

Aktuelle Zeile auslesen ...

Forumregeln