---

Jeg har et godt gammelt Delphi5-program. Men efter skift til win XP-home
er det opstået et problem i
forbindelse med en FindFirst - FindNext rutine.

FindResult := FindFirst(RecordPath + '????????.*', faAnyFile,SearchRec);
NavneStreng := SearchRec.Name;

Når jeg kører i Win 98 viser NavneStreng første filnavn i
RecordPath-mappen som den skal, men i XP
vises kun en halvtom Streng: '.'

Gode ideer modtages med tak.

Mange hilsener Jacob

---

Hej,

"Jacob Kjer" <cybermed@post8.tele.dk> wrote in message
news:3d68c496$0$64901$edfadb0f@dspool01.news.tele.dk...
> Når jeg kører i Win 98 viser NavneStreng første filnavn i
> RecordPath-mappen som den skal, men i XP
> vises kun en halvtom Streng: '.'


'.' betyder 'dette bibliotek'

den næste du finder er '..' = bilioteketet ovenover

Derefter kommer den første fil. Jeg ved ikke helt hvorfor det er sådan,
eller hvorfor det er anderledes i win98.

Du kan bare skrive:

if (searchrec.Name <> '.') and (searchrec.Name <> '..') then ...

Mvh.
Simon

---

Hej Simon og tak for godt forslag
Det med bibliotekssymbolet tænkte jeg godt nok ikke på , men det virker.
For at gøre det enklere har jeg tilføjet parameteren '- faDirektory' i
kaldet, så kommer jeg helt
uden om problemet.
FindResult := FindFirst(RecordPath + '????????.*', faAnyFile -
faDirectory,SearchRec);

Mange hilsener Jacob.

"Simon Hiort-Lorenzen" <bulk@_spamblock_hilo.dk> skrev i en meddelelse
news:akapgm$as8$1@sunsite.dk...
> if (searchrec.Name <> '.') and (searchrec.Name <> '..') then ...

---

Hej Jacob

Du kan ikke bruge "RecordPath + '????????.*'", da dine "????????" kun gi'r
filnavne med 8 karakterer, hvilket sansynligvis vil snyde dig.
Brug du hellere Simons forslag, hvilket jeg normalt også bruger.

Mvh
Pølle


"Jacob Kjer" <cybermed@post8.tele.dk> skrev i en meddelelse
news:3d68fd7d$0$43949$edfadb0f@dspool01.news.tele.dk...
> Hej Simon og tak for godt forslag
> Det med bibliotekssymbolet tænkte jeg godt nok ikke på , men det virker.
> For at gøre det enklere har jeg tilføjet parameteren '- faDirektory' i
> kaldet, så kommer jeg helt
> uden om problemet.
> FindResult := FindFirst(RecordPath + '????????.*', faAnyFile -
> faDirectory,SearchRec);
>
> Mange hilsener Jacob.
>
> "Simon Hiort-Lorenzen" <bulk@_spamblock_hilo.dk> skrev i en meddelelse
> news:akapgm$as8$1@sunsite.dk...
> > if (searchrec.Name <> '.') and (searchrec.Name <> '..') then ...
>
>
>
>

---

Hej Pølle!
Det virker faktisk i min udgave.
Baggrunden er at filerne er cpr.numre d.v.s 8 cifre + .+ 2 cifre
MVH Jacob

"Pølle" <No@Name.dk> skrev i en meddelelse news:akcqi1$ham$1@sunsite.dk...
> Hej Jacob
>
> Du kan ikke bruge "RecordPath + '????????.*'", da dine "????????" kun gi'r
> filnavne med 8 karakterer, hvilket sansynligvis vil snyde dig.
> Brug du hellere Simons forslag, hvilket jeg normalt også bruger.
>
> Mvh
> Pølle
>

---

> "Jacob Kjer" <cybermed@post8.tele.dk> wrote in message
> news:3d68c496$0$64901$edfadb0f@dspool01.news.tele.dk...
> if (searchrec.Name <> '.') and (searchrec.Name <> '..') then ...

Eller hurtigere:
if searchrec.Name[1] <> '.' then ...