Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 1 690 • TDictionary Custom Sort 4 277 • Fast Watermark Sources 3 945 • 3D Designer 6 110 • Sik Screen Capture 4 209 • Patch Maker 4 756 • Айболит (remote control) 4 670 • ListBox Drag & Drop 3 810 • Доска для игры Реверси 90 580 • Графические эффекты 5 004 • Рисование по маске 4 035 • Перетаскивание изображений 3 375 • Canvas Drawing 3 690 • Рисование Луны 3 480 • Поворот изображения 3 010 • Рисование стержней 2 632 • Paint on Shape 2 025 • Генератор кроссвордов 2 792 • Головоломка Paletto 2 214 • Теорема Монжа об окружностях 2 913 • Пазл Numbrix 1 973 • Заборы и коммивояжеры 2 571 • Игра HIP 1 592 • Игра Go (Го) 1 521 • Симулятор лифта 1 801 • Программа укладки плитки 1 546 • Генератор лабиринта 1 914 • Проверка числового ввода 1 674 • HEX View 1 855 • Физический маятник 1 687

Главная страница

Исходники (более 1 300 исходных кодов)

Компоненты

Пример работы с указателями

Автор: Baa

var
  p1: ^string;
  s1: string;
begin
  s1 := 'NotTest';
  new(p1);
  p1 := @s1;
  p1^ := 'Test';
  Label1.Caption := s1