Unterverzeichnis überprüfen

[Sharky]

Zitat von faux:

... Wie kann ich überprüfen, ob ein Verzeichnis Unterverzeichnis eines anderen Verzeichnisses ist?

Hai Faux,

mal so ins Blaue gedacht. Wenn ein Verzeichniss (V2) ein Unterverzeichniss eines anderen (V1) ist bedeutet dies doch das der String V1 komplett ein Bestandteil von V2 ist.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  V1 : String;
  V2 : String;
begin
  V1 := 'c:\sharky\blubb\';
  V2 := 'c:\sharky\blubb\meow';
  If Pos(V1,V2) = 1 then
  begin
    ShowMessage('V2 ist ein Unterverzeichniss von V1');
  end;
end;

Edit: Da war marabu mal wieder schneller