Флуд v. 176

Чего интересного было?

 

программисты есть?
код рабочий , но я чего то не допонимаю за что отвечает переменная "D"

Код:

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
String Path;
double A,B,C,Result;
int D;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Нажатие кнопки конвертировать
void __fastcall TForm1::ConvertItClick(TObject *Sender)
{
 if   ((Category->ItemIndex==(-1)) || (From->ItemIndex==(-1)) || (Into->ItemIndex==(-1)) || (From1->Text==""))
 {
 ShowMessage("Empty input");
 }
 else
 {
C=StrToFloat(From1->Text);
Result=C*B/A;
Into1->Text=FloatToStr(Result);
 }
}
//---------------------------------------------------------------------------
//Нажатие кнопки очистить
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Category->ItemIndex=-1;
From->ItemIndex=-1;
Into->ItemIndex=-1;
From1->Clear();
Into1->Clear();
Value->Clear();
AddNamesOfValues->Clear();
AddValues->Clear();
DelValues->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FromChange(TObject *Sender)
{
B=StrToFloat(Value->Lines->Strings[From->ItemIndex]);       
}
//---------------------------------------------------------------------------

void __fastcall TForm1::IntoChange(TObject *Sender)
{
A=StrToFloat(Value->Lines->Strings[Into->ItemIndex]);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CategoryChange(TObject *Sender)
{
From->Items->LoadFromFile(Path+IntToStr(Category->ItemIndex)+".txt");
Into->Items->LoadFromFile(Path+IntToStr(Category->ItemIndex)+".txt");
Value->Lines->LoadFromFile(Path+IntToStr(Category->ItemIndex)+"_values.txt");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::exit1Click(TObject *Sender)
{
Close();       
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Oboit1Click(TObject *Sender)
{
ShowMessage("О программе. Конвертер величин.");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Path=GetCurrentDir()+"\\txt\\";
Category->Items->LoadFromFile(Path+"Ctg_cfg.txt");
}
//---------------------------------------------------------------------------

 

@RIPJake

 

Ой как мило
Хоть кому то понадобился

 

Не пугай так,думал рили забанили