, er der mange gange, når man skal sammenligne to strenge, men ønsker at bruge vilde kort i kampen - alle efternavne, der begynder med "st" osv.), bidragyder: david stidolph,,, som er en del af en kode, jeg har fået fra sean stanley i tallahassee - c. jeg oversatte den til delfi er det her for en overførsel til brug.jeg har ikke prøvet det extensivly, men den oprindelige funktion har været undersøgt ganske thoughly.,,, jeg ville elske feedback på denne rutine - eller befolkninger ændringer til det.jeg ønsker at sende dem til sean, at få ham til at frigive flere godbidder her.,,, {, denne funktion kræver to tråde og sammenligner dem.den første serie, kan være hvad som helst, men bør ikke indeholde mønster tegn (*)?.,, mønstret snor kan have så mange af disse - tegn, som du vil., f.eks.: matchstrings ('david stidolph ',' *. *) ville vende tilbage.,,, igen, kode af sean stanley i c, omskrevet i delphi af david stidolph,,,, funktion matchstrings (kilde: tråd mønster): boolean,,, var, psource: system [0..255] char,,, ppattern: system [0..255] char;,,, funktion matchpattern (element, mønster: pchar): boolean,,,, funktion ispatternwild (mønster: pchar): boolean,,, var,, t: heltal, begynder, resultat: = strscan (mønster, '*') < > 0,,,,,,,, hvis resultatet så resultat: = strscan (- »? «)< > 0,,,,,,, begynder, hvis 0 = strcomp (mønster, '*') så, resultat: = sandt, andre, hvis (element (= chr (0)) og (mønster (< > chr (0)) så, resultat: = falske, andre, hvis element (= chr (0) så, resultat: = sandt, ellers begynder, sag - ^ i '*': hvis matchpattern (element, @ mønster) [1],, resultat: = sandt,,,,, resultat: = matchpattern (@ element [1], mønster), "?: resultat: = matchpattern (@ element [1], @ mønster [1]);,,,,, hvis element (= mønster. så, resultat: = matchpattern (@ element [1], @ mønster) [1],,,, resultat: = falske,,,,,,,,,,,, begynder, strpcopy (psource, kilde), strpcopy (ppattern, mønster);,, resultat: = matchpattern (psource, ppattern);,,,,,