Помогите С Комментариями - C++ Builder - Ответ 34054

void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (SaveDialog1->Execute())
{
        int f;
        if (FileExists(SaveDialog1->FileName))
        {
                DeleteFile(SaveDialog1->FileName);
                f = FileCreate(SaveDialog1->FileName, fmOpenWrite);
        }
        else
                f = FileCreate(SaveDialog1->FileName);
        if (f != -1)
        {
                for (int i = 0; i < StringGrid1->RowCount; i++)
                {
                        AnsiString st = StringGrid1->Rows[i]->DelimitedText + "\r\n";
                        FileWrite(f,st.c_str(),st.Length());
                }
                FileClose(f);
        }
        else ShowMessage("Ошибка доступа");
}
}
//---------------------------------------------------------------------------
 
int GetLine(int f, AnsiString *st)
{
        unsigned char buf [256];
        unsigned char *p = buf;
        int n;
        int len=0;
        n = FileRead(f, p, 1);
        while(n != 0)
        {
                if (*p == '\r')
                {
                        n=FileRead(f,p,1);
                        break;
                }
                len++;
                p++;
                n=FileRead(f, p, 1);
        }
        *p = '\0';
        if (len != 0 )
                st->printf("%s", buf);
        return len;
        }
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
for (int i=0; i<StringGrid1->RowCount; i++)
        StringGrid1->Rows[i]->Clear();
StringGrid1->RowCount=0;
StringGrid1->ColCount=0;
if (OpenDialog1->Execute())
{
    int f;
    AnsiString st;
    bool fl = true;
 
    f = FileOpen(OpenDialog1->FileName, fmOpenRead);
    if (f == -1)
        exit;
 
    while (GetLine(f,&st) != 0)
    {
        if (fl)
        {
                for (int i=1; i<st.Length(); i++)
                        if (st[i]==',') StringGrid1->ColCount++;
                StringGrid1->Rows[StringGrid1->Row]->DelimitedText = st;
                fl = false;
                n = StringGrid1->ColCount;
                k = new int*[n];
                for (int i = 0; i < n; i++)
                        k[i] = new int[n];
        }
        else
        {
                StringGrid1->RowCount++;
                StringGrid1->Row = StringGrid1->RowCount - 1;
                StringGrid1->Rows[StringGrid1->Row]->DelimitedText = st;
        }
    }
    for (int i = 0; i < StringGrid1->ColCount; i++)
        for (int j = 0; j < StringGrid1->RowCount; j++)
                k[i][j] = StringGrid1->Cells[i][j].ToInt();
    FileClose(f);
}
}