Недавно добавленные исходники
• Animation Loaders 954 • DeLiKaTeS Tetris (Тетрис) 5 891 • TDictionary Custom Sort 7 844 • Fast Watermark Sources 7 512 • 3D Designer 10 742 • Sik Screen Capture 8 070 • Patch Maker 8 271 • Айболит (remote control) 8 320 • ListBox Drag & Drop 7 155 • Доска для игры Реверси 101 066 • Графические эффекты 8 388 • Рисование по маске 7 764 • Перетаскивание изображений 6 358 • Canvas Drawing 6 733 • Рисование Луны 6 662 • Поворот изображения 5 797 • Рисование стержней 4 736 • Paint on Shape 3 440 • Генератор кроссвордов 4 430 • Головоломка Paletto 3 573 • Теорема Монжа об окружностях 4 370 • Пазл Numbrix 2 829 • Заборы и коммивояжеры 3 783 • Игра HIP 2 549 • Игра Go (Го) 2 555 • Симулятор лифта 2 946 • Программа укладки плитки 2 370 • Генератор лабиринта 3 123 • Проверка числового ввода 2 606 • HEX View 3 011

Главная

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

Компоненты

Форум

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

Автор: Baa

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