Интересные возможности делфи

@aliksend · Регистрация: 05.12.2010

Студворк — интернет-сервис помощи студентам

Предлагаю здесь выкладывать интересные возможности делфи (возможно переместить в другой раздел).
Сегодня нашел такую фишку:

Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var
  привет:String;
begin
привет:='Привет!';
Showmessage(привет);
end;

этот код будет работать! (проверено by Delphi xe2)
Также можно давать русские имена формам, другим контролам)
Если кто-нибудь ещё интересное знает - выкладывайте сюда (=

murderer · 02.03.2012, 08:17

Можно создавать синонимы переменных

Delphi
1
2
a: dword;
b: integer absolute a;

@aliksend · 02.03.2012, 15:55 **[ТС]**

ага или

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
type
 TMyProc = reference to procedure;
 
procedure proc1;
begin
writeln('1');
end;
 
procedure Proc(A:TMyProc);
begin
A;
end;
 
begin
Proc(proc1);
Proc(procedure() begin writeln('2'); end;);
end.

будет работать

murderer · 06.04.2019, 08:28

Можно адресовать строковую константу как массив

Delphi
1
write('abcd'[3]); //выведет 'c'

Для типа PChar работает одновременно и математика указателей и обращение как к массиву (можно писать как на си)

Delphi
1
2
3
4
5
6
7
8
var
a: PChar;
begin
...
  inc(a,23);
  a[3]:=a[5];
...
end.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .