Hi,

ich möchte in einen meiner Programme, in einer OnChange eines TDirectoryListBox, aus dem String TDirectoryListBox.Directory nun die ersten 23 Zeichen in einen anderen String speichern um zu verhindern, dass der TDirectoryListBox aus einem bestimmten Ordner herauskommt...

markieren

Delphi-Quellcode:

String1 := {ein Befehl nur die ersten 23 Zeichen von} TDirectoryListBox.Directory {zu nehmen}
if String1 = String2 then // Vergleich: ob der erlaubte Ordner noch benutzt wird
  exit;
ShowMessage('Sie erhalten keinen Zugriff auf diesen Ordner!');
TDirectoryListBox.Directory := String2;

Was muss ich bei "String1 :=" schreiben damit ich mein Ziel erreichen kann?

HAi qb-tim,

schaue dir mal die Funktionen Copy und Pos an. Das sollte alles sein was Du brauchst.

Übrigens: es gibt eine Komponente TShellTreeView - bei der kann man den RootFolder im Object Inspector eintragen.

Grüße vom marabu

Es wäre auch

markieren

Delphi-Quellcode:

String1 := TDirectoryListBox.Directory;
setLength( String1, 23);

möglich.

@mkinzler: Das funktioniert aber nur so wie gewünscht wenn der String länger ist als 23 zeischen

Stimmt, müsste man abfangen.

markieren

Delphi-Quellcode:

Uses ..., Math;
...
setLength( String1, Min(23, Length( String1));

dann kann man's auch gleich mit copy machen:

markieren

Delphi-Quellcode:

String1 := TDirectoryListBox.Directory;
String1 := copy(String1, 1, 23);