Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 630 • TDictionary Custom Sort 6 634 • Fast Watermark Sources 6 413 • 3D Designer 9 354 • Sik Screen Capture 6 743 • Patch Maker 7 130 • Айболит (remote control) 7 136 • ListBox Drag & Drop 5 996 • Доска для игры Реверси 97 579 • Графические эффекты 7 329 • Рисование по маске 6 615 • Перетаскивание изображений 5 486 • Canvas Drawing 5 864 • Рисование Луны 5 588 • Поворот изображения 5 096 • Рисование стержней 3 663 • Paint on Shape 2 895 • Генератор кроссвордов 3 794 • Головоломка Paletto 3 047 • Теорема Монжа об окружностях 3 858 • Пазл Numbrix 2 537 • Заборы и коммивояжеры 3 250 • Игра HIP 2 220 • Игра Go (Го) 2 153 • Симулятор лифта 2 531 • Программа укладки плитки 2 173 • Генератор лабиринта 2 670 • Проверка числового ввода 2 322 • HEX View 2 655 • Физический маятник 2 287

Главная

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

Компоненты

Форум

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

Автор: Baa

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