ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Lazarus
14 сообщений из 314, страница 13 из 13
  13  все
Lazarus
    #39980180
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
wadman
Проверьте, пожалуйста, кто-нибудь на свежем релизе wthread. :)

Проверил. Всё стабильно.
...
Рейтинг: 0 / 0
15.07.2020, 22:22
| Ответить | Цитировать | Написать  
Lazarus
    #39980186
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
wadman
Зачем целая функция?

Integer(WindowsState)

в xml писать. Чтобы читабельно было, все равно обвязка нужна.

Там оказывается есть даже StringToColor/ColorToString :) Так по ходу работы и находишь что-нибудь написанное кем-то
...
Рейтинг: 0 / 0
15.07.2020, 22:58
| Ответить | Цитировать | Написать  
Lazarus
    #39980191
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
Док
Чтобы читабельно было, все равно обвязка нужна.

Разве что для читабельности и если часто возникает необходимость руками править конфиги.
Линуксоиды оценят. )
Док
Там оказывается есть даже StringToColor/ColorToString :)

Это и в дельфи есть.
...
Рейтинг: 0 / 0
15.07.2020, 23:33
| Ответить | Цитировать | Написать  
Lazarus
    #39980326
Fr0sT-Brutal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fr0sT-Brutal
Гость
Это типа GetEnumName, только не универсальные, а под каждый тип?
...
Рейтинг: 0 / 0
16.07.2020, 11:28
| Ответить | Цитировать | Написать  
Lazarus
    #39980547
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
Fr0sT-Brutal,

если точнее
Код: pascal
1.
2.
3.
4.
5.
function StrToWindowState(const Name: string): TWindowState;
begin
  Result:=TWindowState(GetEnumValueDef(TypeInfo(TWindowState),Name,
                                       ord(wsNormal)));
end;




wadman
Разве что для читабельности и если часто возникает необходимость руками править конфиги.
Линуксоиды оценят. )

не обязательно. Из кода дефолтовый конфиг восстанавливать. Исходник же читабельнее.

Ты всегда помнишь, где и какая циферка что обозначает, хотя бы полгода спустя? :)
...
Рейтинг: 0 / 0
16.07.2020, 16:36
| Ответить | Цитировать | Написать  
Lazarus
    #39980552
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
Док
Ты всегда помнишь, где и какая циферка что обозначает, хотя бы полгода спустя? :)

Я в конфиг лезу только в случае, если там содержится параметр, который не доступен из интерфейса.
В ином случае удаляю.
...
Рейтинг: 0 / 0
16.07.2020, 16:42
| Ответить | Цитировать | Написать  
Lazarus
    #39980797
Fr0sT-Brutal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fr0sT-Brutal
Гость
Док
если точнее
Код: pascal
1.
2.
3.
4.
5.
function StrToWindowState(const Name: string): TWindowState;
begin
  Result:=TWindowState(GetEnumValueDef(TypeInfo(TWindowState),Name,
                                       ord(wsNormal)));
end;


Колоссальный хелпер))))
Я себе давно сделал обертку, чтобы писать более приятно:
TEnum<TWindowState>.Val(Name)
После этого и утилиты никакие не нужны
...
Рейтинг: 0 / 0
17.07.2020, 10:15
| Ответить | Цитировать | Написать  
Lazarus
    #40040820
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
Код: pascal
1.
2.
    Function GetItem(Index: Integer): TObject; {$ifdef CLASSESINLINE}inline;{$endif}
    Procedure SetItem(Index: Integer; AObject: TObject); {$ifdef CLASSESINLINE}inline;{$endif}


Периодически сталкиваюсь с таким дефайном, определение которого не нашёл.

Может кто-то уже копал в эту сторону?
Где оно может быть спрятано?
Или может галка какая-то в настройках проекта?
Инфы крайне мало об этом...
...
Рейтинг: 0 / 0
02.02.2021, 11:48
| Ответить | Цитировать | Написать  
Lazarus
    #40040825
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
wadman,

Обычно такие вещи в .inc файлах.
...
Рейтинг: 0 / 0
02.02.2021, 12:04
| Ответить | Цитировать | Написать  
Lazarus
    #40040834
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
alekcvp,

искал в inc,pp,pas.
...
Рейтинг: 0 / 0
02.02.2021, 12:35
| Ответить | Цитировать | Написать  
Lazarus
    #40040863
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
wadman,

В исходниках FPC, в файле, cclasses.pas, есть похожий дефайн.
...
Рейтинг: 0 / 0
02.02.2021, 13:47
| Ответить | Цитировать | Написать  
Lazarus
    #40040880
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
Kazantsev Alexey
В исходниках FPC, в файле, cclasses.pas, есть похожий дефайн.

Define или ifdef? Или C CLASSESINLINE?
...
Рейтинг: 0 / 0
02.02.2021, 14:15
| Ответить | Цитировать | Написать  
Lazarus
    #40040882
zedxxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zedxxx
Гость
wadman, Этот дефайн надо самому объявлять, если хотите чтобы методы инлайнились. Вот тут товарищ на это сетует: https://www.mail-archive.com/fpc-devel@lists.freepascal.org/msg38993.html]https://www.mail-archive.com/fpc-devel@lists.freepascal.org/msg38993.html
...
Рейтинг: 0 / 0
02.02.2021, 14:16
| Ответить | Цитировать | Написать  
Lazarus
    #40040905
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
wadman
Define или ifdef?

Там дефайн в начале файла:
Код: pascal
1.
2.
3.
{$ifndef VER2_0}
  {$define CCLASSESINLINE}
{$endif}



wadman
Или C CLASSESINLINE?

Потому и сказал, что похожий.
...
Рейтинг: 0 / 0
02.02.2021, 15:02
| Ответить | Цитировать | Написать  
14 сообщений из 314, страница 13 из 13
  13  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Lazarus
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=40040905&tid=2037658]:
 0ms
get settings:
 6ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 53ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 64ms
get tp. blocked users:
 1ms
others: 211ms
total:  372ms
созд. / загр.: 372ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]