Thanks very much guys. Problem solved.
-----Original Message-----
From: Ross Levis [mailto:[EMAIL PROTECTED]
Sent: Tuesday, 1 July 2003 5:26 p.m.
To: Multiple recipients of list delphi
Subject: RE: [DUG]: Wildcard match of strings
Use the TMask object. Here is a function I use.
function Matches(const S,Wildcard: String): Boolean;
var
Mask: TMask;
begin
Mask := TMask.Create(Wildcard);
Result := Mask.Matches(S);
Mask.Free;
end;
Eg. If Matches('I am Roger',*Roger*) then...
Ross Levis.
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of Allan, Samuel
> Sent: Tuesday, 1 July 2003 16:40
> To: Multiple recipients of list delphi
> Subject: [DUG]: Wildcard match of strings
>
>
> Does anyone know how to match two strings with wildcards?
>
> eg '*Roger*' = 'I am Roger'
> --------------------------------------------------------------
> -------------
> New Zealand Delphi Users group - Delphi List -
> [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
