Имена на одинкаковы файлы.

← →
vidiv © (2002-10-28 02:34) [0]

Подскажите пожалуйста, как разрешить следующую ситуацию:
Есть 2 строки, в которых находятся имена файлов. Как определить это имена одного и тогоже файла, или разные.

Пример:
s1="C:\Program files\borland\delphi5\bin\delphi32.exe"
s2="c:\windows\..\Progra~1\borland\DELPHI5\BIn\.\Delphi32.exe"
Поидее имне одного и тогоже файла. Но как это объяснить программе. Писать алгоритм, который будет сокращать ненужные части - как то криво. Может есть какаято функция?

← →
Opuhshii © (2002-10-28 07:31) [1]

ExtractFileName + AnsiSameText

← →
vidiv © (2002-10-28 08:57) [2]

Opuhshii пожалуйса примерчик, если не трудно.

← →
sask © (2002-10-28 09:01) [3]

var
FullPathName1, FullPathName2: String;
....
if AnsiLowerCase(ExtractFileName(FullPathName1)) =
AnsiLowerCase(ExtractFileName(FullPathName2)) then
{имена файлов совпадают}
else
{имена файлов не совпадают}

у > sask © (28.10.02 09:01) будут сравниваться только имена файлов
По моему можно сделать так:
function Sravnenie(Path1, Path2: string): boolean; begin Result:= false; Path1:= AnsiLowerCase(Path1); Path2:= AnsiLowerCase(Path2); if Path1 = Path2 then Result:= true else if ExtractFileName(Path1) = ExtractFileName(Path2) then begin ChDir(ExtractFileDir(Path1)); Path1:= GetCurrentDir; ChDir(ExtractFileDir(Path2)); Path2:= GetCurrentDir; if Path1 = Path2 then Result:= true end end;

← →
Nomad.kz (2002-10-28 15:54) [5]

2Separator
перед всеми действиями, неплохо, имхо, поюзать функцию ExpandFileName, т.к. если путь был относительный, то ExtractFileDir будет типа "..\path1\path\" ...

Имена на одинкаковы файлы. Найти похожие ветки