Código Delphi [-] var LineaActual : Integer; begin LineaActual := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
var LineaActual : Integer; begin LineaActual := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);