Получение 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;
Получение значения Memo-поля с помощью Query: в статье описывается способ получения значения Memo-поля в область Edit без использования Memo-поля, используя объект Query и Button на форме Delphi.
