строк - количеством разделителей + 1. Опишите в программе двумерный массив, например, mas_a размером 5х5, при этом необходимо обеспечить программный запрет на ввод более 5 строк и 5 столбцов. После завершения ввода элементов необходимо нажать клавишу Tab или мышью выбрать поле ввода edResult. При этом возникает событие OnExit. Для создания обработчика этого события перейдите в Инспекторе Объектов на закладку Events и выберите OnExit. В окне кода программы появится заготовка процедуры в которую необходимо ввести
procedure TForm1.edMassInExit (Sender: TObject); var
i, j, len, sum1: integer;
b_st_i, e_st_i: integer; // начало и конец подстроки n: integer; // номер строки
x: integer; // количество элементов в строке
first: boolean; // используем для определения кол-ва элементов // первой подстроки
n_sim: integer; begin
len:= Length(edMassIn.Text); b_st_i:= 1;
n:= 1; first:= True;
for i:=1 to len do begin
if (edMassIn.Text[i] = ';') or (i = len) then begin
e_st_i:= i; // конец подстроки
n_sim:= e_st_i - b_st_i; // количество символов в подстроке if first then
begin // первая подстрока
x:= Conv(copy(edMassIn.Text, b_st_i, n_sim), n); first:= False;
b_st_i:= e_st_i ; // определим начало новой подстроки Inc(n); // переходим на новую строку
end
else // работаем не с первой подстрокой begin
if x <> Conv(copy(edMassIn.Text, b_st_i+1, n_sim), n) then begin
ShowMessage('Введенные строки имеют разное количество элементов.
14
Строка: ' + IntToStr(n));
edMassIn.SetFocus; // возвращаемся в редактор
Exit;
end;
b_st_i:= e_st_i ; // определим начало новой подстроки Inc(n); // переходим на новую строку
end;
end;
end; // конец цикла ввода edResult.Text:= ''; sum1:= 0;
for i:= 1 to n-1 do // цикл по строкам begin
for j:= 1 to x do // цикл по элементам строки sum1:= sum1 + Mas_a[i, j];
edResult.Text:= edResult.Text + ' sum(' +IntToStr(i) + ') = ' + IntToStr(sum1);
sum1:= 0; end;
end;
Процедуру TForm1.edMassInExit можно разделить на две части. В первой части выполняется ввод массива, а во второй – находятся суммы элементов для каждой строки. Рассмотрим первую часть процедуры.
Определяем длину введенного текста и сохраняем ее в переменной len. В переменных b_st_i и e_st_i будем хранить соответственно начало и конец подстроки, в n - номер строки, x - количество элементов в строке. Переменная first используется как "флаг" для определения по первой строке количества элементов. Организуем цикл с первого по последний символ введенного текста, содержащегося в свойстве edMassIn.Text, и ищем символ-разделитель строк ; . Если символ найден в переменную e_st_i записываем конец подстроки, т. е. номер символа-разделителя, и определяем длину подстроки (n_sim). Если это первая строка, т. е. first = True, то вызываем функцию Conv (она подробно будет рассмотрена ниже). В нее передается текст подстроки и номер строки массива, а она возвращает количество элементов в строке. При обработке первой подстроки количество элементов в ней сохраняется в переменной x. Флагу first присваиваем значение False, конец первой подстроки делаем началом второй и переходим на новую строку массива.
Если first = False, то вызываем функцию Conv и сравниваем ее значение с количеством элементов в первой строке массива. При равенстве определяем начало следующей подстроки и переходим на новую строку массива. При
15
неравенстве выдаем сообщение о различном количестве элементов в строках, указываем номер строки, методом SetFocus возвращаемся в редактор и выходим из процедуры.
Во второй части процедуры представлен пример обработки массива и вывода результатов в поле ввода TEdit. Обработка массива сводится к нахождению сумм элементов каждой строки. После нахождения сумма преобразуется в строку символов и записывается в свойство Text поля ввода edResult.
Работа функции Conv состоит в преобразовании символов переданной ей подстроки в последовательность чисел и последующей их записи в указанную строку массива. Переменная i_int - счетчик элементов строки массива, element - последовательность символов элемента строки массива.
function Conv (st: string; n: integer):integer;
var // st - текст подстроки; n - номер строки массива i_st, i_int: integer;
element: string; begin
element:= ''; i_int:= 1;
for i_st:=1 to Length(st) do begin
if (st[i_st] <= '9') and (st[i_st] >= '0') then element:= element + st[i_st]
if ((st[i_st] = ' ') or (i_st=Length(st))) and (element <> '') then begin
Mas_a[n, i_int]:= StrToInt(element); element:= '';
Inc(i_int); end;
end;
Result:= i_int-1; // количество элементов end;
{Выполняем преобразование не пустой переменной element в число при наличии разделительного пробела или обработке последнего символа подстроки}
Следует отметить, что String - это цепочка следующих друг за другом символов Char. Каждый символ пронумерован, причем первый символ имеет номер 1. Программист может обращаться к любому символу строки, указывая его порядковый номер в квадратных скобках сразу за именем переменной.
16
Определяем длину подстроки и организуем цикл с первого до последнего символа. Если символ - цифра, то записываем его в element. Если символ - пробел и element непустой, то element преобразуем в число и записываем его в строку n и номером в строке i_int массива mas_a. Затем очищаем element и увеличиваем i_int на 1. Номер последнего преобразованного элемента строки массива записываем в результат функции.
Поместите на форму два компонента TGroupBox, с именами GrBoxIn и GrBoxOut. На GrBoxIn установите три зависимых переключателя TRadioButton, а на GrBoxOut - два независимых переключателя TCheckBox. Переключателями TRadioButton можно будет выбрать источник данных (клавиатура, генератор случайных чисел или файл), а TCheckBox - вывод данных. Установите шрифт для GrBoxIn и GrBoxOut 10 размер, жирный; для TRadioButton и TCheckBox - 8 размер, обычный. Зависимые переключатели назовите RdBnKey, RdBnGen, RdBnFile и запишите в их свойства Caption
соответственно Ввод с клавиатуры, Генератор случайных чисел и Получить данные из файла. Имена независимых переключателей укажите CkBoxEdit и CkBoxFile, а Caption соответственно Вывод данных на экран и Вывод данных в файл. Для RdBnKey и CkBoxEdit в Инспекторе Объектов свойство Checked установите в True. Т.о., при запуске программы эти переключатели окажутся выбранными по умолчанию.
Поместите на форму кнопку TBitBtn, и назовите ее BtBnOpen, свойству Caption пропишите Открыть файл. Эту кнопку сделайте доступной при условии выбора зависимого переключателя в Получить данные из файла и недоступной при выборе другого варианта получения данных. Для этого в процедуре, обрабатывающей событие OnClick от RdBnFile, установите свойство Enabled кнопки BtBnOpen в True, а в Инспекторе Объектов и обработчиках события OnClick от RdBnKey и RdBnGen свойство Enabled=False. Для того, чтобы поле ввода элементов массива и вывода результатов очищались при выборе другого источника данных в соответствующих обработчиках OnClick вставте следующие строки edMassIn.Text:= '' и edResult.Text:= ''.
procedure TForm1.RdBnFileClick(Sender: TObject); begin
edMassIn.Text:= ''; // очистим редактор ввода edResult.Text:= ''; // очистим редактор вывода lbMassIn.Caption:= 'Данные из файла'; BtBnOpen.Enabled:= True;
end;
Для того чтобы поле для вывода результата edResult и его заголовок
17
(метка lbResult) были доступны или нет в зависимости от переключателя CkBoxEdit в обработчике события OnClick выполните проверку свойства Checked. Если оно равно True, то установите свойство Enabled редактора и метки в True, иначе в False.
procedure TForm1.CkBoxEditClick(Sender: TObject); begin
if CkBoxEdit.Checked then begin
lbResult.Enabled:= True; edResult.Enabled:= True; end
else begin
lbResult.Enabled:= False; edResult.Enabled:= False; end;
end;
Поместите на форму компонент TOpenDialog из страницы Dialogs. Вызов этого компонента будет происходить при нажатии на кнопку BtBnOpen. Установите фильтр файлов в свойстве Filter компонента OpenDialog. Далее необходимо реализовать следующий алгоритм – выполнить и проверить выполнение (Execute возвратит True или False) выбора файла. Затем функцией FileExists проверить существование файла, это необходимо сделать, чтобы избежать критической ошибки программы в случае ввода имени несуществующего файла. После успешного определения, имя файла связать с файловой переменной стандартной процедурой AssignFile и открыть файл для чтения процедурой Reset.
Исходные данные должны быть записаны в файл построчно, это позволит читать из файла сразу строку и после ее преобразования функцией Conv, описанной ранее, записать строкой в массив mas_a.
procedure TForm1.BtBnOpenClick(Sender: TObject); var
F: TextFile; i, st_i: integer; s: string;
begin i:= 1;
OpenDialog1.Filter:= 'Текстовые файлы|*.txt';
18