Delphi 1

Получение Memo-значения в область Edit без использования Memo-поля.

• Разместите на вашей форме объект Query (Query1)
• Разместите на вашей форме объект Edit (Edit1)
• Разместите на вашей форме объект Button (Button1)
• Дважды щелкните на Query и добавьте поле Memo. (Biolife.db использует текстовое поле)
• Установите свойство Query1 SQL следующим образом: Select * from Biolife
• Установите свойство Query1 Active в True
• Добавьте следующий код в обработчик события кнопки Button1 OnClick:

  ---

  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;