Listview af filer på c:\

Hej


Det med at de hele bliver tilføjet igen...

Start med at tilføje denne linie inden du tilføjer alle filerne

  ListView1.Items.Clear;

Det sletter alle items først.

Og til dit andet problem, så skal du bruge SubItems. Det hele fremgår af eksemplet herunder, som er en udbygning af din oprindelige kode...

  -- Koden --
procedure TForm1.Action1Execute(Sender: TObject);
Var
  Fsr : TSearchRec;
  SogSti : String;
  ListItem: TListItem;
  Sti : String;
Begin
  Sti := ('c:\');
  If Sti[Length(Sti)] = '\' then else
    Sti := Sti + '\';
  If LastDelimiter('g',Sti) > 0 then else
    SogSti := Sti + '*.*';

  If FindFirst(SogSti, faAnyFile, Fsr) = 0 then
    If FSr.Attr <> faDirectory then
      Begin
        ListItem := Lokal.Items.Add;
        ListItem.Caption := Fsr.Name;
        ListItem.SubItems.Add(ExtractFileExt(Fsr.Name)); //Denne linie tilføjer efternavnet i den næste celle.
        ListItem.SubItems.Add(IntToStr(Fsr.Size));
      end;

  While FindNext(Fsr) = 0 do
    If FSr.Attr <> faDirectory then
      Begin
        ListItem := Lokal.Items.Add;
        ListItem.Caption := Fsr.Name;
        ListItem.SubItems.Add(ExtractFileExt(Fsr.Name)); //Denne linie tilføjer efternavnet i den næste celle.
        ListItem.SubItems.Add(IntToStr(Fsr.Size));
      end;
  FindClose(Fsr);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Action1.Execute
end;

  -- Kode Slut --

P.S. Det er nemmest hvis du designer dine celler (paneler) i design-time.

Det gøres ved at højreklikke på ListView'et og klikke ColumnsEditor eller sådan noget. Derefter skal du tilføje tre Items, hvor den førstes caption skal sættes til f.eks. 'Filnavn' og nummer to til f.eks. 'Filtype' og den sidste 'Størrelse'.

Håber du kan bruge det :)

Ellers må du jo brokke dig :)

/SpEeDy

Speedy>>Hmm Jeg forsøgte mig med Onevent med viewlist1. Mener jeg bpde forsøgte ondata og onchange at inføre viewlist1.Items.Clear men det Kan åbenbart gøres mere simpelt ;-)

gozar >> Jeg kan ikke helt forstå ovenstående kommentar :). Virker det jeg skrev, eller er ovenstående et uddybende spørgsmål ??

/SpEeDy

gozar >> Er der meningen du skal have dine filnavne sorteret alfabetisk stigende og faldende når du trykker på headder i toppen af dit ListView?

Jens B

gozar >> Jeg glemte helt at fremføre min sædvanlige kæphest i mod den algoritme du bruger til at søge på din harddisk med. Eller måske ikke så meget algoritmen som den måde den er implemteret på. Problemet er at du blokerer hele dit program, og iøvrigt store dele af dit Os. I stedet burde du implemtere den algoritme i en tråd (Eksemple kan fremsendes) som så foretog den etenlige søgning. Iøvrigt er det også hurtigere ..

Jens B

borrisholt: kunne du ikke sende det eksempel til cocio@mail.ikasths.dk? :)

kokoko >> Jeg sender dig eksemplet med det samme iøvrigt kan det også downloades fra Http://borrisholt.com. du finder det under kategorien "FileIO"

Jens B.

gozar>> Er du der ?? Hallo :)

/SpEeDy

Du må meget gerne sende eksemplet til Gozar@pokerface.dk

Borrisholt>>Det vigtiste lige nu, er sådanset at få skidtet til at virke!! Resten må komme bagefter....

Speedy>>Diablo II udkom i fredags!!! Behøver jeg at sige mere!!

Øhh he he...

Er det muligt at få en lille gennemgang af hvad der enlig sker i scriptet speedy??

gozar>> Hvad mener du helt præcist med hvad der sker i scriptet ?? Altså vil du have en gennemgang af alle linierne hvad de gør ??

/SpEeDy

Ja, det ville jeg meget gerne

-- Koden --
procedure TForm1.Action1Execute(Sender: TObject);
Var
  Fsr : TSearchRec;
  SogSti : String;
  ListItem: TListItem;
  Sti : String;
Begin
  Sti := ('c:\');
  If Sti[Length(Sti)] = '\' then else //Spørger om Sti ender på \
    Sti := Sti + '\'; // Hvis ikke, så tilføj det.
  If LastDelimiter('g',Sti) > 0 then else
    SogSti := Sti + '*.*';

  If FindFirst(SogSti, faAnyFile, Fsr) = 0 then // Søger efter første fil
    If FSr.Attr <> faDirectory then //spørger om det er forskellig fra en mappe. Altså at det er en fil.
      Begin
        ListItem := Lokal.Items.Add; //Tilføjer i listviewet.
        ListItem.Caption := Fsr.Name; // Tilføjer filnavnet
        ListItem.SubItems.Add(ExtractFileExt(Fsr.Name)); //Denne linie tilføjer efternavnet i den næste celle.
        ListItem.SubItems.Add(IntToStr(Fsr.Size)); //Og til sidst tilføjer vi fil-størrelsen i sidste kolonne.
      end;

Det næste er det samme, det bliver bare gjort i en løkke, der stopper når der ikke er flere filer tilbage.

  While FindNext(Fsr) = 0 do
    If FSr.Attr <> faDirectory then
      Begin
        ListItem := Lokal.Items.Add;
        ListItem.Caption := Fsr.Name;
        ListItem.SubItems.Add(ExtractFileExt(Fsr.Name)); //Denne linie tilføjer efternavnet i den næste celle.
        ListItem.SubItems.Add(IntToStr(Fsr.Size));
      end;
  FindClose(Fsr);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Action1.Execute
end;

  -- Kode Slut --


/SpEeDy