Використання рядків типу AnsiString

Проект 1. Ввести речення, розбити його на слова:

Код програми: Скрін програми:

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

AnsiString str, s1, st;

int k=0;

str = Edit1->Text;

Memo1->Lines->Clear();

for(int i=1; i<str.Length(); i++)

if (!str.IsDelimiter(",.!", i))

s1 = s1+str[i];

else

{

k++;

st = IntToStr(k)+". ñëîâî " + " "+s1 + " " + " ì³ñòèòü " + IntToStr(s1.Length())+"ñèìâîë³â\n";

Memo1->Lines->Add(st);

s1 = "";

} }

void __fastcall TForm1::BitBtn2Click(TObject *Sender)

{

Close();

}

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

Проект 2 по варіантах:

В-1. Складіть програму кодування тексту так: перший символ замінити на 4-й, що розміщений в алфавіті після нього (тобто замінити з кроком зміщення 4).

Введіть текст за допомогою компонента Edit, а результат виведіть, наприклад, у Label.

Фрагмент програми на С++:

Код програми: Скрін програми:

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

int k,n; AnsiString a;

a = Edit1->Text;

Memo1->Lines->Clear();

for (n=1; n<=a.Length(); n++)

{ k=a[n]+4; a[n]=k;

}

Memo1->Lines->Add(a); }

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

void __fastcall TForm1::BitBtn2Click(TObject *Sender)

{

Close(); }

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

Проект3. Ввести список прізвищ та вивести його за такими ознаками:

— за заданим закінченням прізвища;

— за заданою першою літерою прізвища;

— для випадку, коли дві попередні ознаки діють одночасно, тобто задається перша літера прізвища і його закінчення.

Код програми: Скрін програми:

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

const n=7;

AnsiString sp[n], st, okn, s;

int i, k, m;

k = okn.Length();

Label3->Caption = "";

for (i = 0; i < n; i++)

{ sp[i]=InputBox("Ââåäåííÿ ñïèñêó", "Ââåä³òü "+ IntToStr(i+1)+" ïð³çâèùå"," ");

Label3->Caption=Label3->Caption+IntToStr(i+1)+ " "+sp[i]+'\n'; }

AnsiString p = Edit1->Text;

okn = Edit2->Text;

k = okn.Length();

m = 0;

Label4->Caption=" ";

for (i = 0; i < n; i++)

{ s = sp[i];

st = sp[i].SubString(sp[i].Length()-k+1,k);

if (p.IsEmpty())

if (st == okn)

{ m++;

Label4->Caption = Label4->Caption+IntToStr(m) + " " + sp[i]+ '\n'; }

if (okn.IsEmpty())

{ if (s.SetLength(1) == p)

{ m++;

Label4->Caption=Label4->Caption+IntToStr(m) +" " + sp[i] + '\n'; }

}

else

if ((s.SetLength(1) == p) && (st == okn))

{ m++;

Label4->Caption=Label4->Caption+IntToStr(m) +" " + sp[i] +'\n';

}}

}

Поиск по сайту: