Советы по 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 [000693]




- Начало -  - Назад -  - Вперед -



Книжный магазин