Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.09.18;
Скачать: [xml.tar.bz2];

Вниз

Папка или файл?   Найти похожие ветки 

 
_ilya   (2003-09-05 13:13) [0]

У меня есть полный путь к файлу, как можно узнать, это папка или обычный файл? Подскажите, plz, буду оооочень признателен.


 
Basic   (2003-09-05 13:17) [1]

задай поиск Findfirst,и проверь атрибуты


 
Sandman25   (2003-09-05 13:20) [2]

DirectoryExists


 
[lamer]Barmaglot   (2003-09-05 13:21) [3]

DirectoryExists?


 
Vovchik_A   (2003-09-05 13:31) [4]

- DirectoryExists - Это проверка на наличие
Проверить нужно по атрибутам
var
sr1 : TSearchRec;
....
repeat
If ( sr1.Attr and faDirectory ) = faDirectory Then
begin
Memo1.Lines.Add("DIR "+sr1.name)
end
....


 
Sandman25   (2003-09-05 13:33) [5]

[4] Vovchik_A © (05.09.03 13:31)

FileExists


 
Vovchik_A   (2003-09-05 13:52) [6]

Я так понял ему надо узнать папка, то, что он находит или файл.
Он это узнает по атрибутам однозначно.


 
Sandman25   (2003-09-05 16:14) [7]

Согласен.


 
Vovchik_A   (2003-09-05 16:42) [8]

2 Sandman25 © (05.09.03 16:14) [7]
Давай, Саш, автора поста дождемся наверное. Пусть вопрос уточнит


 
han_malign   (2003-09-05 17:45) [9]

dw:=GetFileAttributes(Name);
fFile:=dw and FILE_ATTRIBUTE_DIRECTORY = 0;


 
Anatoly Podgoretsky   (2003-09-05 17:52) [10]

Но и через *Exists он узнает одназначно, что лучше дело вкуса, *Exists проще.


 
panov   (2003-09-05 17:56) [11]

Достаточно использовать только DirectoryExists...



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

Форум: "Основная";
Текущий архив: 2003.09.18;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.008 c
1-58676
Леша
2003-09-04 21:31
2003.09.18
Как сделать в гриде допустим чтоб если работаешь с записью


1-58710
Lit
2003-09-07 01:26
2003.09.18
Толщина линни в TSeriesChart


14-58860
Yanis
2003-08-30 19:49
2003.09.18
Не пожелеете.


1-58646
ikivio
2003-09-05 11:59
2003.09.18
PageControl в режиме RunTime


1-58673
DimaSS
2003-09-04 23:36
2003.09.18
цвет точки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский