Podkatalog

Mam 2 stringi dir1 i dir2, kazdy zawiera sciezke do jakiegos katalogu. Jak najprosciej sprawdzic, czy sa to katalogi niezalezne, tzn czy nie sa rownoznaczne i czy jeden nie jest podkatalogiem drugiego? Nie chodzi o kontrole tego, co sie dzieje na dysku, tylko o analize nazwy.

Pierwszy pomysl:
if (dir1=dir2) or (Pos(dir1,dir2)+Pos(dir2,dir1)0)
then
ShowMessage('Please choose independent folders');

potyka sie na
dir1='C:\Analysis' i dir2='C:\AnalysisTemp'

Ja bym tak próbował:
jeżeli dir1 jest pokatalogiem dir2 to dir1\ zawiera się w dir2.

czyli coś w stylu (Pos(dir1,dir2\)+Pos(dir2,dir1,dir2\)0)

ale nie sprawdzałem empirycznie

Kris

Dopisałem slash bo mi pałkę usunęło

Może to w czymś pomoże

CompareStr(String1, String2) ;-)

if (LeftStr(dir1, Length(dir2)) = dir2)or(LeftStr(dir2, Length(dir1)) = dir1) then
ShowMessage('Katalogi zależne');

pq: dodawaj na końcu brakujące slashe i potem sprawdzaj!!