Announcement

**Elke Sausy** · 14.08.2001, 18:01

Hallo Klaus,
ich finde es schade, dass bis jetzt noch niemand auf Deine Frage geantwortet hat, denn das w�rde mich auch mal interessieren. Die Onlinehilfe ist in dieser Hinsicht wirklich nicht sehr hilfreich. Aber was nicht ist, kann ja noch werden.
Gru� Elk

**Christian Seehase** · 14.08.2001, 23:31

Hallo Klaus, 
 
ich hoffe mal, dass Du mit diesem Beispiel etwas anfangen kannst. 
Im Prinzip ist das ganze ein Viewer f�r ein paar Dateitypen, die meist 
reine Textdateien (oder RTF ohne Grafik) sind. 
Die eigentlich gesuchte Funktionalit�t, soweit ich sie richtig verstanden 
habe macht zwar den mit Abstand kleinsten Teil aus, aber daf�r l�uft das 
ganze auch. Ist getestet (zumindest mit D5pro SP1). 
Ich hoffe mal, dass die Unterschiede nicht zu gravierend sind. 
Sollte ich Deine Frage missverstanden haben, kannst Du sie ja noch mal 
pr�zisieren. 
Um es Lauff�hig zu machen, musst Du einen TTreeView (Align = alLeft), 
dann einen TSplitter, und anschliessend ein TRichEdit (Align = alClient, 
ScrollBars = ssBoth) auf einem Formular plazieren. 
Dann das Projekt unter beliebigem Namen speichern, und die Unit1 als 
Unit MAIN. Anschliessend gesamten Inhalt von MAIN durch den folgenden 
Source Code austauschen. 
Dann noch im Objektinspektor die Ereignisse OnCreate f�r Form1, 
sowie OnDblClick und OnExpanding f�r TreeView1 doppelclicken. 
Speichern, compilieren, fertig. 
Sollte funktionieren. 
 
Sicherheitshalber hab' ich mal �berausf�hrlich kommentiert, denn eventuell 
liest das ja auch jemand mit weniger Vorwissen. 
Wahrscheinlich ist ein grosser Teil davon f�r Dich ja �berfl�ssig. 
 
 
<pre>
// Verwendet wurden
// ein TTreeView mit Align = alLeft
// ein TSplitter
// ein TRichEdit mit ScrollBars = ssBoth und Align = alClient
// Alle Einstellungen im Objectinspector
// Benutzt werden die Ereignisse
// Form1.OnCreate;
// TreeView1.OnDblClick
// TreeView1.OnExpanding

unit MAIN;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, ExtCtrls;

type
TForm1 = class(TForm)
TreeView1: TTreeView;
Splitter1: TSplitter;
RichEdit1: TRichEdit;
procedure FormCreate(Sender: TObject);
procedure TreeView1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
procedure TreeView1DblClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

// Pointer um TStringList ressourcenschonend als Parameter nutzen zu k�nnen
Type
PTStringlist = ^TStringList;

var
Form1: TForm1;

// Kommentare bei den Routinen
Function GetFullPath(Const ptnNode : TTreeNode) : String;
Procedure GetDirectories(Const psPath : String;
Const pslResult : PTStringList);
Procedure GetFiles(Const psPath : String;
Const pslResult : PTStringList);

implementation

{$R *.DFM}

// Hier den Treeview initialisieren
procedure TForm1.FormCreate(Sender: TObject);

Var
sDriveList : String; // Puffer f�r die Laufwerke des Rechners
lIndex : LongInt; // Schleifenvariable

