Im TreeView Dateien ohne endung

[Uwe 111]

Hallo und Frohe Ostern noch

Mein Problem ist, ich habe dieTreeView aus ein Ordner befüllt. Aber ich möchte die endungen wie .txt nicht haben.
Also zum Beispiel die Datei Test.txt soll nur Test im Treeview stehen.

Hier mein Quellcode wie ich die TreeView befüllt habe

Delphi-Quellcode:

type
  pNodeInfo = ^tNodeInfo;
  tNodeInfo = record
      Path: Boolean;
      Name: String;
    end;


procedure TForm1.FindFilesTree(aTree: tTreeView; aPath: String;
  aNode: tTreeNode; aWithFiles: Boolean);
Var
  SearchRec: tSearchRec;
  NodeTmp: tTreeNode;
  Info: pNodeInfo;
Begin
  aTree.Items.BeginUpdate;

  // Wenn am Ende der Pfadangabe noch kein \ steht, dieses hinzufügen
  If aPath [Length (aPath)] <> '\' Then
    aPath := aPath + '\';

  If FindFirst (aPath + '*.*', faDirectory, SearchRec) = 0 Then
    Begin
      Repeat
        // Wenn es sich um ein Verzeichnis handelt
        If (SearchRec.Attr and faDirectory = faDirectory)
          and (SearchRec.Name[1] <> '.')
        Then
          Begin
            If (SearchRec.Attr and faDirectory > 0) then
              Begin
                New (Info);
                Info^.Path := True;
                Info^.Name := aPath + SearchRec.Name;

                // zum aktuellen Eintrag hinzufügen
                aNode := aTree.Items.AddChildObject (aNode, SearchRec.Name, Info);
              End;

            // Eintrag merken
            NodeTmp := aNode.Parent;
            // auf Untereinträge prüfen
            FindFilesTree (aTree, aPath + SearchRec.Name, aNode, aWithFiles);
            // Eintrag wiederholen
            aNode := NodeTmp;
          End
        Else
          // Eintrag ist eine Datei
          If aWithFiles
            and (SearchRec.Name <> '.') and (SearchRec.Name <> '..')
          Then
            Begin
              New (Info);
              Info^.Path := False;
              Info^.Name := aPath + SearchRec.Name;

              aTree.Items.AddChildObject (aNode, SearchRec.Name, Info);
            End;

      // solange weiter bis keine wieteren Dateien/Verzeichniss gefunden werden
      Until FindNext (SearchRec) <> 0;

      FindClose(SearchRec);
    End;

  aTree.Items.EndUpdate;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Path := ExtractFilePath(Application.ExeName) + 'Daten\';
  FindFilesTree (TreeView1, Path, nil, True);
end;

MfG
Uwe 111

[mkinzler]

Dann schneide den String doch entsprechend ab:
-Position von letzem Punkt ermitteln ( Pos()/PosEx()) und dann in anderen Strinb kopieren (Copy()) oder Kürzen (SetLength())

[daywalker9]

Schau dir mal die Funktion ExtractFileName

Delphi-Quellcode:

var
  myFileName : string;
begin
  ShowMessage(ExtractFileName(myFileName));
end;

an.

[mkinzler]

ExtractFileName() entfernt dern Pfad, aber nicht die Endung!

[daywalker9]

Zitat:

Zitat von mkinzler

ExtractFileName() entfernt dern Pfad, aber nicht die Endung!

Stimmt, hatte ich vergessen.

[himitsu]

ExtractFileName Holt doch nur den Dateinamen (samt Endung) aus einem Pfad raus?

ChangeFileExt mit '' als neue Endung wäre da passender.

[Uwe 111]

Hallo

himitsu

Zitat:

ExtractFileName Holt doch nur den Dateinamen (samt Endung) aus einem Pfad raus?

ChangeFileExt mit '' als neue Endung wäre da passender.

Ich möchte im Treeview überhaubt keine endung haben.

[mkinzler]

Das macht doch das ChangeFileExt()

[himitsu]

Zitat:

Zitat von mkinzler

Das macht doch das ChangeFileExt()

Jupp, ChangeFileExt mit '' würde die Dateiendung durch '' (zwei Apostroph mit nichts dazwischen) aka Nichts ersetzen. :stupid:

[mkinzler]

Aber nur im String, an der Datei wird nichts geändert

[Uwe 111]

Hallo

Nein die Dateiname soll gleich bleiben. Nur die endung soll weg

[mkinzler]

Und genau dass macht diese Funktion!

Delphi-Quellcode:

newfname := ChangeFileExt( 'Test.txt', '');

ergibt Test!
Hätte ein kurzer Test deinerseits auch ergeben!

[Neutral General]

Zitat:

Zitat von himitsu

ChangeFileExt mit '' als neue Endung wäre da passender.

Zitat:

Zitat von mkinzler

Das macht doch das ChangeFileExt()

Zitat:

Zitat von himitsu

Zitat:

Zitat von mkinzler

Das macht doch das ChangeFileExt()

Jupp, ChangeFileExt mit '' würde die Dateiendung durch '' (zwei Apostroph mit nichts dazwischen) aka Nichts ersetzen. :stupid:

Zitat:

Zitat von mkinzler

Aber nur im String, an der Datei wird nichts geändert

Reden die beiden Chinesisch? :wall:

[Uwe 111]

Hallo

Also ich habe die TreeView aus ein Ordner befüllt und da sind mehre Dateien drin. Mit Text.txt ist nur ein Beispiel.

[mkinzler]

Dann ersetzt dort halt die Stringkonstanten die Variable

[Uwe 111]

Wenn ich es wüste würde ich ja nicht fragen

[mkinzler]

Delphi-Quellcode:

Variable := ChangeFileExt( Variable, '');

[Uwe 111]

Hallo

Ich habe es so gemacht da hat der Dateiname immer noch die .txt endung.

Delphi-Quellcode:

  Path := ChangeFileExt( 'Daten', '');

[mkinzler]

-'Daten' ist ja wieder eine Konstante
-der Dateiname steht in SearchRec.Name

[Uwe 111]

Danke ich habe es hinbekommen. Und zwar so

Delphi-Quellcode:

Begin
  New (Info);
  Info^.Path := False;
  Info^.Name := aPath + SearchRec.Name;
  SearchRec.Name  := ChangeFileExt( SearchRec.Name , ''); <-------
  aTree.Items.AddChildObject (aNode, SearchRec.Name, Info);
End;

[mkinzler]

Sauberer wäre es aber so:

Delphi-Quellcode:

var
    Name: string;
...
Begin
  New (Info);
  Info^.Path := False;
  Info^.Name := aPath + SearchRec.Name;
  Name  := ChangeFileExt( SearchRec.Name , ''); <-------
  aTree.Items.AddChildObject (aNode, Name, Info);
End;

[Uwe 111]

OK Danke :cheers:

[CVi]

wie bekomme ich es hin das mir nur bestimmte dateitypen angezeigt werden zb. *.txt?