Brauche QFileCtrls.dcu

[julchen]

Hallo,

hat jemand eine QFileCtrls.dcu für mich übrig,
die er mir schicken könnte, damit ich die einbinden kann?

[Bernhard Geyer]

Ist AFAIK nicht erlaubt diese so einfach zu verteilen?

Wieso denkst du das du die benötigst?

[Matze]

Benutzt doch mal die Suche bzw. Google: Da findet man die Unit sofort als 1. Suchergebnis: QFileCtrls.
Ob das erlaubt ist, weiß ich allerdings nicht.

Edit: Es steht zumindest als Lizenz "GPL" dran: koders.com

[DeddyH]

Waren diese Q*.dcu nicht die für Kylix? Das Projekt ist ja eh schon tot, so dass man evtl. über Lazarus nachdenken sollte, wenn man mit Pascal für Linux proggen möchte.

[Bernhard Geyer]

Zitat:

Zitat von DeddyH

Waren diese Q*.dcu nicht die für Kylix? Das Projekt ist ja eh schon tot, so dass man evtl. über Lazarus nachdenken sollte, wenn man mit Pascal für Linux proggen möchte.

Das ist genau die Frage ob es wirklich ein auf CLX basierendes Projekt ist oder nur versehentlich eine verweis auf eine Q*-Unit sich ins Projekt geschlichen hat.

[julchen]

Ich habe diese Funktion, die die Datei braucht:

Delphi-Quellcode:

function CountFiles(filespec: string): integer;
var
  d: TDirectory;
begin
  d := TDirectory.Create(nil);
  d.BeginUpdate;
  d.FileMask := ExtractFileName(fileSpec);
  d.Location := ExtractFilePath(fileSpec);
  d.FileType := [ftArchive];
  d.EndUpdate;
  Result := d.Count;
  d.Free;
end;

Wenn jemand einen anderen Lösungsvorschlag hat, dann her damit :-)

[mkinzler]

Entferne mal das Q im Unitnamen (unter Uses)

[julchen]

Lösung: Code von Joey *DClub* , DelphiLand

Delphi-Quellcode:

procedure CountFiles(FilePath: string);
var
  SearchRec: TSearchRec;
  Count: Integer;
begin
  Count := 0;
  if FilePath[Length(FilePath)] <> '\' then FilePath := FilePath + '\';
  if FindFirst(FilePath + '*.*', faAnyFile and not faDirectory, SearchRec) = 0 then
  begin
    Inc(Count);
    while FindNext(SearchRec) = 0 do
    begin
      Inc(Count);
    end;
  end;

  FindClose(SearchRec);
  Form1.Label1.Caption := IntToStr(Count);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CountFiles('C:\x\');
end;

[DeddyH]

Ich würde das eher so machen (ungetestet):

Delphi-Quellcode:

function CountFiles(FilePath: string): integer;
var
  SearchRec: TSearchRec;
begin
  Result := 0;
  FilePath := IncludeTrailingPathDelimiter(FilePath);
  if FindFirst(FilePath + '*.*', faAnyFile and not faDirectory, SearchRec) = 0 then
  begin
    repeat
      Inc(Result);
    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;
end; 

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := IntToStr(CountFiles('C:\x\'));
end;

[edit] inc(Count) in inc(Result) geändert, war vom C&P übrig geblieben [/edit]

[julchen]

Delphi-Quellcode:

function CountFiles(FilePath: string): integer;
var 
        SearchRec: TSearchRec;
        count: Integer;
begin
        count := 0;
        FilePath := IncludeTrailingPathDelimiter(FilePath);
        if FindFirst(FilePath + '*.*', faAnyFile and not faDirectory, SearchRec) = 0 then
        begin
          repeat
          Inc(Count);
          until FindNext(SearchRec) <> 0;
          FindClose(SearchRec);
        end;
        result := count;
end;

EDIT → habe Dein EDIT nicht gesehen!