Begin
// Platz f�r Laufwerksbuchstaben reservieren
// Maximal 26 Laufwerksbuchstaben zzgl :\ und abschliessendem chr(0)
// plus gesamt abschliessendem chr(0) = 105 Zeichen
sDriveList := StringOfChar(#00,105);
// Auf dem Rechner verf�gbare Laufwerke holen
GetLogicalDriveStrings(105,PChar(sDriveList));
// �berz�hlige Zeichen entfernen, aber ein chr(0) dazu, damit div wieder stimmt
sDriveList := Trim(sDriveList)+#00;
// Jedes Laufwerk das auf dem Rechner vorhanden ist eintragen
for lIndex := 1 to (Length(sDriveList) div 4) do
Begin
With TreeView1 do
Begin
// Und Laufwerksbuchstaben eintragen
Items.Add(nil,Copy(sDriveList,((lIndex-1) shl 2)+1,2));
// Vorsorglich einmal das Plus vor den Eintrag
Items[Items.Count-1].HasChildren := True;
end;
end;
end;

// Datei auf die Doppelt geclickt wurde anzeigen
procedure TForm1.TreeView1DblClick(Sender: TObject);

Const
// Liste von Extensions die meist Textfiles (oder RTF sind)
// MUSS auf Leerstelle enden, sonst

**Christian Seehase** · 14.08.2001, 23:33

// MUSS auf Leerstelle enden, sonst wird die letzte Extension nicht erkannt
_sValidExtensions = '.TXT .BAT .CMD .HTM .HTML .PAS .DPR .JS .VBS .CSS .RTF .CGI .INF ';

Var
tnNode : TTreeNode; // Arbeitsvariable
sFilePath : String; // Pfad der Datei (Vollst�ndig)

begin
// Ausgew�hlten Node holen
tnNode := (Sender as TTreeView).Selected;
// Wenn g�ltig
if tnNode <> nil then
Begin
// Pfad ermitteln
sFilePath := GetFullPath(tnNode);
// Ist es eine Datei?
if FileExists(sFilePath) then
Begin
//Ja. Ist die Extension erlaubt?
if Pos(AnsiUpperCase(ExtractFileExt(sFilePath))+' ',_sValidExtensions) > 0 then
Begin
// Dann Datei anzeigen
RichEdit1.Lines.LoadFromFile(sFilePath);
end;
end;
end;
end;

// Treeview1.OnExpanding
procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
Var
sDirectory : String; // Ausgew�hlter Pfad
slContent : TStringList; // Liste f�r Directories und Files
tnNode : TTreeNode; // Arbeitsvariable
lIndex : LongInt; // Schleifenz�hler

begin
// Ausgew�hlten Node holen
tnNode := (Sender as TTreeView).Selected;
// Wenn g�ltig
if tnNode <> nil then
Begin
// Pfad holen
sDirectory := GetFullPath(tnNode);
// Liste initialisieren
slContent := TStringList.Create;
// Erstmal die enthaltenen Directories auslesen
GetDirectories(sDirectory,@slContent);
// Bisherigen Inhalt des Nodes l�schen (Mehrfache Eintr�ge verhindern)
tnNode.DeleteChildren;
// Directories hinzuf�gen
for lIndex := 0 to slContent.Count - 1 do
Begin
// Neues Child hinzuf�gen und gleichzeitig dessen Child auf True (k�nnte zumindest sein)
tnNode.Owner.AddChild(tnNode,slContent[lIndex]).HasChildren := True;
end;
// Jetzt noch die Dateien hinzuf�gen
GetFiles(sDirectory,@slContent);
for lIndex := 0 to slContent.Count - 1 do
Begin
// Dateien k�nnen kein Child haben deshalb hier False
tnNode.Owner.AddChild(tnNode,slContent[lIndex]).HasChildren := False;
end;
// Liste wieder freigeben
slContent.Free;
end;
end;

// Vollst�ndigen Pfad des angegebenen Nodes ermitteln
Function GetFullPath(Const ptnNode : TTreeNode) : String;

Var
tnNode : TTreeNode; // Arbeitsvariable

Begin
tnNode := ptnNode.Parent; // Parent Node holen
Result := ptnNode.Text; // Result initialisieren
// Solange Parent vorhanden
While tnNode <> nil do
Begin
// dessen Text davor
Result := tnNode.Text + '\'+ Result;
tnNode := tnNode.Parent;
end;
end;

// Liste der Directories holen
Procedure GetDirectories(Const psPath : String; // Directories in diesem Pfad
Const pslResult : PTStringList); // und hier sollen sie rein

Var
srSearch : TSearchRec;
lResult : LongInt; // Ergebnis f�r FindFirst usw.

Begin
// Ergebnisliste l�schen
pslResult^.Clear;
// und ersten Eintrag lesen
lResult := FindFirst(psPath + '\*.*',faAnyFile,srSearch);
While (lResult = 0) do
Begin
Application.ProcessMessages;
if (srSearch.Name <> '.') // Nicht den Eintrag f�r das eigene Verzeichnis
and
(srSearch.Name <> '..') // oder das �bergeornete
and
((srSearch.Attr and faDirectory) = faDirectory) then // aber ein Directory soll es sein
Begin
// Bedingungen erf�llt, dann speichern
pslResult^.Add(srSearch.Name);
end;
// Und n�chsten Eintrag suchen
lResult := FindNext(srSearch);
end;
// Ressourcen wieder freigeben
FindClose(srSearch);
// Zu guter letzt noch sortieren
pslResult^.Sort;
end;

// Analog zu GetDirectories bis auf (siehe unten)
Procedure GetFiles(Const psPath : String;
Const pslResult : PTSt

**Christian Seehase** · 14.08.2001, 23:34

<pre>
// MUSS auf Leerstelle enden, sonst wird die letzte Extension nicht erkannt
_sValidExtensions = '.TXT .BAT .CMD .HTM .HTML .PAS .DPR .JS .VBS .CSS .RTF .CGI .INF ';

Var
tnNode : TTreeNode; // Arbeitsvariable
sFilePath : String; // Pfad der Datei (Vollst�ndig)

begin
// Ausgew�hlten Node holen
tnNode := (Sender as TTreeView).Selected;
// Wenn g�ltig
if tnNode <> nil then
Begin
// Pfad ermitteln
sFilePath := GetFullPath(tnNode);
// Ist es eine Datei?
if FileExists(sFilePath) then
Begin
//Ja. Ist die Extension erlaubt?
if Pos(AnsiUpperCase(ExtractFileExt(sFilePath))+' ',_sValidExtensions) > 0 then
Begin
// Dann Datei anzeigen
RichEdit1.Lines.LoadFromFile(sFilePath);
end;
end;
end;
end;

// Treeview1.OnExpanding
procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
Var
sDirectory : String; // Ausgew�hlter Pfad
slContent : TStringList; // Liste f�r Directories und Files
tnNode : TTreeNode; // Arbeitsvariable
lIndex : LongInt; // Schleifenz�hler

begin
// Ausgew�hlten Node holen
tnNode := (Sender as TTreeView).Selected;
// Wenn g�ltig
if tnNode <> nil then
Begin
// Pfad holen
sDirectory := GetFullPath(tnNode);
// Liste initialisieren
slContent := TStringList.Create;
// Erstmal die enthaltenen Directories auslesen
GetDirectories(sDirectory,@slContent);
// Bisherigen Inhalt des Nodes l�schen (Mehrfache Eintr�ge verhindern)
tnNode.DeleteChildren;
// Directories hinzuf�gen
for lIndex := 0 to slContent.Count - 1 do
Begin
// Neues Child hinzuf�gen und gleichzeitig dessen Child auf True (k�nnte zumindest sein)
tnNode.Owner.AddChild(tnNode,slContent[lIndex]).HasChildren := True;
end;
// Jetzt noch die Dateien hinzuf�gen
GetFiles(sDirectory,@slContent);
for lIndex := 0 to slContent.Count - 1 do
Begin
// Dateien k�nnen kein Child haben deshalb hier False
tnNode.Owner.AddChild(tnNode,slContent[lIndex]).HasChildren := False;
end;
// Liste wieder freigeben
slContent.Free;
end;
end;

// Vollst�ndigen Pfad des angegebenen Nodes ermitteln
Function GetFullPath(Const ptnNode : TTreeNode) : String;

Var
tnNode : TTreeNode; // Arbeitsvariable

Begin
tnNode := ptnNode.Parent; // Parent Node holen
Result := ptnNode.Text; // Result initialisieren
// Solange Parent vorhanden
While tnNode <> nil do
Begin
// dessen Text davor
Result := tnNode.Text + '\'+ Result;
tnNode := tnNode.Parent;
end;
end;

// Liste der Directories holen
Procedure GetDirectories(Const psPath : String; // Directories in diesem Pfad
Const pslResult : PTStringList); // und hier sollen sie rein

Var
srSearch : TSearchRec;
lResult : LongInt; // Ergebnis f�r FindFirst usw.

Begin
// Ergebnisliste l�schen
pslResult^.Clear;
// und ersten Eintrag lesen
lResult := FindFirst(psPath + '\*.*',faAnyFile,srSearch);
While (lResult = 0) do
Begin
Application.ProcessMessages;
if (srSearch.Name <> '.') // Nicht den Eintrag f�r das eigene Verzeichnis
and
(srSearch.Name <> '..') // oder das �bergeornete
and
((srSearch.Attr and faDirectory) = faDirectory) then // aber ein Directory soll es sein
Begin
// Bedingungen erf�llt, dann speichern
pslResult^.Add(srSearch.Name);
end;
// Und n�chsten Eintrag suchen
lResult := FindNext(srSearch);
end;
// Ressourcen wieder freigeben
FindClose(srSearch);
// Zu guter letzt noch sortieren
pslResult^.Sort;
end;

// Analog zu GetDirectories bis auf (siehe unten)
Procedure GetFiles(Const psPath : String;
Const pslResu

**Christian Seehase** · 14.08.2001, 23:36

<pre>
// Analog zu GetDirectories bis auf (siehe unten)
Procedure GetFiles(Const psPath : String;
Const pslResult : PTStringList);

Var
srSearch : TSearchRec;
lResult : LongInt;

Begin
pslResult^.Clear;
lResult := FindFirst(psPath + '\*.*',faAnyFile,srSearch);
While (lResult = 0) do
Begin
Application.ProcessMessages;
if (srSearch.Name <> '.')
and
(srSearch.Name <> '..')
and
((srSearch.Attr and faDirectory) <> faDirectory) then // Jetzt darf es kein Directory sein
Begin
pslResult^.Add(srSearch.Name);
end;
lResult := FindNext(srSearch);
end;
FindClose(srSearch);
pslResult^.Sort;
end;

end.
</pre>
 
 
Viel Spass denn noch. 
 
Ciao 
Chris 
 
PS: Sorry, ist l�nger geworden als gedacht (: 
Beim 'zusammenbauen' bitte auf die Nahtstellen achten.<br&gt

Announcement

TreeView

TreeView

Comment

Comment

Comment

Comment

Comment