(page requirements)

Search and replace...

Almost every text editor / word processor has the ability to search for a given string and replace it with another. If you're planning on adding similar functionality to your application, here's an example of where all of it can start:

function SearchAndReplace(
  sSrc, sLookFor, sReplaceWith
    : string )
      : string;
  nLenLookFor : integer;
  nPos        := Pos( sLookFor, sSrc );
  nLenLookFor := Length( sLookFor );
  while(nPos > 0)do
    Delete( sSrc, nPos, nLenLookFor );
    Insert( sReplaceWith, sSrc, nPos );
    nPos := Pos( sLookFor, sSrc );
  Result := sSrc;

For example, let's say you have a string -- 'this,is,a,test' -- and you want to replace the commas with spaces. Here's how you'd call SearchAndReplace():

SearchAndReplace( 'this,is,a,test', ',', ' ' )

SearchAndReplace() will now return the string 'this is a test'.

Applicable Keywords : Delphi, Delphi 1.x, Delphi 2.x, Functions
Copyright © 2009 Chami.com. All Rights Reserved. | Advertise | Created in HTML Kit editor