CLangError/UnitFormMain.cpp at master · reddevlab/CLangError · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
// ---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "UnitFormMain.h"
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMain *FormMain;

// ---------------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent* Owner) : TForm(Owner)
{
}

// ---------------------------------------------------------------------------
void __fastcall TFormMain::FormShow(TObject *Sender)
{
    int contatore = 0;
    for (int kk = 0; kk < 100; ++kk)
    {
        contatore++;
    }

    UnicodeString iniName = Application->ExeName;
    iniName = ChangeFileExt(iniName, L".ini");

    //UnicodeString iniName;
    UnicodeString test = "";
    test = "PROVA";
    int demo = 1;

    UnicodeString iniSection = "";
    UnicodeString iniKeyName = "Debug";
    wchar_t bf[512];

    TCursor myCur = Screen->Cursor;

    for (int kk = 0; kk < 100; ++kk)
    {
        iniSection = Format(L"Section%2.0d", ARRAYOFCONST((kk)));
        GetPrivateProfileString(iniSection.c_str(), iniKeyName.c_str(), L"yes", bf, sizeof(bf), iniName.c_str());
    }
}

// ---------------------------------------------------------------------------
void __fastcall TFormMain::btSaveClick(TObject *Sender)
{
    UnicodeString test = "";
    test = "PROVA";
}
// ---------------------------------------------------------------------------