Avatar billede mjall0w Nybegynder
28. maj 2007 - 19:36 Der er 15 kommentarer og
2 løsninger

Løkke til at udskrive alle filer i en mappe

Hvordan laver man en løkke så jeg får udskrevet alle filernes navn i en angivet mappe ?
Avatar billede arne_v Ekspert
28. maj 2007 - 19:49 #1
Du kalder vel FindFirst og derefter FindNext i en løkke.

Eksempel:
  http://delphi.about.com/od/vclusing/a/findfile.htm
Avatar billede mjall0w Nybegynder
28. maj 2007 - 19:52 #2
Hm ja det er så det jeg ikke ved ;)
Kan du ikke prøve at komme med et lidt kortere eksempel end det der ?
Avatar billede arne_v Ekspert
28. maj 2007 - 20:20 #3
Der er da ikke mere end 10-15 linier.

Funktionerne og recorden skal du ikke selv definere.
Avatar billede arne_v Ekspert
28. maj 2007 - 20:21 #4
Hvordan vil du have vist filnavnene ?
Avatar billede mjall0w Nybegynder
28. maj 2007 - 21:20 #5
Jamen bare navnet.. Skal bare have det til at udføre en kommando for fil der er :)
Avatar billede arne_v Ekspert
28. maj 2007 - 22:27 #6
Brug samme løkke og i.s.f. at gemme filnavnet så kalder du den kommando for filnavnet.
Avatar billede mjall0w Nybegynder
29. maj 2007 - 15:24 #7
Hmm .. Kan ik lige regne ud hvordan jeg skal gøre det..
Er ny til delphi såå.. Prøver og prøver, men ja .. :)
Avatar billede kroning Nybegynder
29. maj 2007 - 16:35 #8
Når du siger udskrive er det så til en printer eller til skærmen? Hvis det er til en printer hvordan skal det så skrives ud, ganske simpel tekst eller skal det sættes fint op med forskellige fonte og farver?
Avatar billede mjall0w Nybegynder
29. maj 2007 - 18:33 #9
Bare vises på skærmen. En lykke der kører alle filerne i mappen igennem, og skriver filernes navne :)
Avatar billede kroning Nybegynder
29. maj 2007 - 18:54 #10
Dette er taget mere eller mindre direkte fra det link som arne_v skrev:

procedure VisFiler(Path : string;Memo : TMemo);
var
    Rec : TSearchRec;
begin
  Path:=IncludeTrailingPathDelimiter(Path) ;
  if FindFirst(Path+'*.*', faAnyFile - faDirectory, Rec)=0 then
  try
  repeat
      Memo.Lines.Add(Rec.Name);
  until FindNext(Rec)<>0;
  finally
  FindClose(Rec);
  end;
end;

smid en memo på din form og kald den således:

VisFiler('c:\windows',Memo1);
Avatar billede mjall0w Nybegynder
29. maj 2007 - 21:17 #11
Hmm får fejlen:
Line 4: [Error] (4:7): Unknown type 'TSearchRec' in script

Bruger noget der hedder SCAR Divi til at lave det i. Kan det være derfor ?
Det er et program som bruges til at lave scripts så man kan snyde i forskellige online spil (musen rykker sig selv og gør tingene af sig selv) ..
Avatar billede kroning Nybegynder
29. maj 2007 - 21:37 #12
Så er jeg stået af.
Avatar billede arne_v Ekspert
30. maj 2007 - 02:06 #13
Har du husket at uses SysUtils ?
Avatar billede mjall0w Nybegynder
05. juni 2007 - 17:00 #14
Spurgte på et forum hvor de hovedsageligt brugte det program(SCAR) til at programmere med. Har desværre ikke løsningen på mig lige pt, men poster den senere.
Kan i ikke poste et svar så får i nogle point.

Og tak for hjælpen
Avatar billede arne_v Ekspert
06. juni 2007 - 02:00 #15
ok
Avatar billede arne_v Ekspert
28. oktober 2007 - 02:31 #16
kroning !?
Avatar billede kroning Nybegynder
28. oktober 2007 - 09:16 #17
k
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester