Geum.ru

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

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

µ Delphi 6.0,7.0. М.: Радио и связь, Веста, 1993.

  • Фаронов В.В. Delphi 7.0. Начальный курс. - М.: Нолидж, 2000.

    •  

    ПРИЛОЖЕНИЕ А

     

    Алгоритм программы

     

    Рисунок А.1 Алгоритм программы

     

    Рисунок А.2 Алгоритм основной процедуры программы

     

    ПРИЛОЖЕНИЕ Б

     

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

     

    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
    106. tmpstr:=strslovo[j];
    107. tmpstr:=AnsiLowerCase(tmpstr);
    108. Delete(strslovo,j,1);
    109. Insert(tmpstr,strslovo,j);
    110. inc(count);
    111. end;
    112. end;
    113. end;
    114. Write(FS,strslovo+str[i]);
    115. strslovo:=;
    116. end
    117. else
    118. strslovo:=strslovo+str[i];
    119. end;
    120. Writeln(FS,);
    121. end;
    122. CloseFile(FO);
    123. CloseFile(FS);
    124. Label3.Caption:=Проверка файла завершена. Исправлено +IntToStr(count)+ заглавных букв.;
    125. Button3.Enabled:=False;
    126. Button4.Visible:=True;
    127. Label4.Visible:=True;
    128. end;
    129. end;
    130. procedure TForm1.Button4Click(Sender: TObject);
    131. begin
    132. OFName:=;
    133. SFName:=;
    134. Button1.Enabled:=True;
    135. Button2.Visible:=False;
    136. Button2.Enabled:=True;
    137. Button3.Visible:=False;
    138. Button3.Enabled:=True;
    139. Button4.Visible:=False;
    140. Label2.Visible:=False;
    141. Label3.Visible:=False;
    142. Label4.Visible:=False;
    143. Label1.Caption:=Нажмите на кнопку "Открыть" и выберите файл для проверки;
    144. end;
    145. end.

    ПРИЛОЖЕНИЕ В

     

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

     

     

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