Ersatz für MatchesMask()

[blackdrake]

Hallo.

Heute habe ich den Quellcode meines OpenSource Projektes für ältere Delphi Versionen kompatibel gemacht. Dabei bemerkte ich, dass die Unit "Masks" bei Borland Delphi 6 Personal nicht enthalten ist. (Soweit ich das dem Internet entnehmen konnte, gibt es diese jedoch bei der Professional/Enterprise wegen dem enthaltenen Source).

Da mein Programm nur die Funktion "MatchesMask" brauchte, habe ich folgendes verwendet:

Code:

// uses Masks;

function PathMatchSpecA(const pszFileParam, pszSpec: pchar): Bool;
stdcall; external 'shlwapi';

function MatchesMask(const Filename, Mask: string): boolean;
begin
  result := PathMatchSpecA(pchar(Filename), pchar(Mask));
end;

Für die Funktionalität muss "Masks" natürlich ausgebunden oder die Funktion umbenannt werden.

Ich habe irgendwo gelesen, dass PathMatchSpecA 5-6 Mal schneller sein soll, als die Borlandvariante. Außerdem besteht nicht der Bug von Borland mit dem Memory-Leak. Ich habe die DLL-Funktion PathMatchSpecA auf meinem Windows 95 PC erfolgreich getestet.

Gruß
blackdrake

[Muetze1]

Falls dein Quellcode dann noch systemunabhängig sein sollte (also z.B. FPC/Lazarus -> Linux), dann kannst du dir als Alternative auch mal die Routine in meiner XMLLib anschauen. Diese kann auch ordentlich mit mehrfachen ? und * in Kombination umgehen, womit die Borland-Funktion auch in manchen Spezialfällen Probleme hat.

[Codewalker]

Entspricht das nicht in etwa diesem hier: http://www.delphipraxis.net/internal...=644694#644694 ?

[blackdrake]

Weiß nicht. Ist schließlich ein selbst geschriebener Algorithmus. Ich habe jedoch nach einem Ersatz für MatchesMask() gesucht, der sich genau so wie die Borland-Version verhält, damit meine Drittanbieter-VCLs auch noch bei Delphi 6 PE laufen.