AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Unterordnernamen auslesen

Ein Thema von SaFu · begonnen am 13. Jun 2007 · letzter Beitrag vom 13. Jun 2007
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#11

Re: Unterordnernamen auslesen

  Alt 13. Jun 2007, 11:10
Und so?if ShellTreeView1.SelectedFolder = ShellTreeView1.Root then
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#12

Re: Unterordnernamen auslesen

  Alt 13. Jun 2007, 11:12
Nö geht auch nicht

[Fehler] Unit7.pas(930): Inkompatible Typen: 'String' und 'TShellFolder' und bei meiner version kam das

[Fehler] Unit7.pas(930): Inkompatible Typen: 'String' und 'Boolean'
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.752 Beiträge
 
Delphi 10.4 Sydney
 
#13

Re: Unterordnernamen auslesen

  Alt 13. Jun 2007, 11:21
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
Klaus
  Mit Zitat antworten Zitat
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#14

Re: Unterordnernamen auslesen

  Alt 13. Jun 2007, 11:30
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
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.752 Beiträge
 
Delphi 10.4 Sydney
 
#15

Re: Unterordnernamen auslesen

  Alt 13. Jun 2007, 11:35
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
Klaus
  Mit Zitat antworten Zitat
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#16

Re: Unterordnernamen auslesen

  Alt 13. Jun 2007, 11:57
????

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
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.752 Beiträge
 
Delphi 10.4 Sydney
 
#17

Re: Unterordnernamen auslesen

  Alt 13. Jun 2007, 12:07
Was steht denn in Deinem Pfadordner?
Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#18

Re: Unterordnernamen auslesen

  Alt 13. Jun 2007, 12:09
Delphi-Quellcode:
Pfadordner:= ExtractFilePath(ParamStr(0))+'Vertretungspläne\';
  ShellTreeView1.Root:= Pfadordner;
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.752 Beiträge
 
Delphi 10.4 Sydney
 
#19

Re: Unterordnernamen auslesen

  Alt 13. Jun 2007, 12:13
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
Klaus
  Mit Zitat antworten Zitat
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#20

Re: Unterordnernamen auslesen

  Alt 13. Jun 2007, 12:17
Na das ist doch zum Mäusemelken das wars wirklich

Danke klaus
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:23 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz