Трудности с переводом кода из С++ Builder в Visual Studio 2010.

#include <vcl.h>
#include <string>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i,k;
AnsiString s,a;
s=Edit1->Text;
a=s[1];
k=1;
for (i=1; i<=Edit1->Text.Length(); i++)
 {
  if (StrToInt(s[i]) < StrToInt(a))
  {
   a=s[i];
   k=i;
  }
 }
Button1->Caption=k;
}

for (i=1; i<=Edit1->Text.Length(); i++)

for (i=1; i<=Stroka->Text.Length(); i++)

{
    int i,k;
    CString a;
    char s[80];
    a=Stroka[1];
    k=1;
    for (i=0;i<Stroka.GetLength();i++)
    {
        if (Stroka[i] < a[i]) 
        {
            a=Stroka[i];
            k=i;
        }
    }
        sprintf(s,"k=%g",k);
        MessageBoxA(NULL,s,"Ответ:",MB_OK);
}

// 543Dlg.cpp : implementation file
//
 
#include "stdafx.h"
#include "543.h"
#include "543Dlg.h"
#include "afxdialogex.h"
 
#ifdef _DEBUG
#define new DEBUG_NEW
#endif
 
 
// CAboutDlg dialog used for App About
 
class CAboutDlg : public CDialogEx
{
public:
    CAboutDlg();
 
// Dialog Data
    enum { IDD = IDD_ABOUTBOX };
 
    protected:
    virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
 
// Implementation
protected:
    DECLARE_MESSAGE_MAP()
};
 
CAboutDlg::CAboutDlg() : CDialogEx(CAboutDlg::IDD)
{
}
 
void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
    CDialogEx::DoDataExchange(pDX);
}
 
BEGIN_MESSAGE_MAP(CAboutDlg, CDialogEx)
END_MESSAGE_MAP()
 
 
// CMy543Dlg dialog
 
 
 
 
CMy543Dlg::CMy543Dlg(CWnd* pParent /*=NULL*/)
    : CDialogEx(CMy543Dlg::IDD, pParent)
    , Stroka(_T(""))
{
    m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}
 
void CMy543Dlg::DoDataExchange(CDataExchange* pDX)
{
    CDialogEx::DoDataExchange(pDX);
    DDX_Text(pDX, IDC_EDIT1, Stroka);
}
 
BEGIN_MESSAGE_MAP(CMy543Dlg, CDialogEx)
    ON_WM_SYSCOMMAND()
    ON_WM_PAINT()
    ON_WM_QUERYDRAGICON()
    ON_BN_CLICKED(IDOK, &CMy543Dlg::OnBnClickedOk)
END_MESSAGE_MAP()
 
 
// CMy543Dlg message handlers
 
BOOL CMy543Dlg::OnInitDialog()
{
    CDialogEx::OnInitDialog();
 
    // Add "About..." menu item to system menu.
 
    // IDM_ABOUTBOX must be in the system command range.
    ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
    ASSERT(IDM_ABOUTBOX < 0xF000);
 
    CMenu* pSysMenu = GetSystemMenu(FALSE);
    if (pSysMenu != NULL)
    {
        BOOL bNameValid;
        CString strAboutMenu;
        bNameValid = strAboutMenu.LoadString(IDS_ABOUTBOX);
        ASSERT(bNameValid);
        if (!strAboutMenu.IsEmpty())
        {
            pSysMenu->AppendMenu(MF_SEPARATOR);
            pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
        }
    }
 
    // Set the icon for this dialog.  The framework does this automatically
    //  when the application's main window is not a dialog
    SetIcon(m_hIcon, TRUE);         // Set big icon
    SetIcon(m_hIcon, FALSE);        // Set small icon
 
    // TODO: Add extra initialization here
 
    return TRUE;  // return TRUE  unless you set the focus to a control
}
 
void CMy543Dlg::OnSysCommand(UINT nID, LPARAM lParam)
{
    if ((nID & 0xFFF0) == IDM_ABOUTBOX)
    {
        CAboutDlg dlgAbout;
        dlgAbout.DoModal();
    }
    else
    {
        CDialogEx::OnSysCommand(nID, lParam);
    }
}
 
// If you add a minimize button to your dialog, you will need the code below
//  to draw the icon.  For MFC applications using the document/view model,
//  this is automatically done for you by the framework.
 
void CMy543Dlg::OnPaint()
{
    if (IsIconic())
    {
        CPaintDC dc(this); // device context for painting
 
        SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0);
 
        // Center icon in client rectangle
        int cxIcon = GetSystemMetrics(SM_CXICON);
        int cyIcon = GetSystemMetrics(SM_CYICON);
        CRect rect;
        GetClientRect(&rect);
        int x = (rect.Width() - cxIcon + 1) / 2;
        int y = (rect.Height() - cyIcon + 1) / 2;
 
        // Draw the icon
        dc.DrawIcon(x, y, m_hIcon);
    }
    else
    {
        CDialogEx::OnPaint();
    }
}
 
// The system calls this function to obtain the cursor to display while the user drags
//  the minimized window.
HCURSOR CMy543Dlg::OnQueryDragIcon()
{
    return static_cast<HCURSOR>(m_hIcon);
}
 
 
 
void CMy543Dlg::OnBnClickedOk()
{
{
 int i,k;
    CString a;
 char s[80];
    a=Stroka[1];
    k=1;
 for (i=0;i<Stroka.GetLength();i++)
 {
 if (Stroka[i] < a[i]) 
 {
            a=Stroka[i];
            k=i;
 }
 }
 sprintf(s,"k=%g",k);
        MessageBoxA(NULL,s,"Ответ:",MB_OK);
}
}