public: // User declarations
__fastcall TfMain(TComponent* Owner);
void __fastcall SetIntToEdit(int i); //Вот здесь, заметь, что без TForm1 ;) Почему - объяснять не буду
};
(Часть 2) Я начинающий, подскажите пожалуйста как...
Данная тема предназначена для размещения вопросов начинающих программистов.
Прежде чем задать вопрос здесь, вы обязаны использовать
Кроме того, прежде чем размещать сообщение, ознакомьтесь с правилами.
При размещении вопросов начинающих помимо указанной темы, будет выдаваться нарушение, а тема удаляться.
Прежде чем задать вопрос здесь, вы обязаны использовать
- Поиск по форуму, используя ключевые слова из вашего вопроса. Как правильно использовать поиск - читайте здесь
- Список наиболее часто задаваемых вопросов (FAQ)
- Поиск по предыдущей теме
Кроме того, прежде чем размещать сообщение, ознакомьтесь с правилами.
При размещении вопросов начинающих помимо указанной темы, будет выдаваться нарушение, а тема удаляться.
Цитата: _nic
Хм ничего непонимаю вставляю эту ф-цию после строчки TForm1 *Form1; А компилятор мне ругается на эту ф-цию Type name expected :confused:
1. Надо функцию занести в *.h-файл, к классу Form1
2. Если у тебя форма называется не Form1, а, например, MainForm, то надо TMainForm::SetIntToEdit
Цитата: frid-karatel
1. Надо функцию занести в *.h-файл, к классу Form1
2. Если у тебя форма называется не Form1, а, например, MainForm, то надо TMainForm::SetIntToEdit
2. Если у тебя форма называется не Form1, а, например, MainForm, то надо TMainForm::SetIntToEdit
То есть в Unit1.h ?
ЗЫ:если в __published: совать то вылазит такое[img=http://img83.imageshack.us/img83/7710/74393405bu4.th.jpg]
если в public: то по прежнему ругается Type name expected
Цитата: _nic
То есть в Unit1.h ?
ЗЫ:если в __published: совать то вылазит такое[img=http://img83.imageshack.us/img83/7710/74393405bu4.th.jpg]
если в public: то по прежнему ругается Type name expected
ЗЫ:если в __published: совать то вылазит такое[img=http://img83.imageshack.us/img83/7710/74393405bu4.th.jpg]
если в public: то по прежнему ругается Type name expected
Сюда:
Код:
Цитата: frid-karatel
Сюда:
Код:
public: // User declarations
__fastcall TfMain(TComponent* Owner);
void __fastcall SetIntToEdit(int i); //Вот здесь, заметь, что без TForm1 ;) Почему - объяснять не буду
};
__fastcall TfMain(TComponent* Owner);
void __fastcall SetIntToEdit(int i); //Вот здесь, заметь, что без TForm1 ;) Почему - объяснять не буду
};
Спасибо,работает.
[offtop]А то я чего то впсоледнее время туплю :([/offtop]
Помогите совсем новичку.
Только сел изучать C++ по книге. Установил Borland Developer Studio 2006.
Накопилось несколько вопросов.
Как мне создать Exe файл что бы программа выполнялась из него.
И ещё один вопрос при нажатии F9 запускается программа написана появляется досовское окно и тутже закрывается, как мне сделать что бы оно оставалось что бы я мог увидеть результат работы программы.
Заранее спасибо.
Только сел изучать C++ по книге. Установил Borland Developer Studio 2006.
Накопилось несколько вопросов.
Как мне создать Exe файл что бы программа выполнялась из него.
И ещё один вопрос при нажатии F9 запускается программа написана появляется досовское окно и тутже закрывается, как мне сделать что бы оно оставалось что бы я мог увидеть результат работы программы.
Заранее спасибо.
Цитата: Nowal
Помогите совсем новичку.
Только сел изучать C++ по книге. Установил Borland Developer Studio 2006.
Накопилось несколько вопросов.
Как мне создать Exe файл что бы программа выполнялась из него.
И ещё один вопрос при нажатии F9 запускается программа написана появляется досовское окно и тутже закрывается, как мне сделать что бы оно оставалось что бы я мог увидеть результат работы программы.
Заранее спасибо.
Только сел изучать C++ по книге. Установил Borland Developer Studio 2006.
Накопилось несколько вопросов.
Как мне создать Exe файл что бы программа выполнялась из него.
И ещё один вопрос при нажатии F9 запускается программа написана появляется досовское окно и тутже закрывается, как мне сделать что бы оно оставалось что бы я мог увидеть результат работы программы.
Заранее спасибо.
подключи #include <iostream.h>
и вконце проги (но перед return 0) напиши cin.get();
Цитата:
Как мне создать Exe файл что бы программа выполнялась из него.
А она откуда потвоему выполняется? Из jpg???
Цитата:
И ещё один вопрос при нажатии F9 запускается программа написана появляется досовское окно и тутже закрывается, как мне сделать что бы оно оставалось что бы я мог увидеть результат работы программы.
Примерно так:
Код:
//---------------------------------------------------------------------------
#include <vcl.h>
#include "conio.h"
#include "iostream.h"
#pragma hdrstop
//---------------------------------------------------------------------------
#pragma argsused
int main(int argc, char* argv[])
{
cout<<"Press any key";
getch();
return 0;
}
//---------------------------------------------------------------------------
#include <vcl.h>
#include "conio.h"
#include "iostream.h"
#pragma hdrstop
//---------------------------------------------------------------------------
#pragma argsused
int main(int argc, char* argv[])
{
cout<<"Press any key";
getch();
return 0;
}
//---------------------------------------------------------------------------
Цитата: Se AD WMD
А она откуда потвоему выполняется? Из jpg???
Примерно так:
Примерно так:
Код:
//---------------------------------------------------------------------------
#include <vcl.h>
#include "conio.h"
#include "iostream.h"
#pragma hdrstop
//---------------------------------------------------------------------------
#pragma argsused
int main(int argc, char* argv[])
{
cout<<"Press any key";
getch();
return 0;
}
//---------------------------------------------------------------------------
#include <vcl.h>
#include "conio.h"
#include "iostream.h"
#pragma hdrstop
//---------------------------------------------------------------------------
#pragma argsused
int main(int argc, char* argv[])
{
cout<<"Press any key";
getch();
return 0;
}
//---------------------------------------------------------------------------
#include <vcl.h>
можно не писать! оно не нужно и компиляцию будет томозить
Посоветуйте как у Label в св-ве Caption вводить символы: α,δ,º!
Спасибо.
Спасибо.
Цитата: Dmitryl
Посоветуйте как у Label в св-ве Caption вводить символы: α,δ,º!
Спасибо.
Спасибо.
Label->Caption принимает строку в AnsiString-формате. Для того, чтобы тебе занести туда такие символы, надо использовать компонент Label, который поддерживает WideString формат.
Подскажите пожалуйста как в StringGrid(или F1Book) закрашивать определенную ячейку, "не задевая" текст!
Цитата: Dmitryl
Подскажите пожалуйста как в StringGrid(или F1Book) закрашивать определенную ячейку, "не задевая" текст!
в обработчике события OnDrawCell :
Код:
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
int ARow, TRect &Rect, TGridDrawState State)
{
UINT uFormat = DT_LEFT | DT_VCENTER ;
if(ACol == 2 && ARow == 2)
{
Canvas->Brush->Color = clGreen;
StringGrid1->Canvas->FillRect(Rect);
DrawText(StringGrid1->Canvas->Handle, // handle to device context
StringGrid1->Cells[ACol][ARow].c_str(), // pointer to string to draw
StringGrid1->Cells[ACol][ARow].Length(), // string length, in characters
&Rect, // pointer to structure with formatting dimensions
uFormat // text-drawing flags
);
}
}
int ARow, TRect &Rect, TGridDrawState State)
{
UINT uFormat = DT_LEFT | DT_VCENTER ;
if(ACol == 2 && ARow == 2)
{
Canvas->Brush->Color = clGreen;
StringGrid1->Canvas->FillRect(Rect);
DrawText(StringGrid1->Canvas->Handle, // handle to device context
StringGrid1->Cells[ACol][ARow].c_str(), // pointer to string to draw
StringGrid1->Cells[ACol][ARow].Length(), // string length, in characters
&Rect, // pointer to structure with formatting dimensions
uFormat // text-drawing flags
);
}
}
Создаются динамически формочки.
Подскажите,плиз, как можно проверить существует ли уже форма с Именем_Х?
Код:
void __fastcall TSDIAppForm::ImageDblClick(TObject *Sender)
{
TForm *Form = new TPropForm(Application);
Form->Show();
Form->Name = Pict->Name;
Form->Caption ="Свойства: " + Form->Name;
}
{
TForm *Form = new TPropForm(Application);
Form->Show();
Form->Name = Pict->Name;
Form->Caption ="Свойства: " + Form->Name;
}
Подскажите,плиз, как можно проверить существует ли уже форма с Именем_Х?
Цитата: COTPYDHuK
Создаются динамически формочки.
Подскажите,плиз, как можно проверить существует ли уже форма с Именем_Х?
Код:
void __fastcall TSDIAppForm::ImageDblClick(TObject *Sender)
{
TForm *Form = new TPropForm(Application);
Form->Show();
Form->Name = Pict->Name;
Form->Caption ="Свойства: " + Form->Name;
}
{
TForm *Form = new TPropForm(Application);
Form->Show();
Form->Name = Pict->Name;
Form->Caption ="Свойства: " + Form->Name;
}
Подскажите,плиз, как можно проверить существует ли уже форма с Именем_Х?
Код:
for (int i = 0; i < Application->ComponentCount; i++)
if (Application->Components->Name == NameX)
...................................................................................
if (Application->Components->Name == NameX)
...................................................................................
Я запускаю прогу (exe файл), мне нужно узнать с какого места она запущена, всмысле путь к файлу, и желательно имя файла.
Цитата: iRain
Я запускаю прогу (exe файл), мне нужно узнать с какого места она запущена, всмысле путь к файлу, и желательно имя файла.
Код:
Application->ExeName; //Путь и имя запускаемой программы, напр. "C:\Debug\Project1.exe"
ExtractFilePath(Application->ExeName); //Путь до файла, напр. "C:\Debug\"
ExtractFileName(Application->ExeName); //Имя файла, напр. "Project1.exe"
ExtractFileExt(Application->ExeName); //расширение, напр. ".exe"
ExtractFilePath(Application->ExeName); //Путь до файла, напр. "C:\Debug\"
ExtractFileName(Application->ExeName); //Имя файла, напр. "Project1.exe"
ExtractFileExt(Application->ExeName); //расширение, напр. ".exe"
Подскажите как получить содержимое выделенной строки с символами в ListBox ?
Цитата: _nic
Подскажите как получить содержимое выделенной строки с символами в ListBox ?
ListBox1->Items->Strings[ListBox1->ItemIndex];
Цитата: nikitozz
ListBox1->Items->Strings[ListBox1->ItemIndex];
А можно поподробней.ItemIndex сюда нада пихать номер строки?А то если просто так то выходит такое вот
http://img84.imageshack.us/my.php?image=errps0.jpg
Цитата: _nic
А можно поподробней.ItemIndex сюда нада пихать номер строки?А то если просто так то выходит такое вот
http://img84.imageshack.us/my.php?image=errps0.jpg
http://img84.imageshack.us/my.php?image=errps0.jpg
проверку поставь:
Код:
if (ListBox1->Items->Count > 0 && ListBox1->ItemIndex >= 0)
{
ListBox1->Items->Strings[ListBox1->ItemIndex];
}
{
ListBox1->Items->Strings[ListBox1->ItemIndex];
}
Крыша едет от дизана BDS2006 тупо немогу найти TabSheet хотя использовал его в предыдущем проекте.А в номо тупо немогу найти такого компонента :eek: Выделяю эту ToolPalete ввожу Tab и там такого компонента нету хотя в прошлый раз был :mad: Не пойму че за........:confused: :confused:
У меня есть компонент TStringGrid, мне нужно что бы в разных клетках выводились символы разных цветов (в одной клетке одноцветные символы), при этом, цвета ранеевыведенных символов сохранялись. У меня есть мысль как это можно сделать через Canvas, но рисованые символы затираются, есть способ более цевильней?
Цитата: iRain
У меня есть компонент TStringGrid, мне нужно что бы в разных клетках выводились символы разных цветов (в одной клетке одноцветные символы), при этом, цвета ранеевыведенных символов сохранялись. У меня есть мысль как это можно сделать через Canvas, но рисованые символы затираются, есть способ более цевильней?
При событии OnDrawCell (или что-то подобное) устанавливать цвет текста, занося его, например, в глобальный массив TColor[100];
Как пример - закрашивание ячейки в зависимости от цифры - 1 или 0
Код:
void __fastcall TfMain::StringGrid1DrawCell(TObject *Sender, int ACol,
int ARow, TRect &Rect, TGridDrawState State)
{
TColor clPaleGreen = TColor(0xCCFFCC);
TColor clPaleRed = TColor(0xCCCCFF);
if (StringGrid1->Cells[ACol][ARow] == "1")
{
StringGrid1->Canvas->Brush->Color = clPaleGreen;
} else
{
StringGrid1->Canvas->Brush->Color = clPaleRed;
}
StringGrid1->Canvas->FillRect(Rect);
}
int ARow, TRect &Rect, TGridDrawState State)
{
TColor clPaleGreen = TColor(0xCCFFCC);
TColor clPaleRed = TColor(0xCCCCFF);
if (StringGrid1->Cells[ACol][ARow] == "1")
{
StringGrid1->Canvas->Brush->Color = clPaleGreen;
} else
{
StringGrid1->Canvas->Brush->Color = clPaleRed;
}
StringGrid1->Canvas->FillRect(Rect);
}
Доброго времени суток. Мне нужно проверить удаленно статус сервера, например апача. Я пытаюсь открыть сокет на свой ип:порт
пробовал разные варианты типов сокетов..результат один и тот-же. при тсп я получаю всегда сервер офф, при удп всегда он(только если не закрыть фаерволлом).
вроде элементарно..помогите плз. нужно просто проверить статус, ничего передавать-принимать..но я запутался.
помогите плз
Код:
WSADATA lpWSAData;
SOCKET s;
WSAStartup(MAKEWORD(1,1),&lpWSAData);
s=socket(PF_INET, SOCK_DGRAM, IPPROTO_TCP);
struct sockaddr_in ssin;
memset ((char *)&ssin, 0, sizeof(ssin));
ssin.sin_family = PF_INET;
ssin.sin_addr.S_un.S_un_b.s_b1 = 127;
ssin.sin_addr.S_un.S_un_b.s_b2 = 0;
ssin.sin_addr.S_un.S_un_b.s_b3 = 0;
ssin.sin_addr.S_un.S_un_b.s_b4 = 1;
ssin.sin_port = 80;
if (connect(s, (sockaddr *)&ssin, sizeof(ssin))==-1) {
Label2 -> Caption = "offline";
Label2 -> Font -> Color = clRed;
}
SOCKET s;
WSAStartup(MAKEWORD(1,1),&lpWSAData);
s=socket(PF_INET, SOCK_DGRAM, IPPROTO_TCP);
struct sockaddr_in ssin;
memset ((char *)&ssin, 0, sizeof(ssin));
ssin.sin_family = PF_INET;
ssin.sin_addr.S_un.S_un_b.s_b1 = 127;
ssin.sin_addr.S_un.S_un_b.s_b2 = 0;
ssin.sin_addr.S_un.S_un_b.s_b3 = 0;
ssin.sin_addr.S_un.S_un_b.s_b4 = 1;
ssin.sin_port = 80;
if (connect(s, (sockaddr *)&ssin, sizeof(ssin))==-1) {
Label2 -> Caption = "offline";
Label2 -> Font -> Color = clRed;
}
пробовал разные варианты типов сокетов..результат один и тот-же. при тсп я получаю всегда сервер офф, при удп всегда он(только если не закрыть фаерволлом).
вроде элементарно..помогите плз. нужно просто проверить статус, ничего передавать-принимать..но я запутался.
помогите плз
Цитата: _nic
Крыша едет от дизана BDS2006 тупо немогу найти TabSheet хотя использовал его в предыдущем проекте.А в номо тупо немогу найти такого компонента :eek: Выделяю эту ToolPalete ввожу Tab и там такого компонента нету хотя в прошлый раз был :mad: Не пойму че за........:confused: :confused:
Вообще, насколько я помню, TabSheet это экзэмпляры страниц TPageControl'а. А отдельного такого компонента нет. Хотя могу ошибаться. Да еще, в BDS2006 существует компонент TabSet, вы не его имели в виду?
Всем привет.
Подскажите пожалуйста, есть ли в билдере возможность вызвать функцию, используя её имя в строковом виде?
Вот что происходи: я получаю имя функии в xml, например, "flashCallReaction", - и как мне вызвать метод или функцию с таким именем?
Подскажите пожалуйста, есть ли в билдере возможность вызвать функцию, используя её имя в строковом виде?
Вот что происходи: я получаю имя функии в xml, например, "flashCallReaction", - и как мне вызвать метод или функцию с таким именем?
Цитата: maxio
Всем привет.
Подскажите пожалуйста, есть ли в билдере возможность вызвать функцию, используя её имя в строковом виде?
Вот что происходи: я получаю имя функии в xml, например, "flashCallReaction", - и как мне вызвать метод или функцию с таким именем?
Подскажите пожалуйста, есть ли в билдере возможность вызвать функцию, используя её имя в строковом виде?
Вот что происходи: я получаю имя функии в xml, например, "flashCallReaction", - и как мне вызвать метод или функцию с таким именем?
это можно сделать используя механизм указателей на функции. Конкретная реализация требует более четкой постановки задачи.
Цитата: LLIbIcpEP
Доброго времени суток. Мне нужно проверить удаленно статус сервера, например апача. Я пытаюсь открыть сокет на свой ип:порт
пробовал разные варианты типов сокетов..результат один и тот-же. при тсп я получаю всегда сервер офф, при удп всегда он(только если не закрыть фаерволлом).
вроде элементарно..помогите плз. нужно просто проверить статус, ничего передавать-принимать..но я запутался.
помогите плз
Код:
WSADATA lpWSAData;
SOCKET s;
WSAStartup(MAKEWORD(1,1),&lpWSAData);
s=socket(PF_INET, SOCK_DGRAM, IPPROTO_TCP);
struct sockaddr_in ssin;
memset ((char *)&ssin, 0, sizeof(ssin));
ssin.sin_family = PF_INET;
ssin.sin_addr.S_un.S_un_b.s_b1 = 127;
ssin.sin_addr.S_un.S_un_b.s_b2 = 0;
ssin.sin_addr.S_un.S_un_b.s_b3 = 0;
ssin.sin_addr.S_un.S_un_b.s_b4 = 1;
ssin.sin_port = 80;
if (connect(s, (sockaddr *)&ssin, sizeof(ssin))==-1) {
Label2 -> Caption = "offline";
Label2 -> Font -> Color = clRed;
}
SOCKET s;
WSAStartup(MAKEWORD(1,1),&lpWSAData);
s=socket(PF_INET, SOCK_DGRAM, IPPROTO_TCP);
struct sockaddr_in ssin;
memset ((char *)&ssin, 0, sizeof(ssin));
ssin.sin_family = PF_INET;
ssin.sin_addr.S_un.S_un_b.s_b1 = 127;
ssin.sin_addr.S_un.S_un_b.s_b2 = 0;
ssin.sin_addr.S_un.S_un_b.s_b3 = 0;
ssin.sin_addr.S_un.S_un_b.s_b4 = 1;
ssin.sin_port = 80;
if (connect(s, (sockaddr *)&ssin, sizeof(ssin))==-1) {
Label2 -> Caption = "offline";
Label2 -> Font -> Color = clRed;
}
пробовал разные варианты типов сокетов..результат один и тот-же. при тсп я получаю всегда сервер офф, при удп всегда он(только если не закрыть фаерволлом).
вроде элементарно..помогите плз. нужно просто проверить статус, ничего передавать-принимать..но я запутался.
помогите плз
Вы не правильно создаете сокет - надо:
или
Код:
s=socket(PF_INET, SOCK_STREAM, IPPROTO_TCP);
или
Код:
s=socket(PF_INET, SOCK_DGRAM, IPPROTO_UDP);
Случайно вне консоли запустил implib при это ЖД весьма отчетливо зашуршал :( И теперь при сборке люого проекта тупо выскакивает Unresolved External на все ф-ции.Что можно сделать? Неужели прийдется BDS переустанавливать?
Цитата: _nic
Случайно вне консоли запустил implib при это ЖД весьма отчетливо зашуршал :( И теперь при сборке люого проекта тупо выскакивает Unresolved External на все ф-ции.Что можно сделать? Неужели прийдется BDS переустанавливать?
Ну если он у тебя переписал/затер какую-то либу то по крайней мере придется ее восстановить
Цитата: kot_
Вы не правильно создаете сокет - надо:
или
или
или
Код:
s=socket(PF_INET, SOCK_STREAM, IPPROTO_TCP);
или
Код:
s=socket(PF_INET, SOCK_DGRAM, IPPROTO_UDP);
спасибо за ответ, но у меня точно так-же в коде..
Цитата: LLIbIcpEP
спасибо за ответ, но у меня точно так-же в коде..
Присмотритесь повнимательней. Вот как у вас в коде
Код:
s=socket(PF_INET, SOCK_DGRAM, IPPROTO_TCP);
Цитата: LLIbIcpEP
спасибо за ответ, но у меня точно так-же в коде..
вас еще надо уговорить что бы внимательно смотрели на то что вы же пишете?:cool::mad:
Цитата: kot_
вас еще надо уговорить что бы внимательно смотрели на то что вы же пишете?:cool::mad:
извините, но вот:
Цитата:
пробовал разные варианты типов сокетов..результат один и тот-же. при тсп я получаю всегда сервер офф, при удп всегда он(только если не закрыть фаерволлом).
конкретно Ваш пример: в первом случае результат connect выдает -1 (ошибка) в любом случае, а второй вариант работает без ошибок, но даже если апач выключен..если не затруднит, помогите..
Неполучается заюзать NtQuerySystemInformation
Хотя и с помощью implib делал из Ntdll.dll lib файл,который подключал через #pragma link .Но всеравно не получается,таже самая ошибка :( Как же в борланде использовать эту ф-цию?
Код:
[Linker Error] Error: Unresolved external '_NtQuerySystemInformation' referenced from C:\COD\CS\TEST\UNIT1.OBJ
Хотя и с помощью implib делал из Ntdll.dll lib файл,который подключал через #pragma link .Но всеравно не получается,таже самая ошибка :( Как же в борланде использовать эту ф-цию?
Цитата: _nic
Неполучается заюзать NtQuerySystemInformation
Хотя и с помощью implib делал из Ntdll.dll lib файл,который подключал через #pragma link .Но всеравно не получается,таже самая ошибка :( Как же в борланде использовать эту ф-цию?
Код:
[Linker Error] Error: Unresolved external '_NtQuerySystemInformation' referenced from C:\COD\CS\TEST\UNIT1.OBJ
Хотя и с помощью implib делал из Ntdll.dll lib файл,который подключал через #pragma link .Но всеравно не получается,таже самая ошибка :( Как же в борланде использовать эту ф-цию?
вообщето именно '_NtQuerySystemInformation' заюзать будет крайне сложно. По причине полного отсутствия таковой в библиотеке ядра да и в принципе в любой библиотеке. Така куйня малята. Внимательней надо быть.
Цитата: kot_
вообщето именно '_NtQuerySystemInformation' заюзать будет крайне сложно. По причине полного отсутствия таковой в библиотеке ядра да и в принципе в любой библиотеке. Така куйня малята. Внимательней надо быть.
Ну а как тогда в борландской среде вызывать NtQuerySystemInformation.В коде такая строчка
Код:
NtQuerySystemInformation(SystemProcessInformation,(PSYSTEM_PROCESSES)system_processes,sizeof(system_processes),&ulLength);
Я незнаю почему оно именно _NtQuerySystemInformation ищет
Цитата: _nic
Ну а как тогда в борландской среде вызывать NtQuerySystemInformation.В коде такая строчка
Я незнаю почему оно именно _NtQuerySystemInformation ищет
Код:
NtQuerySystemInformation(SystemProcessInformation,(PSYSTEM_PROCESSES)system_processes,sizeof(system_processes),&ulLength);
Я незнаю почему оно именно _NtQuerySystemInformation ищет
LoadLibrary
GetProcAddress
Цитата: GIZMO
LoadLibrary
GetProcAddress
GetProcAddress
Действительно в МСДН написано достаточно четко:
Цитата:
This function has no associated import library. You must use the LoadLibrary and GetProcAddress functions to dynamically link to Ntdll.dll.
но если у вас установлена ДДК - то вы можете использовать либ-файл - но вероятно только в вижуал студии (возможно путем использования различных бубнов это можно и в борланде - но честно говоря не пробовал - если у вас получится опишите)