Извлечение текста из TMemoField |
Previous Top Next |
Code: |
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
©Drkb::02483
Взято с http://delphiworld.narod.ru