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