[SynEdit] Ist Zeile markiert?

[marabu]

Hallo,

markierte Zeilen musst du nicht unbedingt suchen, sie sind berechenbar:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  iFirst, iLast: Integer;
  bc: TBufferCoord;
begin
  with SynEdit do
    if SelAvail then
    begin
      bc := CharIndexToRowCol(SelStart);
      iFirst := bc.Line;
      bc := CharIndexToRowCol(Pred(SelStart + SelLength));
      iLast := bc.Line;
      ShowMessage(Format('first line selected: %d - last line: %d', [iFirst, iLast]));
    end else 
      ShowMessage('Dies alles ist höchst wunderlich!');
end;

Grüße vom marabu