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?