Borland C++ VCL FAQ
Страница 6.




Preview у TChart в run-time

Чтобы в run-time у компонента TChart (Chart1) сделать preview, напишите следующий код:
 ChartPreview(this, Chart1);
Не забудьте в проект подключить файл teeprevi.hpp

Как сжать базу данных Access?

Можно воспользоваться компонентом TAccessApplication со вкладки Servers. Его использование (frmMain - ваша форма):
 frmMain->AccessApplication1->RunCommand(acCmdCompactDatabase);
frmMain->AccessApplication1->Disconnect();
База сжимается. Единственное неудобство - выводится диалог Access для задания исходной базы и сжатой.

Как получить текст выделенного элемента в TComboBox?

Чтобы получить текст выделенного элемента в TComboBox, воспользуйтесь свойством ItemIndex следующим образом (ComboBox1 - ваш выпадающий список):
AnsiString SelectedItemText = ComboBox1->Items->Strings[ComboBox1->ItemIndex]; 


Как добавить стpокy в RichEdit, чтобы пpи этом

кypсоp остался в конце той же стpоки? Чтобы при добавлении строки в RichEdit (TRichEdit) курсор остался в конце добавленной строки, напишите следуюзий код:
RichEdit1->Lines->Add("тестовая строка");
RichEdit1->SelStart = RichEdit1->SelStart - 1;


Как использовать стандартные средства C++Builder для работы с gif и jpeg файлами?

Для того, чтобы использовать стандартные компоненты для работы с файлами gif и jpeg в C++Builder, необходимо зарегистрировать данные типы файлов. Для регистрации напишите следующий код.

Для jpeg.
TPicture *Picture = new TPicture();
Picture->RegisterFileFormat(__classid(TJPEGImage), "jpg", "jpg", __classid(TJPEGImage));
delete Picture;
Для gif.
TPicture *Picture = new TPicture();
Picture->RegisterFileFormat(__classid(TGIFImage), "gif", "gif", __classid(TGIFImage));
delete Picture;


Preview у TChart в run-time (для TChart 6)

Чтобы в run-time у компонента TChart (Chart1) версии 6 сделать preview, напишите следующий код:
 TeePreview(Application->MainForm, Chart1);
Не забудьте в проект подключить файл teeprevi.hpp

Получение дня недели (VCL вариант)

Для получения дня недели воспользуйтесь функцией DayOfWeek() из модуля Sysutils, передав ей текущую дату. DayOfWeek возвращает значение от 1 до 7, где 1 - воскресенье, 2 - понедельник, и т. д.
int Day = DayOfWeek(Date());


Получение текущей даты и времени (VCL вариант)

Для получения текущей даты и времени воспользуйтесь функцией Now() из модуля Sysutils.hpp. Функция возвращает объект TDateTime, который потом можно преобразовать в строку функцией DateTimeToStr

Получение директории, из которой запущена программа

Для получения директории, из которой запущена программа, воспользуйтесь следующим кодом:
ExtractFileDir(Application->ExeName);
Не забудьте в проект подключить модуль Sysutils.hpp

Загрузка содержимого из файла в BLOB-поле

Для загрузки содержимого из файла в BLOB-поле можно воспользоваться следующим кодом:
ADOTable1->Insert(); 
TMemoryStream *M = new TMemoryStream();
M->LoadFromFile("h:\\my_file.doc");
TStream *B = ADOTable1->CreateBlobStream(ADOTable1->FieldByName("My_Field"),bmWrite);
B->CopyFrom(M,M->Size);
delete B;
ADOTable1->Post();
delete M;
 
« Предыдущая статья   Следующая статья »