hurtigt spm

Hvad skal den så skrive??

/Kaspikov

Hvis den kun skal skrive filnavnet så brug det her:

if Extractfileext(SearchRec.Name)=\'.dat\' then
begin
ALength := Length(SearchRec.Name);
S := SearchRec.Name;
SetLength(S, (ALength -4)
combobox1.Items.Add(SearchRec.Name);
end;

/Casper

Ups, ret:

combobox1.Items.Add(SearchRec.Name);

til

combobox1.Items.Add(S);

if not (comparetext(
Extractfileext(SearchRec.Name),\'.dat\') = 0) then
        combobox1.Items.Add(SearchRec.Name);

Sådan !

prøv at erstatte hele koden med det her:


Procedure Tform1.Finddir(dir:string);
var
  SearchRec: TSearchRec;
begin
  If Copy(dir,Length(dir),1)<>\'\\\' then dir:=dir+\'\\\';
  IF not DirectoryExists(dir) then begin
  showmessage(\'Directory \"\'+dir+\'\" does not exist!\');
  exit;
  end;
  If FindFirst(dir+\'*.*\', faAnyFile, SearchRec)=0 Then
  Repeat
    If SearchRec.Attr=faDirectory Then begin
      If (SearchRec.Name=\'.\')or(SearchRec.Name=\'..\') then Continue;
      FindDir(dir+SearchRec.Name);
    end else begin
      if Extractfileext(SearchRec.Name)=\'.dat\' then
        //combobox1.Items.Add(SearchRec.Name);
    end;
  until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;


Det eneste forskel er to slashes i starten af femte nederste linie.

ZeroCol >> Prøv at læs de svar du får, så vil du se at de faktisk er rigtige.

martinlind>> Tak! :)

/Kaspikov

Kaspikov >> Selv tak ( så ved vi hvem vi ikke skal svare næste gang *S* )