ListBox

**valon**

Hallo Leute!
Habe folgendes Problem.

Ich habe eine ObjektListe mit all den Dateien\unterverzeichnisse eines bestimmten verzeichnisses.
Jedes Objekt ist eine Datei. in diesem Objekt gibt es 2 Atrribute : Dateiname und isDirectory.
isDirectory ist ein boolean . Ich setze es auf true wenn es sich bei dem Objekt um ein Unterverzeichnis handelt.

Problem: Jetzt möchte ich die Dateinamen in einer ListBox auflisten.Allerdings möchte ich , das
wenn es sich um ein Unterverzeichnis handelt, es irgendwie deutlich gemacht wird. zb. ein Ordner als Icon.So das ich in der Listbox dann zwischen einer datei und einem Unterverzeinis unterscheiden kann.

markieren

Delphi-Quellcode:

			FDirectory:String; // Das ist der Pfad von den Dateien

FFileList // Das ist die Objektliste mit den einzelnen Daeien und Unterverzeichnisse

FFileList.Items[i].Filename // Dateiname

FFileList.Items[i].isDirectory // ob es sich um Unterverzeichniss handelt.

Momentan mache ich es so

zusammenfalten · markieren

Delphi-Quellcode:

			{*******************************************************************************

* Diese Procedure füllt die ListBox mit den in der FileObjectList vorhandenen

  Dateien

*******************************************************************************}

procedure TForm1.FillListBox;

var i:Integer;

 begin

   Self.ListBox1.Clear;

   Self.FSelectedFileList.clear;

   for i:=0 to FFileList.count-1 do

    if (FFileList.Items[i].isDirectory) then

      ListBox1.Items.Add(FFileList.Items[i].Filename+'\')

    else ListBox1.Items.Add(FFileList.Items[i].Filename);

   Self.ListBox1.Sorted:= True;

 end;

habt ihr vielleicht ne Idee?

ListBox

ListBox

Forumregeln