Løkke til at udskrive alle filer i en mappe

Du kalder vel FindFirst og derefter FindNext i en løkke.

Eksempel:
  http://delphi.about.com/od/vclusing/a/findfile.htm

Hm ja det er så det jeg ikke ved ;)
Kan du ikke prøve at komme med et lidt kortere eksempel end det der ?

Der er da ikke mere end 10-15 linier.

Funktionerne og recorden skal du ikke selv definere.

Hvordan vil du have vist filnavnene ?

Jamen bare navnet.. Skal bare have det til at udføre en kommando for fil der er :)

Brug samme løkke og i.s.f. at gemme filnavnet så kalder du den kommando for filnavnet.

Hmm .. Kan ik lige regne ud hvordan jeg skal gøre det..
Er ny til delphi såå.. Prøver og prøver, men ja .. :)

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?

Bare vises på skærmen. En lykke der kører alle filerne i mappen igennem, og skriver filernes navne :)

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);

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) ..

Så er jeg stået af.

Har du husket at uses SysUtils ?

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

ok

kroning !?

k