Есть код ... что-то не так

← →
Batman © (2003-02-22 15:12) [0]

while not KartaTb.Eof do
begin
TabSheet1 := TTabSheet.Create(Self);
TabSheet1.Caption := "что-то";
TabSheet1.PageControl := PageControl1;

ZaklEdit := TDBRichEdit.Create(Self);
with ZaklEdit do
begin
Parent := TabSheet1;
DataSource := DM.KartaDSource;
ZaklEdit.DataField := "Zakl";
end;
KartaTb.Next;
end;

"Zakl" - это MEMO поле в базе. Если в базе несколько записей, то на всех TabSheet1 в DBRichEdit остается только последняя запись.

← →
Mike_Goblin © (2003-02-22 15:40) [1]

Блин ну вам хоть памятку пиши, как посты создвать
1. Я хочу реализовать ....
2. Я делаю это так ... (исходный код)
3. В строке программы ... возникает ошибка ....

по теме -
1. ты хочешь записи набора данных оторбразить в виде закладок с текстом, содержащим текст одного из полей набора данных
2. Код есть, слава кпсс
3. Проблема: на всех закладках отображается текст последней записи

Ответ: ты в цикле проходишь по всем записям и останавливаешься на последней. Элемент управления выбранный для отображения текста - data-aware, т.е автоматически отображает текущую запись. Выход использовать обычный RichEdit, не чувствительный к изменениям в наборе данных

← →
Mike_Goblin © (2003-02-22 15:41) [2]

Еще раз прошу прощения за ошибки в тексте

Спасибо, проблема решена.
Отдельное спасибо за памятку.

Есть код ... что-то не так Найти похожие ветки