FreePascal.ru

uses baseunix;

begin
WriteLn(fpReadLink('/usr/bin/ppcx64'));
end.



uses baseunix,sysutils;

begin
WriteLn(ExpandFileName(fpReadLink('/sys/class/net/enp2s0')));
end.



От спасибо, добрый человек! :)


;((
для версии fpc 2.6.4 это не работает
выдает относительную ссылку, от текущего ...

Alexander писал(а):

Код: Выделить всё

uses baseunix;

begin
WriteLn(fpReadLink('/usr/bin/ppcx64'));
end.

Код: Выделить всё

uses baseunix,sysutils;

begin
WriteLn(ExpandFileName(fpReadLink('/sys/class/net/enp2s0')));
end.

От спасибо, добрый человек!

Доброго времени суток!
подскажите плиз, есть ли стандартная процедура/функция в lazarus, в результате вызова которой я могу получить путь - куда ссылается ссылка.
Как пример:
есть каталог - ссылка /sys/class/net/eth0
он ссылается на /sys/devices/pci0000:00/0000:00:01.3/0000:02:00.2/0000:03:00.0 ...

вам надо получается лазить по всем его модулям
Как бы так и поступаю обычно)
Никогда не задумывался что это неудобно))
нууу, тут вот пример простой
есть модуль sysutil
и в нем кучка опредений
а он использует модуль linux
где нет определений, но например есть такое


{$if not defined(FPC_USE ...

Но в принципе вопрос правильный. Надо понять, что мешает разработчикам сделать дефайны в файле проекта глобальными.
Либо это не входит в представления разработчиков о Паскале, либо можно написать как пожелание улучшения или багрепорт.
Сами разработчики выходят из положения через инклюд файл, через ...

С учетом мгновенно забытой темы об области видимости и возможностей команды grep (а есть еще и find) не надо путешествовать, тем более, в ручном режиме.

Ему (если я правильно понимаю) нужно все дефайны в проекте и всех его зависимостях.
Именно так.

Grep и find - штуки хорошие, но нафига мне ВСЕ ...

В каждый модуль проекта добавить строку {$I Defines.pas}

А в нём (файле) уже разместить нужные дефайны.

Я так и делал сперва, но это архи не удобно, учитывая что некоторые модули я использую как библиотеку
т.е. в ней находятся функции не только определенного проекта, а просто общие, которые я ...

А элементарный текстовый поиск по слову $DEFINE - не? Ну так собирать все дефайны в одном включаемом файле для такого и придумано.
т.е. вы предлагаете пройтись по всем uses, которые есть в проекте ( по всем, в том числе и тем например которые есть в sysutils, т.е. Linux,Unix,errors,sysconst ...

Предвосхищая дальнейшие вопросы.

https://www.freepascal.org/docs-html/prog/prog.html#progch1.html
спасибо за ссылку, но там нет ответа на мой вопрос - как узнать все текущие определения проекта?
например в модуле sysutils который по умолчанию включается в uses и там есть такие

{$DEFINE OS ...

http://www.freepascal.ru/forum/viewtopic.php?f=1&t=7295
интересно, почему я не смог найти это?
честное пионерское - искал в поле Поиск - и небыло нифига подобного, почему и создал тему.
:(

Но тогда есть другой вопрос, как посмотреть все текущие DEFINE в проекте?
т.е. например есть директива UNIX ...

Делаю модуль который надо подключить в разные проекты и необходимо условной компиляцией исключить некоторые куски кода в разных проектах, для этого определил в модуле проекта символы и проверяю их существование в модуле, но их не видит модуль, хоть определяй, хоть нет :(

Сделал тестовый проект, с ...

Чесслово, никогда не работал с TControlBar. Всегда хватало TToolBar. :)
Но вот по задаче, был бы логично сделать две панели TToolBar и разместить их в TControlBar.
перекопал весь интернет, но так и не нашел решения проблемы с выравниванием тулбаров размещенных в контролбаре :(
В ide - настроил вот ...

Зачем такие извраты ? Обычный TStringList делает тоже самое только проще и совместимее(А возможно и быстрее ).
Как вариант - да, можно и так, но если полей по которым искать несколько, то по каждому надо делать свой TStringList.
Но тут я согласен с
добавление элементов в сортированный ...

Сразу возникает вопрос, строки, по которым требуется поиск, уникальны или нет?
да, конечно уникальные

Добавлено спустя 7 минут 9 секунд:
https://forum.lazarus.freepascal.org/index.php/topic,23070.msg137298.html#msg137298

If you want to make your own BST Tree then yes. Otherwise you can use ...

Есть список (Tlist) из 100тыс записей вида

Type
PData = ^TData;
TData = record
id:Integer;
name:String;
family:String;
nikname:String;
end;


Подскажите, что можно использовать в лазарусе для поиска по строки в этом списке (например найти запись у которой nikname='vasya')
Простым ...