// для получения текущей даты и  времени воспользуйтесь функцией

// Now() из модуля Sysutils.hpp . Отобразить  полученные дату и

// время можно следующим образом (Button1 - кнопка на  форме):

void __fastcall TForm1::Button1Click(TObject  *Sender)

{

Form1->Caption =  DateTimeToStr(Now());

}

// для получения текущего времени воспользуйтесь функцией  Time()

// из модуля Sysutils.hpp . Отобразить полученную дату можно

//  следующим образом (Button1 - кнопка на форме):

void __fastcall  TForm1::Button1Click(TObject *Sender)

{

Form1->Caption =  DateTimeToStr(Time());

}

// для получения дня недели воспользуйтесь функцией  DayOfWeek()

// из модуля Sysutils.hpp, передав ей текущую дату.  DayOfWeek

// возвращает значение от 1 до 7, где 1 - воскресенье,

// 2 -  понедельник, и т. д.

int Day =  DayOfWeek(Date());

Напишите следующий код:

void __fastcall  TForm1::Timer1Timer(TObject *Sender)

{

Label1->Caption =  FormatDateTime("hh:nn",Time());

Timer1->Interval=10000;// меньше число, больше точность

}

// Напишите следующий код:

DWORD start=GetTickCount();
// тут ваша функция или как-либо действия

Edit1->Text=FloatToStr((GetTickCount()-start)/1000.);

// Преобразование осуществляется следующей функцией:

void SetBitmapPaletteToGreyScale(Graphics::TBitmap *pBitmap)

{

    LOGPALETTE *pal;

    HPALETTE hpal;

    int i;

    int PaletteSize; //Size of the palette buffer

    pBitmap->PixelFormat = pf8bit;

    pal = NULL;

    PaletteSize = sizeof(TLogPalette) + (sizeof(TPaletteEntry) * 255);

    pal = (LOGPALETTE *) malloc(PaletteSize);

    pal->palVersion = 0x300;

    pal->palNumEntries = 256;

    for (i = 0 ; i <= 255; i++)

    {

      pal->palPalEntry[i].peRed = i;

      pal->palPalEntry[i].peGreen = i;

      pal->palPalEntry[i].peBlue = i;

      pal->palPalEntry[i].peFlags = PC_NOCOLLAPSE;

    }

    hpal = CreatePalette(pal);

    if(hpal != 0) pBitmap->Palette = hpal;

    free(pal);

}

// Для того чтобы проиграть MIDI:

#include



mciSendString("open anny.mid type sequencer alias MUSIC", NULL, 0, 0);

mciSendString("play MUSIC from 0", NULL, 0, 0);

// Для того чтобы воспроизвести  звуковой файл:

// напишите следующий код

#include  "mmsystem.h"

DWORD fdwSound = SND_ASYNC |  SND_FILENAME;

PlaySound("C:\\click.wav",NULL, fdwSound);

// напишите следующий код

BMP.Monochrome = true ; //где BMP - TBitmap

// Для определения размера диска используйте функцию DiskSize,  объявленную в Sysutils.hpp. В параметрах функции диску А соответствует 1, диску  В - 2, и т. д., 0 - текущий диск. Следующий код определит размер диска С в  байтах.

__int64 Size = DiskSize(3);

// Для определения свободного  пространства на диске используйте функцию DiskFree, объявленную в Sysutils.hpp.  В параметрах функции диску А соответствует 1, диску В - 2, и т. д., 0 - текущий  диск. Следующий код определит размер свободного пространства на диске С в  байтах.

__int64 FreeSpace = DiskFree(3);

// для  использования функции необходимо подключить файл

// shlobj.h

//  lpszPathObj - путь к объекту, для которого будет

// создаваться ярлык

//  lpszPathLink - где будет создаватья ярлык

// lpszDesc - описание  ярлыка

HRESULT CreateLink(LPCSTR lpszPathObj, LPSTR  lpszPathLink, LPSTR lpszDesc)

{

    HRESULT hres;

    IShellLink  *psl;

    CoInitialize(NULL);

    hres =  CoCreateInstance(CLSID_ShellLink, NULL,

    CLSCTX_INPROC_SERVER,  IID_IShellLink, (void  **)&psl);

    if(SUCCEEDED(hres))

    {

        IPersistFile  *ppf;

        psl->SetPath(lpszPathObj);

        psl->SetDescription(lpszDesc);

        hres  = psl->QueryInterface(IID_IPersistFile,  (void**)&ppf);

        if(SUCCEEDED(hres))

        {

            wchar_t  wsz[MAX_PATH];

            MultiByteToWideChar(CP_ACP, 0, lpszPathLink, -1, wsz,  MAX_PATH);

            hres = ppf->Save(wsz,  true);

            ppf->Release();

        }

        psl->Release();

        CoUninitialize();

    }

    return  hres;

}

