|
Jak sprawdzić, czy string pasuje do wzorca, zawierającego wildcards, stosując klasę TMask? |
|
|
|
Napisał: Berl
|
|
środa, 08 marzec 2006 |
|
Kolejnym sposobem na sprawdzenie, czy łańcuch znaków pasuje do wzorca zawierającego Wildcards, jest użycie klasy TMask, znajdującej się w module Masks. Klasy tej używamy w następujący sposób :
function Porownaj(str, maskowany: String): Boolean;
var
Maska : TMask;
begin
Maska := TMask.Create(maskowany);
Result := Maska.Matches(str);
Maska.Free;
end;
Funkcji tej używamy w ten sposób :
procedure TForm1.Button1Click(Sender: TObject);
begin
if Porownaj('ala ma kota', '*ala*ko?*') then showmessage('Pasuje')
else showmessage('Nie pasuje');
end;
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. |
