Dateinamen mit einem File Filter vergleichen

[Maik81ftl]

gegenfrage an euch??? würde euch da ggf eine LCL-Routine ausreichen?

Wenn ja schaut mal bitte bei Lazarus-Crr da dies zu 95% mit delphi konform geht, wäre dies doch eine Sinnvolle alternative.

[himitsu]

Delphi-Quellcode:

uses Masks;

function MatchesFilter(const Filename, Filter: String): Boolean;
var
  SL: TStringList;
  i:  Integer;
begin
  SL := TStringList.Create;
  try
    SL.StrictDelimiter := True;
    SL.Delimiter := '|';
    SL.DelimitedText := Filter;
    for i := 0 to SL.Count div 2 - 1 do
      SL.Delete(i);
    SL.DelimitedText := ';';
    SL.Text := SL.Text;
    for i := SL.Count - 1 downto 0 do
      if MatchesMask(Filename, SL[i]) then
        Exit(True);
  finally
    SL.Free;
  end;
  Result := False;
end;

// oder um nocheine Zeile kürzer
function MatchesFilter(const Filename, Filter: String): Boolean;
var
  SL: TStringList;
  i:  Integer;
begin
  SL := TStringList.Create;
  try
    SL.LineBreak := '|';
    SL.Text := Filter;
    for i := 0 to SL.Count div 2 - 1 do
      SL.Delete(i);
    SL.LineBreak := ';';
    SL.Text := SL.Text;
    for i := SL.Count - 1 downto 0 do
      if MatchesMask(Filename, SL[i]) then
        Exit(True);
  finally
    SL.Free;
  end;
  Result := False;
end;

Statt Exit(True); kann man auch (für ältere Delphis) auf Folgendes ausweichen.

Delphi-Quellcode:

begin
  Result := True;
  Exit;
end;

PS: nicht getestet ... sollte aber gehn

PPS: In der CodeLb sollte von mir eine MaskMatch-Version rumliegen, welche speziell für Dateinamen vorgesehen ist,
denn "*.*" findet eigentlich auch "DateiOhneEndung", was Masks.MatchesMask nicht macht.

[Codehunter]

Um jetzt nochmal auf die Frage mit dem Try und dem Exit zurückzukommen:

Ich bin die Sache Step by Step via F8 durchgegangen. In der konkreten Funktion wird Finally tatsächlich NICHT angesprungen, in anderen Routinen meiner Programme bei ähnlicher Konstellation dagegen schon. Ich konnte noch nicht herausfinden wo es im konkreten Fall klemmt. Evtl. ist das auch ein Bug im Linker? Nichtsdestotrotz ist Break die bessere Lösung anstelle von Exit. "Exit(x)" ähnelt mehr dem C-Konstrukt "return x" und wurde von mir bisher nie verwendet. Ich weise immer Result das Ergebnis zu, der Übersicht wegen.

[himitsu]

Zitat von Codehunter:

"Exit(x)" ähnelt mehr dem C-Konstrukt "return x" und wurde von mir bisher nie verwendet.

Ist in Delphi 5 eh noch nicht vorhanden.