// Для удаления файла надо подключить к проекту Sysutils.hpp и напишите следующий код:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

    AnsiString FileName="c:\\readme.txt";

    if (DeleteFile(FileName)) Label1->Caption="true";

}

// На форме разместите TOpenDialog (OpenDialog1) и TButton

// (Button1) напишите следующий обработчик события OnClick кнопки:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

    if(OpenDialog1->Execute())

    {

        SHELLEXECUTEINFO SEI;

        ZeroMemory(&SEI, sizeof(SHELLEXECUTEINFO));

        SEI.cbSize= sizeof(SHELLEXECUTEINFO);

        SEI.lpVerb = "properties";

        SEI.lpFile= OpenDialog1->FileName.c_str();

        SEI.nShow = SW_SHOW;

        SEI.fMask= SEE_MASK_INVOKEIDLIST;

        ShellExecuteEx(&SEI);

    }

}

// Для  того чтобы скопировать файлы напишите следующий код:

int  MoveFiles( AnsiString slSourceDir, AnsiString slTargetDir, bool toCopy = true  )

{

    SHFILEOPSTRUCT sh;

    sh.fFlags = FOF_NOCONFIRMATION | FOF_SILENT |  FOF_FILESONLY;

    sh.wFunc = toCopy ? FO_COPY : FO_MOVE;

    sh.pFrom =  slSourceDir.c_str();

    sh.pTo = slTargetDir.c_str();

    sh.hNameMappings =  NULL;

    sh.lpszProgressTitle = NULL;

    return SHFileOperation ( &sh  );

}



void __fastcall TForm1::Button1Click(TObject  *Sender)

{

    //copy all from program  files

    if(!MoveFiles("c:\\program files\\*.*",  "c:\\temp"))

    ShowMessage("Ok");

    else  ShowMessage("No");

}

// В функции MoveFiles первый  параметр что копировать,

// второй куда копировать

// Для удаления директории напишите следующий код:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

    SHFILEOPSTRUCT sh;

    sh.hwnd=Form1->Handle;

    sh.wFunc = FO_DELETE;

    sh.pFrom = "c:\\test\0"; //удаляемая директория

    sh.pTo = NULL;

    sh.fFlags = FOF_NOCONFIRMATION | FOF_SILENT;

    sh.hNameMappings = 0;

    sh.lpszProgressTitle = NULL;

    SHFileOperation(&sh);

}

// На  форме должны быть Lаbel1 и Button1, затем напишите следующий  код:

TDateTime FileTimeToDateTime(FILETIME *lpftime)

{

    FILETIME  localfiletime;

    SYSTEMTIME  systime;

    FileTimeToLocalFileTime(lpftime,&localfiletime);

    FileTimeToSystemTime(&localfiletime,&systime);

    return(TDateTime(systime.wYear,  systime.wMonth, systime.wDay)+

    TDateTime(systime.wHour,  systime.wMinute,

    systime.wSecond, systime.wMilliseconds));

    }

    //----------------------------------------------------------

    void  __fastcall TForm1::Button1Click(TObject *Sender)

    {

    FILETIME  ftCreationTime,ftLastAccessTime,ftLastWriteTime;

    HANDLE  hFile=(HANDLE)FileOpen("c:\\autoexec.bat",fmOpenRead);

GetFileTime(hFile,&ftCreationTime,&ftLastAccessTime,&ftLastWriteTime);
    AnsiString  FileInfo="FileName: c:\\autoexec.bat";

    FileInfo+="\nCreation  Time:"+

    FormatDateTime("c",FileTimeToDateTime(&ftCreationTime));

    FileInfo+="\nLast  Access  Time:"+

    FormatDateTime("c",FileTimeToDateTime(&ftLastAccessTime));

    FileInfo+="\nLast  Write  Time:"+

    FormatDateTime("c",FileTimeToDateTime(&ftLastWriteTime));

    Label1->Caption=FileInfo;

    FileClose((int)  hFile);

}

// Для поиска файлов в каталоге и его подкаталогах напишите  следующий код:

void ListFiles(AnsiString path, TStrings*  List)

