IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> длина строк и файлов, >255 и >8
_92
сообщение 21.04.2005 9:05
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Мужской
Реальное имя: alex

Репутация: -  0  +


можно ли в паскале работать...
1. со строками более 255 символов
2. с именами файлов более 8 символов


--------------------
лишь утратив всё, мы обретаем свободу...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Romtek
сообщение 21.04.2005 13:23
Сообщение #2


Знаток
****

Группа: Пользователи
Сообщений: 303
Пол: Мужской
Реальное имя: Роман

Репутация: -  2  +


У меня пишет "Longnames not supported." на Windows XP, зато в 98-ом работало.
uses WinDOS, lfn;

Const
ext='.pas';

var
k: integer;
SR: TLFNSearchRec;

begin
if not SupportsLFN then
begin
writeln ('Longnames not supported.');
halt;
end;

k:=LFindFirst(ext, faArchive, SR);
if k<>0 then
begin
writeln ('No such files in this path.');
halt;
end;

while k=0 do
begin
writeln (SR.Name);
k:=LFindNext(SR);
end;
end.

Модуль прикреплён.

Короче, качай компилятор FPC и не парься!


Прикрепленные файлы
Прикрепленный файл  lfn_test.rar ( 2.73 килобайт ) Кол-во скачиваний: 206


--------------------
Romiras HomeLab- материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и прочее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 27.07.2025 7:46
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"