Советы по Delphi


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


Получение 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);varbs : TBlobStream;p : array [0..50] of char;beginFillChar(p, SizeOf(p), #0);bs:= TBlobStream.Create(Query1Notes, bmRead);trybs.Read(p,50);finallybs.Free;end;Edit1.Text:=StrPas(p);end;

[000939]




Начало  Назад  Вперед



Книжный магазин