Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 771 • TDictionary Custom Sort 6 776 • Fast Watermark Sources 6 562 • 3D Designer 9 509 • Sik Screen Capture 6 897 • Patch Maker 7 342 • Айболит (remote control) 7 285 • ListBox Drag & Drop 6 149 • Доска для игры Реверси 98 023 • Графические эффекты 7 459 • Рисование по маске 6 756 • Перетаскивание изображений 5 612 • Canvas Drawing 5 990 • Рисование Луны 5 782 • Поворот изображения 5 231 • Рисование стержней 3 833 • Paint on Shape 2 991 • Генератор кроссвордов 3 936 • Головоломка Paletto 3 128 • Теорема Монжа об окружностях 3 953 • Пазл Numbrix 2 609 • Заборы и коммивояжеры 3 410 • Игра HIP 2 336 • Игра Go (Го) 2 249 • Симулятор лифта 2 650 • Программа укладки плитки 2 216 • Генератор лабиринта 2 761 • Проверка числового ввода 2 374 • HEX View 2 713 • Физический маятник 2 400

Главная

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

Компоненты

Форум

Извлечение текста из TMemoField

Автор: Steve Schafer

var
  P: PChar;
  S: TMemoryStream;
  Size: LongInt;
begin
  S := TMemoryStream.Create;
  MyMemoField.SaveToStream(S);
  Size := S.Position;
  GetMem(P, Size + 1);
  S.Position := 0;
  S.Read(P^, Size);
  P[Size] := #0;
  S.Free;
  { используем текст в PChar }
  FreeMem(P, Size + 1);
end;