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 
 К началу страницы 
+ Ответить 
klem4
сообщение 21.04.2005 9:15
Сообщение #2


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


1) http://forum.pascalnet.ru/index.php?showtopic=2361 читай про PChar


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Atos
сообщение 21.04.2005 9:41
Сообщение #3


Прогрессор
****

Группа: Модераторы
Сообщений: 602
Пол: Мужской
Реальное имя: Михаил

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


Цитата
2. с именами файлов более 8 символов

В TurboPascal - нет sad.gif , он DOSовский
Зато в VirtualPascаl можно, не говоря уже о FreePascal и Delphi
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 21.04.2005 9:59
Сообщение #4


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


проще говоря в 32-х битных паскалях можно ;)


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 21.04.2005 10:32
Сообщение #5


Гость






Цитата(Atos @ 21.04.05 9:41)
В TurboPascal - нет  sad.gif  , он DOSовский

Правильно, но не совсем... Дело в том, что и ТР может работать с длинными именами файлов. Другое дело, что там односторонняя работа получается: уже существующий файл может быть прочитан и перезаписан, но вот создать новый с длинным именем - невозможно...
 К началу страницы 
+ Ответить 
_92
сообщение 21.04.2005 11:08
Сообщение #6


Новичок
*

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

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


а как же тогда прочитать файл с длиным именем? - мне нужно следующее: запись всех имен файлов и папок в файл (в том числе имена >8 символов)
--
p.s. в смысле, если считывать длинное имя, то получится что-то вроде "моидок~1" вместо "мои документы" - так как различать тогда "мои документы 1" и "мои документы 2", если в итоге и то, и другое получится как "моидок~1"?..
--
p.p.s. volvo и volvo877 - это один и тот же человек? smile.gif
--


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


Знаток
****

Группа: Пользователи
Сообщений: 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 килобайт ) Кол-во скачиваний: 194


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

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

 



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