Einen Teil eines Strings trennen

[qb-tim]

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...

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?

:wiejetzt:

[Sharky]

HAi qb-tim,

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

[marabu]

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

Grüße vom marabu

[mkinzler]

Es wäre auch

Delphi-Quellcode:

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

möglich.

[SirThornberry]

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

[mkinzler]

Stimmt, müsste man abfangen.

Delphi-Quellcode:

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

[SirThornberry]

dann kann man's auch gleich mit copy machen:

Delphi-Quellcode:

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