Unterordnernamen auslesen

[DeddyH]

Und so?

Delphi-Quellcode:

if ShellTreeView1.SelectedFolder = ShellTreeView1.Root then

[SaFu]

Nö geht auch nicht

Delphi-Quellcode:

[Fehler] Unit7.pas(930): Inkompatible Typen: 'String' und 'TShellFolder'

und bei meiner version kam das

Delphi-Quellcode:

[Fehler] Unit7.pas(930): Inkompatible Typen: 'String' und 'Boolean'

:cry:

[Klaus01]

Dies Konstrukt funktioniert bei mir ohne Probleme:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellTreeView1.root:='D:\';
 if ShellTreeView1.Root = ShellTreeView1.Path then
   begin
     ShowMessage('gleich');
   end;

Grüße
Klaus

[SaFu]

Bei mir kommt immer die Message wenn ich kein name auswähle und wenn ich einen Ordner auswähle

Delphi-Quellcode:

 
procedure TForm7.Speichern2Click(Sender: TObject); 
begin 
ShellTreeView1.root:= Pfadordner; 
if ShellTreeView1.Root = ShellTreeView1.Path then 
begin 
speichern; //Alles speichern 
end 
else 
begin 
MessageDlgPos('Bitte Ordner auswählen für die dazugehörige KW',mtInformation,[mbOk],0,290,300); 
end; 
end;

Sorry

[Klaus01]

Zitat:

Zitat von fuknersascha

Bei mir kommt immer die Message wenn ich kein name auswähle und wenn ich einen Ordner auswähle

Delphi-Quellcode:

 
procedure TForm7.Speichern2Click(Sender: TObject); 
begin 
ShellTreeView1.root:= Pfadordner; 
if ShellTreeView1.Root <> ShellTreeView1.Path then 
begin 
speichern; //Alles speichern 
end 
else 
begin 
MessageDlgPos('Bitte Ordner auswählen für die dazugehörige KW',mtInformation,[mbOk],0,290,300); 
end; 
end;

Sorry

[SaFu]

????

Was meinst du damit

Delphi-Quellcode:

procedure TForm7.Speichern2Click(Sender: TObject);
 begin
  ShellTreeView1.root:= Pfadordner;
   if ShellTreeView1.Root = ShellTreeView1.Path. then
     begin
        MessageDlgPos('Bitte Ordner auswählen für die dazugehörige KW',mtInformation,[mbOk],0,290,300);
     end
    else
    begin
    speichern; //Alles speichern
      ShellTreeView1.Refresh(ShellTreeView1.Items[0]);

     end;
 end;

Also ich habe es jetzt so und so geht es aber nicht

[Klaus01]

Was steht denn in Deinem Pfadordner?
Grüße
Klaus

[SaFu]

Delphi-Quellcode:

Pfadordner:= ExtractFilePath(ParamStr(0))+'Vertretungspläne\';
  ShellTreeView1.Root:= Pfadordner;

[Klaus01]

Also in der Path Eigenschaft stehen die Pfade ohne trailing Backslash.
Du übergibst dem Root aber einen Pfad mit trailing Backslash.

Jetzt hast Du zwei Möglichkeiten, beim Root den letzten Backslash entfernen
oder einen beim path hinzufügen.

Grüße
Klaus

[SaFu]

Na das ist doch zum Mäusemelken das wars wirklich

Danke klaus