Получение Memo-значения в область Edit без использования Memo-поля.
procedure TForm1.Button1Click(Sender: TObject); var bs : TBlobStream; p : array [0..50] of char; begin FillChar(p, SizeOf(p), #0); bs:= TBlobStream.Create(Query1Notes, bmRead); try bs.Read(p,50); finally bs.Free; end; Edit1.Text:=StrPas(p); end; |
[000939]