У вас вопросы?
У нас ответы:) SamZan.net

Создание программы на языке Delphi 70.html

Работа добавлена на сайт samzan.net: 2016-01-17

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 12.5.2025

Листинг программы

  1.  unit Unit1;
  2.  interface
  3.  uses
  4.  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.  Dialogs, StdCtrls;
  6.  type
  7.  TForm1 = class(TForm)
  8.  Button1: TButton;
  9.  Button2: TButton;
  10.  OpenDialog1: TOpenDialog;
  11.  SaveDialog1: TSaveDialog;
  12.  Button3: TButton;
  13.  Label1: TLabel;
  14.  Label2: TLabel;
  15.  Label3: TLabel;
  16.  Label4: TLabel;
  17.  Button4: TButton;
  18.  procedure Button1Click(Sender: TObject);
  19.  procedure Button2Click(Sender: TObject);
  20.  procedure FormCreate(Sender: TObject);
  21.  procedure Button3Click(Sender: TObject);
  22.  procedure Button4Click(Sender: TObject);
  23.  private
  24.  { Private declarations }
  25.  public
  26.  { Public declarations }
  27.  end;
  28.  var
  29.  Form1: TForm1;
  30.  OFName,SFName:String;
  31.  implementation
  32.  {$R *.dfm}
  33.  procedure TForm1.Button1Click(Sender: TObject);
  34.  begin
  35.  if OpenDialog1.Execute then
  36.  OFName:=OpenDialog1.FileName;
  37.  if OFName<>'' then begin
  38.  Button1.Enabled:=False;
  39.  Button2.Visible:=True;
  40.  Label1.Caption:='Путь к файлу для проверки: '+OFName;
  41.  Label2.Visible:=True;
  42.  Label2.Caption:='Нажмите на кнопку "Сохранить" и выберите файл для хранения результатов проверки';
  43.  end;
  44.  end;
  45.  procedure TForm1.Button2Click(Sender: TObject);
  46.  var
  47.  b:boolean;
  48.  begin
  49.  b:=false;
  50.  if SaveDialog1.Execute then
  51.  SFName:=SaveDialog1.FileName;
  52.  if Pos('.txt',SFName)=0 then SFName:=SFName+'.txt';
  53.  if SFName=OFName then
  54.  ShowMessage('Выберите другой файл для сохранения результата')
  55.  else
  56.  b:=true;
  57.  if (SFName<>'') and (b) then begin
  58.  Button2.Enabled:=False;
  59.  Label2.Caption:='Путь к результирующему файлу: '+SFName;
  60.  Button3.Visible:=True;
  61.  Label3.Visible:=True;
  62.  Label3.Caption:='Для начала проверки нажмите на кнопку "Проверить"';
  63.  end;
  64.  end;
  65.  procedure TForm1.FormCreate(Sender: TObject);
  66.  begin
  67.  Button2.Visible:=False;
  68.  Label2.Visible:=False;
  69.  Button3.Visible:=False;
  70.  Label3.Visible:=False;
  71.  Button4.Visible:=False;
  72.  Label4.Visible:=False;
  73.  Label1.Caption:='Нажмите на кнопку "Открыть" и выберите файл для проверки';
  74.  end;
  75.  procedure TForm1.Button3Click(Sender: TObject);
  76.  var
  77.  FO,FS:TextFile;
  78.  i,j,count:integer;
  79.  str,strslovo,tmpstr:String;
  80.  ZnCh,UpCh:set of Char;
  81.  answ:Word;
  82.  begin
  83.  count:=0;
  84.  ZnCh:=['.',',','!','?'];
  85.  UpCh:=['A'..'Z','А'..'Я'];
  86.  AssignFile(FO,OFName);
  87.  AssignFile(FS,SFName);
  88.  {$I-}
  89.  Reset(FO);
  90.  {$I+}
  91.  if IOResult<>0 then begin
  92.  ShowMessage('Произошли проблемы с открытием файла. Программа будет завершена');
  93.  Exit;
  94.  end
  95.  else begin
  96.  Rewrite(FS);
  97.  while not Eof(FO) do begin
  98.  Readln(FO,str);
  99.  strslovo:='';
  100.  for i:=1 to Length(str) do begin
  101.  if (str[i] in ZnCh) or (str[i]=' ') then begin
  102.  for j:=1 to Length(strslovo) do begin
  103.  if strslovo[j] in UpCh then begin
  104.  answ:=MessageDlg('В слове "'+strslovo+'" найдена заглавная буква "'+strslovo[j]+'". Заменить ее на малую?',mtInformation,[mbYes,mbNo],0);
  105.  if answ=mrYes then begin
    1.  tmpstr:=strslovo[j];
    2.  tmpstr:=AnsiLowerCase(tmpstr);
    3.  Delete(strslovo,j,1);
    4.  Insert(tmpstr,strslovo,j);
    5.  inc(count);
  106.  end;
  107.  end;
  108.  end;
  109.  Write(FS,strslovo+str[i]);
  110.  strslovo:='';
  111.  end
  112.  else
  113.  strslovo:=strslovo+str[i];
  114.  end;
  115.  Writeln(FS,'');
  116.  end;
  117.  CloseFile(FO);
  118.  CloseFile(FS);
  119.  Label3.Caption:='Проверка файла завершена. Исправлено '+IntToStr(count)+' заглавных букв.';
  120.  Button3.Enabled:=False;
  121.  Button4.Visible:=True;
  122.  Label4.Visible:=True;
  123.  end;
  124.  end;
  125.  procedure TForm1.Button4Click(Sender: TObject);
  126.  begin
  127.  OFName:='';
  128.  SFName:='';
  129.  Button1.Enabled:=True;
  130.  Button2.Visible:=False;
  131.  Button2.Enabled:=True;
  132.  Button3.Visible:=False;
  133.  Button3.Enabled:=True;
  134.  Button4.Visible:=False;
  135.  Label2.Visible:=False;
  136.  Label3.Visible:=False;
  137.  Label4.Visible:=False;
  138.  Label1.Caption:='Нажмите на кнопку "Открыть" и выберите файл для проверки';
  139.  end;
  140.  end.
  141.  


ПРИЛОЖЕНИЕ В

Результаты решения программы

Результатом решения программы можно считать сообщение об исправленных заглавных буквах и результирующий файл с записанной в него информацией. 




1. Диагностика деменции альцгеймеровского типа
2. Медицинский университет Астана Кафедра общей хирургии Факультет общей медицины факультет стомато
3. Тема практической работы Цель
4. Название агентства
5. Методичні рекомендації до виконання дипломних робіт студентами
6. Тема- Учет готовой продукции и ее продажи на предприятии ОАО Лесной профиль Работу выполнила студе
7. экономическими описаниями и исследованиями в рамках политической экономии
8. Зеркало моей души Наше обращение адресовано всем участникам Русского Общественного Движения Возрож
9. психологов в области рекламы выявили следующие характеристики цвета по восприятию их потенциальными покуп.
10. записка Програму зовнішнього незалежного оцінювання з української мови далі ~ програма ЗНО розроблено

Материалы собраны группой SamZan и находятся в свободном доступе