Kód: Vybrať všetko

#include <vcl.h>
#include <fstream.h>
#pragma hdrstop

#include "pismena.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Color=clGreen;
  }
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Clear();
ofstream f;
char c;
f.open("Pismena.txt");
   for (c='a'; c<='z'; c++)
   {
     f.put(c);
     f.put('\t');
     }
   for (c='A'; c<='Z'; c++)
   {
     f.put(c);
     f.put('\t');

       }
   f.close();

Memo1->Lines->LoadFromFile ("Pismena.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
{
ifstream f;
char c  ;
int znak,a,A ;
a=0;
A=0;
f.open("Pismena.txt");

if (f.fail()) {
ShowMessage("Chyba");
return;
}

do
   {
   f.get(c);

     if ((c>='a')&&(c<='z'))
      {
        a=a+1;
        Label1->Caption=a;

      }

       if ((c>='A')&&(c<='Z'))
        {
         A=A+1;
         Label2->Caption=A;


        }

          }
while (!f.eof());
f.close();
  }
}