Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Frage zu Filetype von TJvFileListBox (https://www.delphipraxis.net/129449-frage-zu-filetype-von-tjvfilelistbox.html)

toyoman 19. Feb 2009 13:13


Frage zu Filetype von TJvFileListBox
 
So sieht meine Prozedure aus:

Delphi-Quellcode:
if filelistbox.FileType<>[ftDirectory] then
 begin
     if chkrelative.Checked=false then
     begin
        if filelistbox.FileName<>'' then
        begin
          lbfiles.Items.Add(filelistbox.FileName);
        end;
     end else
     begin
        if filelistbox.FileName<>'' then
        begin
          lbfiles.Items.Add(ExtractRightString(filelistbox.FileName,'\'));
        end;
     end;
 end else
 begin
   logfileschreiben('Filetype directory ignored!',logfilename);
 end;
Diese Befehle sollen nur durchlaufen werden wenn es sich NICHT um ein Verzeichnis also ftDirectory handelt. Leider funzt das nicht: Die Befehle werden auch beim Klick auf einen Ordner / Verzeichnis abgearbeitet. Sprich mein if filelistbox.FileType<>[ftDirectory] scheint nicht zu interessieren.

Was mach ich hier falsch?

Satty67 19. Feb 2009 13:18

Re: Frage zu Filetype von TJvFileListBox
 
Ungetestet...
Delphi-Quellcode:
if not (ftDirectory in filelistbox.FileType) then

toyoman 19. Feb 2009 14:01

Re: Frage zu Filetype von TJvFileListBox
 
Zitat:

Zitat von Satty67
Ungetestet...
Delphi-Quellcode:
if not (ftDirectory in filelistbox.FileType) then

wenn ich dies so verwende wird der Code nicht mehr abgearbeitet, sprich Filetype wird ignoriert....


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:33 Uhr.

Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf