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
varSearchTxt:string;Index:integer;beginSearchTxt:=InputBox('Find', 'Text', '');Index:= Pos(SearchTxt, Memo1.Text);if Index>0 thenbeginMemo1.SelStart:= Index-1;Memo1.SelLength:=Length(SearchTxt);Memo1.SetFocus;end else beginShowMessage('Text Not Found');end;end;
untuk lebih lengkapnya bisa dilihat disini