Курсовая работа / курсовая / Unit1

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Stdio.h"
#include "Io.h"
char st[255];
String s;
FILE *F;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonAClick(TObject *Sender)
{
s="";
String s1,s2;
int count=0,count2=0,side1,side2;
if((F=fopen("1.txt", "r"))==NULL)
    {
   ShowMessage("Такого файлу немає!");
   return;
    }
    Memo1->Clear();
while(!feof(F))
    {
   fscanf(F,"%s ",&st);
   if((st[0]>='A')&&(st[0]<='z'))
   {
     if (count==0) {s1=st;count++;side1=count2;}
     s2=st;
     side2=count2;
   }
   count2++;
}
fclose(F);
FILE *h;
h = fopen("2.txt","w");
if((F=fopen("1.txt", "r"))==NULL)
    {
    ShowMessage("Такого файлу немає!");
    return;
    }
count=0;
while(!feof(F))
{
   fscanf(F,"%s ",&st);
   if (count!=side1 && count!=side2) fprintf(h,"%s ",st);
   else {
         if (count==side1) fprintf(h,"%s ",s2);
         if (count==side2) fprintf(h,"%s ",s1);
   }
   count++;
}
fclose(h); fclose(F);
remove("1.txt"); rename("2.txt","1.txt");
Memo1->Lines->Add("Положення слів змінено.");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonBClick(TObject *Sender)
{
s="";
if((F=fopen("1.txt", "r"))==NULL)
    {
   ShowMessage("Такого файлу немає!");
   return;
    }
    Memo1->Clear();
    Memo1->Lines->Add("Перші літери слів кирилицею: ");
    while(!feof(F))
    {
   fscanf(F,"%s ",&st);
   if((st[0]>='А')&&(st[0]<='я'))
   {
     s+=st[0];
     s+=" ";
   }
    }
    fclose(F);
    Memo1->Lines->Add(s);
  }
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonCClick(TObject *Sender)
{
FILE *h;
String ss;
int c;
if((F=fopen("1.txt", "r"))==NULL)
    {
   ShowMessage("Такого файлу немає!");
   return;
    }
Memo1->Clear();
h = fopen("2.txt","w");
while(!feof(F))
{
   fscanf(F,"%s ",&st);
   if ((st[0]>='А')&&(st[0]<='я')) {
     c=1; ss="";
     while (c<strlen(st)) {
     ss+=st[c];   c++;}
     fprintf(h,"%s ",ss);
   } else fprintf(h,"%s ",st);
}
fclose(h); fclose(F);
remove("1.txt"); rename("2.txt","1.txt");
Memo1->Lines->Add("Слова змінено.");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonDClick(TObject *Sender)
{
if((F=fopen("1.txt", "r"))==NULL)
    {
   ShowMessage("Такого файлу немає!");
   return;
    }
Memo1->Clear();
Memo1->Lines->Add("Вміст файлу:");
while(!feof(F))
{
   fscanf(F,"%s ",&st);
   Memo1->Lines->Add(st);
}
fclose(F);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonEClick(TObject *Sender)
{
char a[255];
FILE *p;
if((p=fopen("start.txt", "r"))==NULL)
    {
   ShowMessage("Такого файлу немає!");
   return;
    }
Memo1->Clear();
Memo1->Lines->Add("Вміст початкового файлу:");
while(!feof(p))
{
   fscanf(p,"%s ",&a);
   Memo1->Lines->Add(a);
}
fclose(p);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MemoClearClick(TObject *Sender)
{
Memo1->Clear();
Memo1->Lines->Add("Для виконання подальших дій виберіть потрібне вам завдання зі списку,або натисніть 'Вихід' для закінчення роботи програми.");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ExitClick(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1KeyPress(TObject *Sender, char &Key)
{
Key=0;
}
//---------------------------------------------------------------------------