Главная страница
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.017 c
1-1088
volph
2002-06-19 12:15
2002.07.01
как в ReachEdit разукрасить строки, сделать жирным?


1-1025
DeMoN-777
2002-06-17 16:31
2002.07.01
Надо запустить разные функции на разних виндах.


14-1142
kaif
2002-05-28 16:16
2002.07.01
Как в NT4 с мышью бороться?


14-1205
XeN
2002-05-10 19:23
2002.07.01
Задача о коммивояжере


1-957
chips
2002-06-19 15:42
2002.07.01
чтение файла