/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
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 ...





Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408925
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste