Find Text Memo Delphi || Pencarian Karakter Dengan Delphi

Menggunakan fungsi Pos, SelStart, SelLength dan Input Box

Fungsi Pos

function Pos(const SubStr, Str: _ShortStr; Offset: Integer): Integer;

Fungsi SelStart 

property SelStart: Integer read GetSelStart write SetSelStart;

Fungsi SelLength

 property SelLength: Integer read GetSelLength write SetSelLength;

Input Box

function InputBox(const ACaption, APrompt, ADefault: string): string; 

disini kita menggunakan beberapa fungsi diatas untuk mencari karakter yang kita ketikkan

 

var

  SearchTxt:string;

  Index:integer;

begin

  SearchTxt:=InputBox('Find', 'Text', '');

  Index:= Pos(SearchTxt, Memo1.Text);

  if Index>0 then

    begin

      Memo1.SelStart:= Index-1;

      Memo1.SelLength:=Length(SearchTxt);

      Memo1.SetFocus;

    end else begin

      ShowMessage('Text Not Found');

    end;

end;

untuk lebih lengkapnya bisa dilihat disini