Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Главная » Статьи » Не стандартные примеры на Delphi » Базы Данных

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

   
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;

-Steve Schafer 

Категория: Базы Данных | Добавил: DelphiAiX (20.05.2012)
Просмотров: 194 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]