vcl h

Ответ от Вася Иванов[гуру]
Вот текст програмы
//---------------------------------------------------------------------------

#include <vcl.h>//загрузка стандартной библиотеки С++ Билдер
#pragma hdrstop// тоже стандартная строка, создается автоматом.

#include "Unit1.h"//подключение к проекту файла с кодом
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Form1->Caption="Программа редактирования текстовых файлов";//задание заголовка программы
Memo1->Lines->Clear();//очистка компонента списка
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N3Click(TObject *Sender)
{
OpenDialog2->Execute();// включение диалога открытия файла
Memo1->Lines->Clear(); // очистка компонента списка
Memo1->Lines->LoadFromFile(OpenDialog2->FileName); // загрузка в компонент списка имени файла, который был выбран через диалог открытия файла
Form1->Caption=OpenDialog2->FileName; // присвоение окну имени файла
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
Memo1->Lines->SaveToFile(OpenDialog2->FileName); // все линии сохраняются в файл
Memo1->Lines->LoadFromFile(OpenDialog2->FileName); // все линии считываются из того же файла
/////////// что за бред??? ?
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N5Click(TObject *Sender)
{
SaveDialog1->Execute();//включение диалога "сохранить файл"
Memo1->Lines->SaveToFile(SaveDialog1->FileName);// сохранение линий в выбранный файл
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N2Click(TObject *Sender)
{
Form1->Close(); // закрытие окна программы
}
//---------------------------------------------------------------------------

void __fastcall TForm1::P12511Click(TObject *Sender)
{
char *k=new char[100000]; // создание одномерного массива из кучи элементов
OemToChar(Memo1->Text.c_str(),k); // загрузка нулевых значений в компонент текста
Memo1->Text=(AnsiString)k; // преобразование текста
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CP8661Click(TObject *Sender)
{

char *k=new char[100000];//////// то же самое что и в предыдущей процедуре.
CharToOem(Memo1->Text.c_str(),k);
Memo1->Text=(AnsiString)k;
}
//---------------------------------------------------------------------------