Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];
ВнизКАК? Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c