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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: 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;

{/codecitation}

Добавить комментарий