Платные хостинги     Раскрутка сайта     Книги по программированию

Как получить из пути имя папки?

- ExtractFileName(File:string) Это сообщение отредактировал <Spawn> - 29.1.2003, 05:13

- ИМХО, не поможет

- Упс) И точно ведь. Я подумал есу файл нужен.

- Result := Copy(path, LastDelimiter('\', path) + 1, 1000);

- Я бы все сделал так, как устроены мои мозги (т.е. криво), то получилось бы что-то типа этого:var i,j,u: integer; s, d: string;begins:='C:\windows\hack\my_dir'; for i:=0 to length(s) do if s[i]='\' then u:=i; for j:=u+1 to length(s) do d:=d+s[j]; caption:=d;end;Вроде работает

- Можно и так) Хотя не знаю, что будет быстрее(вариант предложенный Cully или это):function GetLastDir(str:string):string;vari:integer;beginfor i:=length(str) downto 1 do if str[i]='\' then begin Result:=Copy(str,i+1,Length(str)-i+1); Break; end;end; Это сообщение отредактировал <Spawn> - 29.1.2003, 05:53

- ExtractFilePath работает для C:\windows\hack\my_dir.А для C:\windows\hack\my_dir\ не работает. Так что впринципе и его можно применить

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD