Mostrar el numero de renglon de un Memo

[ecfisa]

Empezado por Pedron

Hola buenas tardes mi duda es como hacer para mostrar el numero del renglon donde esta una palabra ...

Hola Pedron.

Respondiéndo estríctamente a lo que solicitas:

Código Delphi [-]
function LineFirstOcurr(const aWord: string; M:TMemo): Integer;
var
  c, bw: Integer;
begin
  Result:= -1;
  bw:= AnsiPos(aWord, M.Text);
  if bw <> 0 then
  begin
    c:= 0;
    while c < bw  do
    begin
      if M.Text[c] = #10 then Inc(Result);
      Inc(c);
    end;
    Inc(Result); 
  end;
end;

Uso:

Código Delphi [-]
...
var
  fo: Integer;
begin
  fo:= LineFirstOcurr(Edit1.Text, Memo1);
  if fo <> -1 then
    ShowMessage(Format('La primer ocurrencia de "%s", está en la línea %d',
      [Edit1.Text, fo]));

Saludos