Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

КАК?   Найти похожие ветки 

 
Dennn_is   (2002-06-18 08:49) [0]

Уважаемые Мастера! Как мне получить имя файла если имеется путь к нему? Например, я с помощью функции ExtractFilePath(paramstr(0)) получаю путь к файлу start.exe: C:\Programm\
А как мне получить имя этого файла в виде: start.exe? Спасибо.


 
MBo ©   (2002-06-18 08:51) [1]

ExtractFileName ;)))


 
Dennn_is   (2002-06-18 09:10) [2]

>MBo ©

Пробовал, не выходит.... как написать правильно? я писал так: ExtractFileName(ExtractFilePath(paramstr(0)))


 
MBo ©   (2002-06-18 09:12) [3]

убрать ExtractFilePath


 
GrayFox   (2002-06-18 09:22) [4]

а я мучился, оказывается есть стандартные функции =)))

function GetFileName(Path:string):string;//результат: имя файла
var
k: integer;
begin
isFile:=false;

if length(Path)>0 then
begin
k:=length(Path);
while ((Path[k]<>"\") and (k>4)) do
begin
dec(k);
if (
((length(Path)-k)<6) and
(Path[k]=".")
)
then isFile:=true;
end;
end;
if isFile then
begin
Result:=copy(form1.FromPathEdit.Text,k+1,length(form1.FromPathEdit.Text)-k+1);
SrcFolder:=copy(form1.FromPathEdit.Text,1,k);
end
else
begin
Result:="";
SrcFolder:=Path;
end;

end;

смысл в том чтоб добраться до слэша, второе: если найдем точку на таком то расстоянии от конца то следовательно это имя файла, затем выковыриваем его, хотя надо поставить еще проверку на размер, ведь папку тоже может содержать точку


 
Игорь Шевченко ©   (2002-06-18 09:28) [5]

ExcractFileName(ParamStr(0))

GrayFox (18.06.02 09:22)
Извращение :-)



 
MBo ©   (2002-06-18 09:31) [6]

>GrayFox
не в данном случае, а вообще пригодится функция
LastDelimiter


 
GrayFox   (2002-06-18 10:20) [7]

почти =)
токо вот экстрактфайлнэйм возвратит имя папки если это не файл, а папка и даже не скажет что это не файл, придется тип еще проверять.


 
Игорь Шевченко ©   (2002-06-18 10:26) [8]

GrayFox (18.06.02 10:20)

Речь шла про ParamsStr(0)


 
SuperUmnik ©   (2002-06-18 10:33) [9]

если собственное имя файла нужно определить то можно Application.ExeName;
А Грей Фокс все работает у тебя до тех пор пока кто нить не додумается в название папки вставить точку!)))или в названии файла! (Попробуй сам)
У меня жена любит названия присваивать папкам такие что бы враги не догодались типа П.15_.34ВК !!! вот и интересно как у тебя будет что то работать если такой же User попадется!



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

Текущий архив: 2002.07.01;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.016 c
3-892
Filat
2002-06-07 12:02
2002.07.01
Почему возникают ошибки подключения ODBC ?


1-979
chips
2002-06-20 11:14
2002.07.01
работа с файлами


14-1203
esprit_bel
2002-06-01 09:36
2002.07.01
имхо


3-889
Бульбаш
2002-06-07 12:12
2002.07.01
В Qreport неправильно выводится сумма группы


1-1078
Fraktall
2002-06-18 21:38
2002.07.01
Помогите пожалуйста!