Извлечение текста из TMemoField
Falk0ner, вс, 06/07/2008 - 15:34.
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;
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
Взято с http://delphiworld.narod.ru
Отправить комментарий