Memo
Здравствуйте. Не подскажите, у меня есть на форме Memo1. Туда я хочу выводить данные полей базы данных т.е. информацию о человеке (фам. имя. отч. данные) делал так:
это по полю данные.
Но мне надо чтобы выводились все поля и каждое на новой строке.
Также писал так:
Но выводится только последние поле.
Код:
Memo1->Text = ADOTable1->FieldByName("DANIE")->AsString;
это по полю данные.
Но мне надо чтобы выводились все поля и каждое на новой строке.
Также писал так:
Код:
Memo1->Text = ADOTable1->FieldByName("FAM")->AsString;
Memo1->Text = ADOTable1->FieldByName("IMA")->AsString;
Memo1->Text = ADOTable1->FieldByName("OTH")->AsString;
Memo1->Text = ADOTable1->FieldByName("DANIE")->AsString;
Memo1->Text = ADOTable1->FieldByName("IMA")->AsString;
Memo1->Text = ADOTable1->FieldByName("OTH")->AsString;
Memo1->Text = ADOTable1->FieldByName("DANIE")->AsString;
Но выводится только последние поле.
Код:
Memo->Clear();
Memo1->Lines->Add(ADOTable1->FieldByName("FAM")->AsString);
Memo1->Lines->Add(ADOTable1->FieldByName("IMA")->AsString);
Memo1->Lines->Add(ADOTable1->FieldByName("OTH")->AsString);
Memo1->Lines->Add(ADOTable1->FieldByName("DANIE")->AsString);
Memo1->Lines->Add(ADOTable1->FieldByName("FAM")->AsString);
Memo1->Lines->Add(ADOTable1->FieldByName("IMA")->AsString);
Memo1->Lines->Add(ADOTable1->FieldByName("OTH")->AsString);
Memo1->Lines->Add(ADOTable1->FieldByName("DANIE")->AsString);
да, спасибо все работает как надо.