Just nu i M3-nätverket
Jump to content

Lista filer i mapp


hugoni

Recommended Posts

Jag har sökt både här och där, även här. Vad jag fick fram var FindFirst, FindNext men jag vet inte riktigt om det fyller mina behov. Vad jag behöver är en kodsnutt som listar exempelvis alla txt-filer i den mapp där programmet exekverar i från. Mitt program ska sedan lista dessa påträffade txt-filer i exempelvis en Memo.

 

Någon som vet ett listigt svar? Tack på förhand!

 

 

\\ hugoni

Link to comment
Share on other sites

Jodå, FindFirst och FindNext klarar du dig alldeles utmärkt med. Glöm bara inte att använda FindClose efteråt. Kodsnutt ska väl finnas i hjälpfilen (TFM), annars får du hojta till.

 

Link to comment
Share on other sites

Tackar och bugar, det fungerade med lite trixande. Jag läser in det i en sträng, men jag får bara den sist funna filen med i min Memo1. Det ska till någon loop eller array, vet du en bra lösning utan eviga loopar?

 

 

\\ hugoni

 

Link to comment
Share on other sites

Jag förstår inte vad du menar.

 

var
 sr: TSearchRec:
 f: Integer;
...
 f := FindFirst(ExtractFilePath(Application.ExeName) + '\*.txt', faAnyFile, sr);
 try
   while f = 0 do
   begin
     Memo1.Lines.Add(sr.Name);
     i := FindNext(sr);
   end;
 finally
   FindClose(sr);
 end;

 

Link to comment
Share on other sites

Tusen tack, nu fungerade det. Kan uppmärksama andra som tänkt använda koden som läroverk att i = FindNext(sr); hakar processen vid kompilering, där ska det ju stå f := FindNext(sr);

 

Tack så mycket drbrno!

 

 

\\ hugoni

 

[inlägget ändrat 2002-02-14 10:24:52 av hugoni]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...