Обработка текстовых файлов в среде Lazarus

ign="justify">    Результатом курсовой работы является созданная  программа, которая работает с текстовым  файлом.

ПЕРЕЧЕНЬ  ССЫЛОК 

1. Галисеев  Г.В. Программирование в среде Delphi 7. Самоучитель
2. Шупрута В.В. Delphi 2005. Учимся программировать, НТ ПРЕСС ООО МОСКВА, – 352 с.
3. Самофалов К.Г. Прикладная теория цифровых автоматов, Киев, "Вища школа", 1987г.

Приложение А

Приложение  Б

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

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. GroupBox1: TGroupBox;
9. Button1: TButton;
10. Button2: TButton;
11. Button3: TButton;
12. Button4: TButton;
13. txt_source: TMemo;
14. dlg_open: TOpenDialog;
15. Button5: TButton;
16. dlg_save: TSaveDialog;
17. procedure Button2Click(Sender: TObject);
18. procedure Button4Click(Sender: TObject);
19. procedure Button1Click(Sender: TObject);
20. procedure Button5Click(Sender: TObject);
21. procedure Button3Click(Sender: TObject);
22. private
23. { Private declarations }
24. public
25. { Public declarations }
26. end;

 

27. var
28. Form1: TForm1;
29. implementation
30. {$R *.dfm}

 

31. procedure TForm1.Button2Click(Sender: TObject);
32. begin
33. Form1.Close();
34. end;

 

35. procedure TForm1.Button4Click(Sender: TObject);
36. begin
37. txt_source.Clear();
38. end;

 

39. procedure TForm1.Button1Click(Sender: TObject);
40. begin
41. if (dlg_open.Execute) then
42. txt_source.Lines.LoadFromFile(dlg_open.FileName);
43. end;

 

44. procedure TForm1.Button5Click(Sender: TObject);
45. var
46. x:integer;
47. s:String; sl:TStringList; n,p:integer;
48. f:boolean;
49. words:TStringList;//Массив количества слов в строке
50. words_len:TStringList;//Массив длины последних слов строк
51. begin
52. //Создаем разделитель слов и необходимые массивы
53. sl:=TStringList.Create;
54. words:=TStringList.Create;
55. words_len:=TStringList.Create;
56. sl.Delimiter:=' ';
57. p:=0;
58. f:=false;
59. //Проверяем расположены ли слова по возврастанию
60. for x:=0 to txt_source.Lines.Count-1 do
61. begins:=txt_source.Lines[x];
62. sl.DelimitedText:=s;
63. p:=0;
64. //Массив количества слов в строках
65. words.Add(IntToStr(sl.Count));
66. //Непосредственно проверка на правильность возрастания
67. for n:=0 to sl.Count-1 do
68. begin
69. if length(sl.Strings[n])>=p then
70. p:=length(sl.Strings[n])
71. else
72. begin
73. f:=true;
74. break;
75. end;
76. end;
77. if f then break;

//Массив длины  последнего слова в строках

78. words_len.Add(IntToStr(Length(sl.Strings[sl.Count-1])));
79. end;

 

80. if f then
81. begin
82. messageBox(Form1.Handle,'Слова не расположены по возврастанию','',0);
83. exit;
84. end;

//Выделяем строки  с наибольшим количеством слов

85. n:=0;
86. //Находим максимум количества слов
87. for x:=0 to words.Count-1 do
88. if StrToInt(words.Strings[x])>n then
89. n:=StrToInt(words.Strings[x]);

//Непосредственно  выделяем строки с наибольшим  количеством слов

90. for x:=0 to words.Count-1 do
91. if StrToInt(words.Strings[x])=n then

begin

txt_source.Lines[x]:='*'+txt_source.Lines[x]+'*';

end;

//Выделяем строки  с самым длинным словом

92. n:=0;
93. //Находим максимум длины слова
94. for x:=0 to words_len.Count-1 do
95. if StrToInt(words_len.Strings[x])>n then n:=StrToInt(words_len.Strings[x]);

//Непосредственно  выделяем строки с самым длинным  словом

96. for x:=0 to words_len.Count-1 do
97. if StrToInt(words_len.Strings[x])=n then
98. begin
99. txt_source.Lines[x]:='*'+txt_source.Lines[x]+'*';
100. end;

//Добавляем информацию  о строках

101. for x:=0 to txt_source.Lines.Count-1 do
102. begin

//Проверяем нечетность

103. if x mod 2<>0 then
104. txt_source.Lines[x]:=IntToStr(x)+txt_source.Lines[x];
105. txt_source.Lines[x]:=txt_source.Lines[x]+words.Strings[x];
106. end;
107. end;

 

108. procedure TForm1.Button3Click(Sender: TObject);
109. begin
110. if (dlg_save.Execute) then
111. txt_source.Lines.SaveToFile(dlg_save.FileName+'.txt');
112. end;
113. end.

 

Приложение  В

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

Исходный  файл

 

Результирующий  файл.