TMemo : selektierte Zeile löschen, Index ermitteln

[Bufo]

Hallo,

steht bestimmt hier schon irgendwo, konnte ich aber nicht finden: wie ermittele ich den Index der selektierten Zeile in einem TMemo bzw. wie lösche ich diese?

Danke vorab!

[marabu]

Moin,

die Spalten- und Zeileninformation wird in der Eigenschaft CaretPos bereit gehalten.

Delphi-Quellcode:

procedure TDemoForm.MemoChange(Sender: TObject);
begin
  with Sender as TMemo do
    Caption := Format('Spalte %d  Zeile %d', [CaretPos.X, CaretPos.Y]);
end;

Grüße vom marabu

[Thorben_Ko]

Delphi-Quellcode:

procedure TDemoForm.Button1Click(Sender: TObject); 
begin 
  Memo1.Lines.Delete(Memo1.Itemindex));
end;

ungetestet, müsste aber an sich so gehen

EDIT: SO geht es net, habe vergessen das eis ItemIdex ja net bei MEmo gibt sondern bei TListBOX....

[s-off]

Und für den zweiten, optionalen, Teil Deiner Frage einfach die Tipps von marabu und Thorben kombinieren.