Добавил:
masterdos
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовая работа / курсовая / курсовая / Unit1
.cpp//---------------------------------------------------------------------------
#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;
}
//---------------------------------------------------------------------------
Соседние файлы в папке курсовая