Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Вниз

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

 
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
{имена файлов не совпадают}


 
Separator   (2002-10-28 11:07) [4]

у > 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\" ...



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.036 c
3-14930
sndanil
2002-12-13 18:42
2003.01.06
Поле Time


14-15270
Polevi
2002-12-16 13:16
2003.01.06
Нужен программист


3-14908
satron
2002-12-13 11:55
2003.01.06
Help me


3-14964
Лесник
2002-12-15 00:01
2003.01.06
Кak cоздать БД M$ Access в рантайме


6-15202
Новичок
2002-10-30 19:02
2003.01.06
Проблемы с Socket-ами





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский