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.

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

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?

[jim_raynor]

Du kannst per ListBox1.Items.AddObject ein Eintrag mit einem Objekt verknüpfen. Wenn du jetzt die Einträge der Listbox per Ownerdraw selber zeichnest kannst du per ListBox1.Items.Objects[xxx] auf das Objekt zu greifen und die Eigenschften benutzen. (Typcast nicht vergessen, da Objects TObject zurückgibt)

[rudi_]

zu der Sache mit den Objekten hab ich gerade in einem anderen Thread schon etwas gepostet...hier der link:

http://www.delphipraxis.net/internal...=260075#260075

mfg rudi

[valon]

Hi!

ehrlich gesagt weiss ich nicht was das mir bringen soll. Ich muss dazu sagen ich bin Anfänger in delphi, so das mir einiges kompliziert erscheint.

Was ich will ist nur , wie oben beschrieben in der ListBox unterscheiden ob es sich um eine Datei oder unterverzeichnis handelt.

hast du mir vielleicht Code-Schnipsel?

danke

[valon]

keiner mehr ne Idee?

[alcaeus]

Hi valon,

erstmal solltest du nicht vor 24 Stunden posten

Ich will aber nicht so sein und helfe mal. In deinem Code unterscheidest du, was geschehen soll wenn es sich um einen Ordner handelt:

Delphi-Quellcode:

if (FFileList.Items[i].isDirectory) then 
  ListBox1.Items.Add(FFileList.Items[i].Filename+'\') 
else 
  ListBox1.Items.Add(FFileList.Items[i].Filename);

Wenn du nun anstatt einer ListBox eine ListView verwendest, dann kannst du auch ein Icon einbinden. Dazu sollte die Forensuche eigentlich reichen, falls aber Probleme auftreten kannst du gerne nochmal fragen. Mit einer ListBox ist die Anzeige eines Icons aber nur mit Problemen verbunden

Greetz
alcaeus