{

// Эта процедура выводит список файлов и  вызывает

// саму себя для всех  каталогов

TSearchRec sr;

if (FindFirst(path+"*.*",  faAnyFile, sr) == 0)

{

     do

     {

         if (sr.Attr &  faDirectory)

          {

              if (sr.Name!=".")

              if  (sr.Name!="..")

              {

                  ListFiles(path+sr.Name+"\\",List);// Рекурсивный  вызов

              }

          }

          else

          {

           AnsiString  Ext=ExtractFileExt(sr.Name).UpperCase();

           if  (Ext==".CPP")

           List->Add(path+sr.Name);

          }

     }

     while  (FindNext(sr) ==  0);

     FindClose(sr);

}

    Application->ProcessMessages();

}



void  __fastcall TForm1::Button1Click(TObject  *Sender)

{

    ListFiles("c:\\",Memo1->Lines);

}

// Для того чтобы выбрать папку из диалога напишите следуюший  код:

#include

.. .. .. ..

AnsiString way =  "c:\\";

if(SelectDirectory("Укажите путь к папке","",way)) 

  Label1->Caption = way;

// Для того чтобы удалить папку и все файлы в ней напишите следующую функцию:

bool DeleteDir(AnsiString DirName)

{

TSearchRec sr;

if (DirName.Length())

{

if (!FindFirst(DirName+"\\*.*",faAnyFile,sr))

do

  {

  if (!(sr.Name=="." || sr.Name==".."))// это удалять не надо

   if (((sr.Attr & faDirectory) == faDirectory ) ||

   (sr.Attr == faDirectory))// найдена папка

    {

    FileSetAttr(DirName+"\\"+sr.Name, faDirectory );// сброс всяких read-only

    DeleteDir(DirName+"\\"+sr.Name);//рекурсивно удаляем содержимое

    RemoveDir(DirName + "\\"+sr.Name);// удаляем теперь уже пустую папку

    }

    else// иначе найден файл

    {

    FileSetAttr(DirName+"\\"+sr.Name, 0);// сброс всяких read-only

    DeleteFile(DirName+"\\"+sr.Name);// удаляем файл

    }

  }

while (!FindNext(sr));// ищем опять, пока не найдем все

FindClose(sr);

}

RemoveDir(DirName);

return true;

}

// Напишите следующую  функцию:

#include

TRegistry *Reg;

Reg=NULL;

try

{

  Reg=new TRegistry;

  Reg->RootKey=HKEY_CLASSES_ROOT;

  Reg->OpenKey("\\.ant",true);

  Reg->WriteString("","MyProgram");

  Reg->CloseKey();

Reg->OpenKey("\\MyProgram", true);
Reg->WriteString("","My document");
  Reg->CloseKey();

  Reg->OpenKey("\\MyProgram\\Shell\\Open\\Command",true);

  Reg->WriteString("",ParamStr(0)+" \"%1\"");

  Reg->CloseKey();

  Reg->OpenKey("\\MyProgram\\DefaultIcon",true);

  Reg->WriteString("",ParamStr(0)+", 1");

  Reg->CloseKey();

}

__finally

{

if (Reg!=NULL)delete Reg;

}

// Весь текст генерирует расширение *.ant


// А этот код загружает файл с расширением *.ant в Image1.
if (ParamCount>0)

{

asFileName=ParamStr(1);

if (FileExists(asFileName)) Image1->Picture->LoadFromFile(asFileName);

  else ShowMessage(asFileName+" ОШИБКА ЗАГРУЗКИ ФАЙЛА!!!");

}

#include

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    std::auto_ptrL(new TStringList);
    String s = L"Группа:";
    L->LoadFromFile("D:\\test\\0101.txt", TEncoding::GetEncoding(1251));
    for (int i = L->Count - 1; i >= 0; i--)
    {
        WideString t = L->Strings[i];
        if (StartsText(s, t))
            L->Strings[i] = RightStr(t, t.Length() - s.Length()).Trim();
        else
            L->Delete(i);
    }
    L->SaveToFile("D:\\test\\20101.txt");
}

#include

#include



#include

#include



#pragma hdrstop

#include

//---------------------------------------------------------------------------

#pragma argsused



using namespace std;





int _tmain(int argc, _TCHAR* argv[])

