|
| D5 /win XP spørgsmål Fra : Jacob Kjer |
Dato : 25-08-02 12:51 |
|
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
| |
Simon Hiort-Lorenzen (25-08-2002)
| Kommentar Fra : Simon Hiort-Lorenzen |
Dato : 25-08-02 15:28 |
|
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
| |
Jacob Kjer (25-08-2002)
| Kommentar Fra : Jacob Kjer |
Dato : 25-08-02 16:53 |
|
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 ...
| |
Pølle (26-08-2002)
| Kommentar Fra : Pølle |
Dato : 26-08-02 09:57 |
|
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 ...
>
>
>
>
| |
Jacob Kjer (26-08-2002)
| Kommentar Fra : Jacob Kjer |
Dato : 26-08-02 20:12 |
|
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
>
| |
Ingolf (01-09-2002)
| Kommentar Fra : Ingolf |
Dato : 01-09-02 17:27 |
|
> "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 ...
| |
|
|