Finding Text in Memo? 1

[ug505]

Hello all,

I'm trying to make my own configuration file so that other people can change it and make it in their own way. (changing color, captions, etc.) I know how to load a file into a Memo, but I don't know how to find specific text in it. Can anyone help me? I use Delphi 7 by the way.

 

[towerbase]

The text in a memo is stored in the lines object. This can be treated like a TStringList. So if you wanted to find out which lines of the memo contained a specific string you could do something like:

var
  lineNumber: integer;
begin
  for lineNumber := 0 to memo.lines.count-1 do
    if Pos( 'target', memo.lines[lineNumber] ) > 0 then
      ShowMessage( 'Found in line ' + IntToStr(lineNumber) );
end;

You can also access the whole of the memo contents using the Text object. So, for example, if you wanted to see if a memo contained a particular string then you could code something like

begin
  if Pos( 'target', memo.lines.Text ) > 0 then
    ShowMessage( 'Found target in memo' )
  else
    ShowMessage( 'Target not found in memo' );
end;

Andrew
Hampshire, UK

 

[ug505]

Thank you very much! Your post helped me a lot.