{

system("chcp 1251");



    RASCONN ras[20];

    DWORD dSize,dNumber;

    ras[0].dwSize = sizeof(RASCONN);

    dSize = sizeof( ras );

    if( RasEnumConnections( ras, &dSize, &dNumber ) == 0 )

    {

        cout <<  "Count Ras " <<  dNumber <<  endl;

        for (DWORD x=0; x < dNumber;x++) cout <<  ras[x].szEntryName<<"\t"<    }

system("pause");

return 0;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::StringGrid1DrawCell( TObject *Sender, int ACol, int ARow, TRect &Rect, TGridDrawState State )
{
    TStringGrid *grid = static_cast( Sender );
    TCanvas *can = grid->Canvas;

    can->TextOut( Rect.Left + 2, Rect.Top + 2, grid->Cells[ACol][ARow] );
}

DWORD domainIP()
{
    WSADATA wdata;
    struct hostent *remoteHost;
    int result = WSAStartup(MAKEWORD(2,2), &wdata);
    remoteHost = gethostbyname("ya.ru");
    cout << inet_ntoa(*( struct in_addr*)remoteHost->h_addr_list[0]) << endl;
    this->textBox1->Text=gcnew String(inet_ntoa(*( struct in_addr*)remoteHost->h_addr_list[0]));
    return 0;
}

MEMORYSTATUSEX stats;
stats.dwLength = sizeof(stats);
GlobalMemoryStatusEx(&stats);
__int64 a;
a=stats.dwMemoryLoad;
RichEdit1->Lines->Add(IntToStr(a)+"%");

Добавляешь на форму Edit-(сюда будешь вводить значения для поиска). ComboBox-(Поля БД для поиска). Любую кнопку (к примеру Button)
ADOTable1->Locate(ComboBox1->Text,Edit1->Text, TLocateOptions() << loCaseInsensitive);

#include <iostream>

using namespace std;

int myAbs(int a){
 int oldByte = (a >> 31)& 0x1;
 return -a*(1+oldByte-1)-a*(oldByte-1);
}

int getMax(int a, int b) {
 return (a + b + myAbs(a - b)) / 2;
}

int getMin(int a, int b) {
 return (a + b - myAbs(a - b)) / 2;
}

int main() {
 int arr[] = {34, 12, 24, 65, 63, 22};
 int arraySize = (sizeof(arr) / sizeof(*arr));

 int maxPosition = 0;
 int maxElement = arr[0];
 int minValue= arr[0];
 for (int k = 0; k < arraySize; k++) {
 for (int i = k; i < arraySize; i++) {
 int newMax = getMax(maxElement, arr[i]);
 minValue = getMin(minValue, arr[i]);
 maxPosition =getMin((myAbs(newMax ^ maxElement) + 1) * (maxPosition + 1), (myAbs(newMax ^ arr[i]) + 1) * (i + 1)) -1;
 maxElement = newMax;
 }
 int buf = arr[k];
 arr[k] = maxElement;
 arr[maxPosition] = buf;
 maxElement = minValue;
 }
 for(int a:arr){
 cout<<a<<endl;
 }
 return 0;
}

Для того, чтобы можно было использовать обученую нейросети вне среды MATLAB нужно воспользоваться специальной функцией, которая есть в матлабе начиная с r2014:

Syntax

[x,t] = house_dataset;
houseNet = feedforwardnet(10);
houseNet = train(houseNet,x,t);
y = houseNet(x);

genFunction(houseNet,'houseFcn');
y2 = houseFcn(x);
accuracy2 = max(abs(y-y2))
mcc -W lib:libHouse -T link:lib houseFcn

A paragraph of rich text.

The RichText widget displays text that uses multiple different styles. The text to display is described using a tree of TextSpan objects, each of which has an associated style that is used for that subtree. The text might break across multiple lines or might all be displayed on the same line depending on the layout constraints.

Text displayed in a RichText widget must be explicitly styled. When picking which style to use, consider using DefaultTextStyle.of the current BuildContext to provide defaults. For more details on how to style text in a RichText widget, see the documentation for TextStyle.

Consider using the Text widget to integrate with the DefaultTextStyle automatically. When all the text uses the same style, the default constructor is less verbose. The Text.rich constructor allows you to style multiple spans with the default text style while still allowing specified styles per span.

RichText(
 text: TextSpan(
 text: 'Hello ',
 style: DefaultTextStyle.of(context).style,
 children: <TextSpan>[
 TextSpan(text: 'bold', style: TextStyle(fontWeight: FontWeight.bold)),
 TextSpan(text: ' world!'),
 ],
 ),
)

Text class

Text(
 'Hello, $_name! How are you?',
 textAlign: TextAlign.center,
 overflow: TextOverflow.ellipsis,
 style: TextStyle(fontWeight: FontWeight.bold),
)

const Text.rich(
 TextSpan(
 text: 'Hello', // default text style
 children: <TextSpan>[
 TextSpan(text: ' beautiful ', style: TextStyle(fontStyle: FontStyle.italic)),
 TextSpan(text: 'world', style: TextStyle(fontWeight: FontWeight.bold)),
 ],
 ),
)