Forum: Object-Pascal / Delphi-Language
by SaFu,
13. Jun 2007
Na das ist doch zum Mäusemelken das wars wirklich
Danke klaus
Forum: Object-Pascal / Delphi-Language
by SaFu,
13. Jun 2007
Pfadordner:= ExtractFilePath(ParamStr(0))+'Vertretungspläne\';
ShellTreeView1.Root:= Pfadordner;
Forum: Object-Pascal / Delphi-Language
by SaFu,
13. Jun 2007
????
Was meinst du damit
procedure TForm7.Speichern2Click(Sender: TObject);
begin
ShellTreeView1.root:= Pfadordner;
if ShellTreeView1.Root = ShellTreeView1.Path. then
begin
Forum: Object-Pascal / Delphi-Language
by SaFu,
13. Jun 2007
Bei mir kommt immer die Message wenn ich kein name auswähle und wenn ich einen Ordner auswähle
procedure TForm7.Speichern2Click(Sender: TObject);
begin
ShellTreeView1.root:= Pfadordner;
if ShellTreeView1.Root = ShellTreeView1.Path then
begin
speichern; //Alles speichern
end
Forum: Object-Pascal / Delphi-Language
by SaFu,
13. Jun 2007
Nö geht auch nicht
Unit7.pas(930): Inkompatible Typen: 'String' und 'TShellFolder'
und bei meiner version kam das
Unit7.pas(930): Inkompatible Typen: 'String' und 'Boolean'
Forum: Object-Pascal / Delphi-Language
by SaFu,
13. Jun 2007
So ja auch nicht
if ShellTreeView1.Root = True
ich komm echt net drauf
Forum: Object-Pascal / Delphi-Language
by SaFu,
13. Jun 2007
Was mach ich falsch
if ShellTreeview1.Root = (Pfadordner) = True then
begin
MessageDlgPos('Nichts ausgewählt!',mtInformation,,0,290,300);
end
Forum: Object-Pascal / Delphi-Language
by SaFu,
13. Jun 2007
genau das
war es
hab nochmal ne kleine frage
wie prüfe ich ob ein Ordner ausgewählt wurde im shelltreeview
if not ShellTreeview1.SelectedFolder = true then
Showmessage('Nichts ausgewählt')
Forum: Object-Pascal / Delphi-Language
by SaFu,
13. Jun 2007
Achso vorher habe ich das mit dem Speichern so gemacht
Grid:= ExtractFilePath(ParamStr(0))+'Vertretungspläne\'+ ComboBox4.Text+'.txt';
FileStream.SaveToFile(Grid);
Da wird die Datei mit dem name im Ordenr Vertretungspläne gespeichert würde jetzt gerne aber den pfad vom shelltreewiev haben
Forum: Object-Pascal / Delphi-Language
by SaFu,
13. Jun 2007
Doch erstell sie so
ForceDirectories(ExtractFilePath(ParamStr(0)) + 'Vertretungspläne\'+(IntToStr(YearOf(DateTimePicker1.DateTime)))
und mein shellTreeView ist so eingestellt
Pfadordner:= ExtractFilePath(ParamStr(0))+'Vertretungspläne\';
Forum: Object-Pascal / Delphi-Language
by SaFu,
13. Jun 2007
Guten morgen
Hab mal ne Frage zum ShellTreeView ich habe das Shelltreeview auf einen bestimmten Ordener gesetzt in dem Erzeuge ich dann unterordner.
Danach werden dateien erstellt und die will ich jetzt mit dem Unterordnernamen und datei namen abspeichern
Mein problem ist jetzt wie lese ich den Unterordenernamen aus um den in den in den namen der zu speichernde Datei zu übergeben
...