AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Frage zu FindFirst/FindNext

Ein Thema von MrMyagi · begonnen am 2. Apr 2008 · letzter Beitrag vom 2. Apr 2008
Antwort Antwort
wido

Registriert seit: 2. Jan 2006
122 Beiträge
 
#1

Re: Frage zu FindFirst/FindNext

  Alt 2. Apr 2008, 17:34
Zitat von MacGuyver:
Delphi-Quellcode:
var
  lEc : Integer;
  lDinfo : TSearchRec;


lEc:=FindFirst('*.*',faDirectory,lDinfo);
while lEc = 0 do
begin
  if lDinfo.Name[1] <> '.then
  begin

    //Und hier der gewünschte Kram...

  end;
  lEc:=FindNext(lDinfo);
end;
FindClose(lDinfo);
Einfach die erste Stelle des Namens abfragen.
Das resultiert darin, daß Dir ein Ordner wie z.B. .pulseaudio nicht angezeigt wird. Diese Ordner- und Dateinamen mit vorgestelltem Punkt sind bei Linux/Unix Portierung sehr beliebt und dienen meist dazu die Settings zu speichern.

Entsprechend wäre die bessere Lösung:
Delphi-Quellcode:
[pre]var
  lEc : Integer;
  lDinfo : TSearchRec;


lEc:=FindFirst('*.*',faDirectory,lDinfo);
while lEc = 0 do
begin
  if (lDinfo.Name <> '.') and (lDinfo.Name <> '..') then
  begin

    //Und hier der gewünschte Kram...

  end;
  lEc:=FindNext(lDinfo);
end;
FindClose(lDinfo);
[/pre]
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz