Zeilennummer einer Zeichenkette heausfinden?

[capo]

ist das richtig so?
irgendwie zeig es nix an.

Delphi-Quellcode:

function FindFirst(memo: TAdvMemo; search: String): Boolean;
var
  iStart: Integer;
begin
  search := AnsiLowercase(search);
  with memo do
  begin
    iStart := Pos(search, AnsiLowercase(Form1.Edit1.Text));
    Result := iStart > 0;
    if Result then
    begin
      SelStart := Pred(iStart);
      SelLength := Length(search);
    end;
  end;
end;

Delphi-Quellcode:

procedure TForm2.Button4Click(Sender: TObject);
begin
FindFirst(Advmemo1,Form1.edit1.text);
end;

gruss, capo

[marabu]

Hallo,

mein Code funktioniert mit einem Memo und findet beliebige Zeichenketten - auch Uhrzeiten. Wenn er bei dir versagt, dann könnte das etwas mit der Komponente TAdvMemo zu tun haben. Probiere also zuerst mal mit einem TMemo und versuche dann erst die Anpassung an TAdvMemo.

Grüße vom marabu


PS: Manchmal ist es hilfreich Memo.HideSelection auf False zu setzen ...

[capo]

ich habs, es war mein fehler, alles funktioniert.
was nicht da ist kann man auch nicht finden

gruss, capo ...und danke