Советы по Delphi


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


varP: PChar;S: TMemoryStream;Size: LongInt;beginS := 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]




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



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