Нужно написать программу которая считывает английский текст из файла и выводит его на экран заменив каждую первую букву слов,начинающихся с гласной буквы на прописную. Буду благодарен за помощь.
Код:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString fname="";
char buf[256]="";
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NOpenClick(TObject *Sender)
{
if (OpenDialog1->Execute())
{
fname=OpenDialog1->FileName;
Memo1->Lines->LoadFromFile(fname);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NNewClick(TObject *Sender)
{
Memo1->Clear();
Memo2->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NRunClick(TObject *Sender)
{
AnsiString st;
AnsiString del="abcdefghijklmnopqrstuvwxyz";
Memo2->Clear();
for (int i=0;i<=Memo1->Lines->Count;i++)
{
StrPCopy(buf,Memo1->Lines->Strings[i]);
st=buf;
for (int k=0;k<=StrLen(st.c_str());k++)
{
if ((IsDelimiter(del,st,k))
&& (IsDelimiter(del,st,k+1))
&& (IsDelimiter(del,st,k+2))
&& (IsDelimiter(" ",st,k-1)))
{
if (Memo1->Lines->Strings[k]=="a")
{
st=StringReplace(Memo1->Lines->Strings[k],"a","A",TReplaceFlags()<<rfReplaceAll);
}
Memo2->Lines->Add(st);
break;
}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NSaveClick(TObject *Sender)
{
if (fname!="")
Memo2->Lines->SaveToFile(fname);
else
if (SaveDialog1->Execute())
{
fname=SaveDialog1->FileName;
Memo2->Lines->SaveToFile(fname);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NSaveasClick(TObject *Sender)
{
SaveDialog1->FileName=fname;
if (SaveDialog1->Execute())
{
fname=SaveDialog1->FileName;
Memo2->Lines->SaveToFile(fname);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NHelpClick(TObject *Sender)
{
AboutBox->ShowModal();
}
//------------------------------------------------------------------------