|
|
Функция
извлечения текста из мемо-поля
Извлекает
текст из мемо-поля Field, бывает очень полезна когда в программе идет
обработка таких полей. Сокращает код и увеличивает читабельность.
function GetMemoText(Field:TMemoField):string;
var MemStr:TMemoryStream;
s:String;
begin
MemStr:=TMemoryStream.Create;
MemStr.Clear;
Field.SaveToStream(MemStr);
MemStr.Position:=0;
SetLength(s,MemStr.Size);
MemStr.Read(s[1],MemStr.Size);
result:=s;
MemStr.Clear;
MemStr.Destroy;
end;
|
|