Получение значения Memo-поля с помощью Query

Delphi , Компоненты и Классы , TTable и TQuery

Получение 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.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TTable и TQuery ::