Извлечение текста из 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;

« Предыдущая статья		Следующая статья »