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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 4.3.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. Сосны и Сосенки Красноярская РЛС и вывод войск из Германии 500 дней Шаталина и Явлинского компиляция
3. Особенности анестезиологического обеспечения операций у больных с хирургическими заболеваниями челюстно-лицевой области
4. Тема Течії протестантизму
5. обучение процесс обучения понимается главным образом преподавание цель которого ученик.
6. Однако именно Америка сделала автомобиль культовой продукцией
7. Курсовая работа- Административный надзор органов внутренних дел (милиции)
8. Incubus
9. Реферат- Правовой комплекс обычаев и традиций коренного малочисленного народа Крайнего Севера - эвенков
10. 20 ГОДЫ Анкета Фамилия имя отчество Дат

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