function GetDirNameFromPath(Path: String): String;
var
Name : String;
i, LastPos:integer;
begin
LastPos:=0;
for i := 1 to Length(Path) - 1 do
if Path[i] = '\' then LastPos := i;
delete(Path,LastPos+1, Length(Path)-LastPos);
for i := 1 to Length(Path)-1 do
if Path[i] = '\' then LastPos := i;
Name := Copy(Path,LastPos+1, Length(Path)-LastPos);
Result := Name;
end;
Як це ти так з масиву літери береш? він же весь рядок з твоім '/' порівнює. До того ж є набір стандартних функцій для таких робіт:
ExpandFileName(FileName)
ExtractFileDir(FileName)
ExtractFileExt(FileName)
ExtractFileName(FileName)
ExtractFilePath(FileName)
де FileName повне ім'я файлу типу: "C:\Program Files\WinRAR\WinRAR.exe"
Knut
Huliganka
help!!!!!!!!!!!!
13:48:39, 20 листопада 2008 р. 
