Ввод и вывод символов и строк. Функции для работы со строками

  • ID: 38786 
  • 5 страниц

Фрагмент работы:

Задание

Ввод и вывод символов и строк. Функции для работы со строками.

Организовать меню: Создание файла, Просмотр файла, Поиск, Выход. В файле содержатся структуры со сведениями о продукции тепличного хозяйства: название растения, цена растения, кому реализовано, количество реализованных растений, дата реализации. Вывести общую стоимость (цена * количество) растений, реализованных магазину «Цветы» за 2005 год.

Результат

[image]

По нажатию на кнопку “Обработать” зададим обработчик введенной строки с использованием наиболее распространенных функций:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

int l, cmp;

char s[100], s2[100];

//начальное состояние вспомогательных строк

strcpy(s,"");

strcpy(s2,"");

//определяем длину введенной строки

l=strlen(Form1->Edit1->Text.c_str());

//копируем в s введенную строку

strcpy(s,Form1->Edit1->Text.c_str());

//копируем в s2 строку для поиска

strcpy(s2,Form1->Edit2->Text.c_str()

//выводим длниу строки с использованием преобразования типа

Form1->Label2->Caption = IntToStr(l);

//все символы будут заглавными

Form1->Zagl->Caption = StrUpper(Form1->Edit1->Text.c_str());

//все символы будут прописными

Form1->Propis->Caption = StrLower(Form1->Edit1->Text.c_str());

//вхождение строки поиска в исходную

Form1->Label5->Caption=StrPos(Form1->Edit1->Text.c_str(),s2);

//инверсия введенной строки

Form1->Label10->Caption=strrev(Form1->Edit1->Text.c_str());

//вхождение строки в строку

Form1->Label12->Caption=IntToStr(strspn(Form1->Edit1->Text.c_str(),s2));

//сравнение строк с учетом регистра

cmp = CompareStr(Form1->Edit1->Text,Form1->Edit3->Text);

if (cmpLabel15->Caption="Строка 1 меньше строки 2";

else if (cmp==0) Form1->Label15->Caption="Строки совпадают";

else Form1->Label15->Caption="Строка 1 больше строки 2";

strcpy(s,Form1->Edit1->Text.c_str());

strcpy(s2,Form1->Edit3->Text.c_str());

//слияние строк

Form1->Label17->Caption=StrCat(s,s2);

}

В результате выполнения программы было создана форма с меню.

[image]

При выборе пункта Создать создается файл C:\FLOWER.txt, заполняется из программы массивом и выдается сообщение

[image]

Это является результатом работы функции:

void __fastcall TForm1::N2Click(TObject *Sender)

{