ListBox?

3.
ChangeFileExtension(ExtractFileName(filnavn),'');

4.
copy(filnavn,length(ChangeFileExtension(ExtractFileName(filnavn),''))+2,length(filnavn)-length(ChangeFileExtension(ExtractFileName(filnavn),''))-2);

4. er måske lidt overkill men det burde løse opgaven

Ved ikke hvor smart det er at lave kolonner i en listbox... Jeg ville prøve stringgrid istedet

4.
copy(filnavn,length(ChangeFileExtension(ExtractFileName(filnavn),''))+2,length(filnavn)-length(ChangeFileExtension(ExtractFileName(filnavn),''))-2);

Man kunne også bruge ExtractFileExt(Filnavn)...

Hej Kasper,
hvorfor i alverden bruger TStringGrid eller TListBox?
For mig virker det lidt underligt.

Brug da TListView komponentet, det er bygget til netop dette formål. Jeg har kodet et lille eksempel jeg håber du kan bruge.

TFileInfo Record.
Bruges til kort at gemme en masse info om filerne.

  TFileInfo = record
    Icon : hIcon;
    Image : Integer;
    DisplayName : String;
    TypeName : String;
    Size : Integer;
    SizeDescription : String;
    DateTime : TDateTime;
    AttrArchive : Boolean;
    AttrReadOnly : Boolean;
    AttrSystem : Boolean;
    AttrHidden : Boolean;
    AttrVolume : Boolean;
    AttrDirectory : Boolean;
  end;

Find filerne og indsæt i TListView

procedure TMainForm.ChangeFolder(Path:String);
var
  SearchRec: TSearchRec;
  FileAttrs:integer;
  FileInfo:TSHFileInfo;
  anItem: TlistItem;
  Info: TFileInfo;
begin
  FileAttrs:= FaAnyFile;
  if FindFirst(Path+'*.*', FileAttrs, SearchRec) = 0 then
  Repeat
    ShGetFileInfo(PChar(Path+SearchRec.Name), 0, FileInfo, SizeOf (TSHFileInfo),
      SHGFI_TYPENAME or SHGFI_DISPLAYNAME or SHGFI_SYSICONINDEX or SHGFI_ICON);

    with Info do
    begin
      Icon  := FileInfo.hIcon;
      Image := FileInfo.iIcon;
      DisplayName := FileInfo.szDisplayName;
      TypeName := FileInfo.szTypeName;
    end;

    anItem:= TListItem.Create(ListView.Items);
    anItem.SubItems.Add(Info.Typename);
    anItem.SubItems.Add(ReturnTime(searchRec.Time));
    anItem.SubItems.Add(FileSizeToString(searchRec.Size));
    ListView.Items.AddItem(anItem);
    anItem.Caption:= Info.DisplayName;
  until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

Lidt funktioner så vi kan vise dataene ordenligt til brugeren

function TMainForm.ReturnTime(time:integer):string;
var aDate: TDateTime;
begin
  aDate:= FileDateToDateTime(time);
  result:= DateTimeToStr(aDate);
end;

function TMainForm.FileSizeToString(const IntSize : Int64) : String;
begin
  if IntSize < 1024 then
    Result := IntToStr(IntSize)+' bytes'
  else
  begin
    if IntSize < (1024 * 1024) then
      Result := FormatFloat('####0.##',IntSize / 1024)+' Kb'
    else
      if IntSize < (1024 * 1024 * 1024) then
        Result := FormatFloat('####0.##',IntSize / 1024 / 1024)+' Mb'
      else
        Result := FormatFloat('####0.##',IntSize / 1024 / 1024 / 1024)+' Gb';
  end;
end;

Du kan downloade et eksempel her:
http://kenman.dk/temp/file_ex.zip

Altså skal 4'eren se sådan ud:

var
filnavn tring
begin
filnavn := 'c:\\enfil.filnavn';
Listbox1.Items.Add(filnavn,length(ChangeFileExtension(ExtractFileName(filnavn),''))+2,length(filnavn)-length(ChangeFileExtension(ExtractFileName(filnavn),''))-2);
?

Og så lige noget mere:

Hvorfor virker det her ikke?
Den compiler, men loader ikke noget ind i ListBox1..
Form1:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListTrue: TListBox;
    ListFalse: TListBox;
    OpenDialog1: TOpenDialog;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure FileList(const PathName, FileName : string);
var
  Rec  : TSearchRec;
  Path : string;
begin
  Path := IncludeTrailingBackslash(PathName);
    if FindFirst (Path + FileName, faAnyFile - faDirectory, Rec) = 0
        then try
        repeat
          Form1.ListTrue.Items.Add(Path + Rec.Name);
        until FindNext(Rec) <> 0;
      finally
        FindClose(Rec);
    end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
    FileList('Form2.Dir', '*.*');
    ListTrue.Items := ListFalse.Items;
end;

end.

Form2:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    DirectoryListBox1: TDirectoryListBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    dir: String;
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
 Dir := DirectoryListBox1.Directory;
 Form1.ShowModal;
 Close;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
 Application.Terminate;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  DirectoryListBox1.Directory := 'F:\\';
end;

end.

Form2 er mainformen!

Tak, det er lidt nemmere Jonas

Hvordan bruger jeg så StringGrid?

Vil du ikke prøve at vise en Unit, hvor du bruger det?

Edit: Sry, havde ikke set jeg kunne downloade

Hey Kasper,
fået kigget det igennem?

Ja, men er desværre gået lidt i stå med projektet.