Gefilterte Dateien / StringGrid/ XML

[Freyr77]

Zitat von DrTosh:

Ich habe mir dafuer eine Funktion geschrieben:

Code:

function fGetFiles(lDir: String; lMask: String; var lFileList: TStringList): Boolean;
var
  lSR: TSearchRec;
begin
  Result := false;
  if not DirectoryExists(lDir) then
    Raise Exception.Create(lDir + ' not exists!')
  else begin
    if not Assigned(lFileList) then
      Raise Exception.Create('You have to Assign your Stringlist for "fGetFiles"');
    try
      if FindFirst(IncludeTrailingPathDelimiter(lDir) + lMask, faAnyFile, lSR) = 0 then
      begin
        repeat
          if (lSR.Attr <> faDirectory) then
          begin
            Result := true;
            lFileList.Add(lSR.Name);
          end;
        until FindNext(lSR) <> 0;
        SysUtils.FindClose(lSR);
      end;
    finally
    end;
  end;
end;

Und hier der Aufruf:

Code:

procedure TIrgendwas.DoIt;
var
  lStringList: TStringList;
  lRun: Integer;
begin
  lStringList := TStringList.Create;
  try
    fGetFiles('C:\...', '*.dproj', lStringlist);
    for lRun := 0 to lStringList.Count - 1 do
    begin
      // Hier kommt dann deine Eintragung in die Stringlist rein, das kriegst du mit sicherheit selber hin ;)
      showMessage(lStringList[lRun]); // anstelle von diesem hier
    end;
  finally
    lStringList.Free;
  end;
end;

MfG DrTosh

Wunderbar, Danke!