3. РЕШЕНИЕ АЛГОРИТМИЧЕСКИХ ЗАДАЧ

     Если (if) пользователь щелкнет на кнопке OK (mrOK), то (then) будет выполнен оператор Re.Lines.Clear, т. е. очистка (Clear) строк (Lines) компонента Re. В противном случае очистка не будет выполняться.

     Запустите приложение, наберите в редакторе какой-нибудь текст и проверьте работу этого программного кода. 

     Теперь можно составить код для сохранения данных, которые будут содержаться в редакторе Re. Создайте событие для щелчка на кнопке sbSaveData. Код события показан ниже.

procedure TfMain.sbSaveDataClick(Sender: TObject);
begin
 if Sd.Execute then Re.Lines.SaveToFile(Sd.FileName);
end;

     При выполнении оператора тела обработчика события сначала будет открыто окно для сохранения файла. Это осуществляется логической функцией Sd.Execute диалога Sd сохранения файла. Здесь необходимо выбрать папку и имя файла. Пример окна диалога показан на рис. 3.3, где файлу дано имя data.rtf поскольку формат файла .rtf является самым подходящим для данных текстового редактора RichEdit. Если теперь в окне сохранения нажать кнопку Сохранить, то будет выполнена команда сохранения (SaveToFile) строк (Lines) редактора Re в том файле, который выбран в окне диалога (Sd.FileName).

Рис. 3.3. Диалог сохранения файла с данными

     Запустите программу на выполнение и наберите несколько чисел в столбик, как видно на рис. 3.3 в редакторе Re, затем выполните операцию сохранения этих данных в папке данного приложения.

     Теперь запрограммируем кнопку чтения данных из файла.

procedure TfMain.sbOpenDataClick(Sender: TObject);
begin
 if Od.Execute then Re.Lines.LoadFromFile(Od.FileName);
end;

      При выполнении этого кода в редактор будут считаны данные из сохраненного ранее файла. Проверьте работу этой процедуры.

     Осталось запрограммировать нахождение наименьшего из чисел, которые расположены в столбик в редакторе.

     Этот процесс разобьем на несколько процедур:

1) чтение строк из редактора в числовой массив,

2) нахождение наименьшего элемента в массиве,

3) нахождение и выделение наименьшего числа в редакторе.

     Сначала объявим целочисленный массив, например, с именем a. Для этого вставьте в текст программного кода файла Main.pas после объявления переменной формы fMain объявление этого массива. Теперь фрагмент кода будет выглядеть так

     Как сказано выше, наш массив в редакторе Re расположен в столбик, поэтому каждое число представлено в нем отдельной строкой. Однако не каждая строка может быть целым числом (например в строке могут оказаться буквы). Поэтому при чтении данных в массив каждую строку нужно проверять является ли ее набор символов целым числом. Если строка является таким числом, то будем ее помещать в массив начиная с нулевой ячейки.

     Таким образом функция чтения строк в массив является логической и примет значение true, если в строках редактора Re есть целые числа, и false, если это не так.

     Ниже приведен код функции ReadArray с комментариями, текст которой следует расположить под текстом последней процедуры обработчика событий.

function ReadArray: boolean; // логическая функция чтения данных
 var i,j,k: Integer; // объявление целочисленных переменных
begin
 a:= Nil; // очищаем массив от элементов
 for i:= 0 to fMain.Re.Lines.Count-1 do // проход по строкам редактора Re
  if TryStrToInt(Trim(fMain.Re.Lines[i]),j) then // если строка - число, то
   begin
    k:= Length(a); // определяем число элементов в массиве
    SetLength(a,k+1); // добавляем новый элемент в массив
    a[k]:= j; записываем число j в ячейку k массива a
   end;
 Result:= Length(a) > 0; // функция истинна, когда в массиве есть элементы
end;

     Теперь составим и расположим ниже целочисленную функцию GetMinValue нахождения наименьшего элемента в массиве

function GetMinValue(var j: Integer): Integer; // функция GetMinValue
 var i: Integer; // объявление вспомогательных переменных
begin
 Result:= Length(a); // результат равен числу элементов в массиве
 if Result = 0 then exit; // в массиве нет чисел, выходим из функции
 j:= a[0]; // сначала номер min элемента равен 0
 for i:= 1 to Result-1 do // проход по массиву
  if a[i] < j then j:= a[i]; // текущий номер min элемента 
end;

     Составим далее процедуру SelMinValue выделения в Re строки с номером k жирным и красным цветом

procedure SelMinValue(k: Integer);
 var i,j: Integer; // объявление вспомогательных переменных
begin
 With fMain.Re do // работа с компонентом Re формы fMain
  begin
   for i:= 0 to Lines.Count-1 do // проход по строкам Re
    if TryStrToInt(Trim(fMain.Re.Lines[i]),j) then // определения значения в строке
     if k = j then // если число совпадает с k
      begin
       SelStart:= SendMessage(Handle, EM_LINEINDEX, i, 0); // отсюда ...
       SelLength:= Length(Lines[i]); // .. до сюда выделить в Re
       SelAttributes.Color := clRed; // выделенное покрасить красным цветом
       SelAttributes.Style := [fsBold]; // выделенное сделать жирным
       SelLength:= 0; // снять выделение с фрагмента
      end;
  end;
end;

procedure SetSimpleFont;
begin
 With fMain.Re do // работа с компонентом Re формы fMain
  begin
   SelStart:= 0; // выделяем с 0-позиции
   SelLength:= Length(Text); // на длину всего текста
   SelAttributes.Style:= []; // снимаем с выделенного жирное
   SelAttributes.Color := clBlack; // цвет выделенного делаем черным
   SelLength:= 0; // снимаем выделение
  end;
end;     

procedure TfMain.sbExecClick(Sender: TObject);
 var j: Integer;
begin
 SetSimpleFont; // убираем в редакторе жирное и красный цвет
 if ReadArray then // если данные прочитаны
  if GetMinValue(j) > 0 then // если их число > 0 то
   SelMinValue(j); // выделяем min элемент жирным и красным
 a:= Nil; // освобождаем память, занятую массивом
end;  

procedure SaveStringGridToTabbedTextFile(Sg: TStringGrid; FileName: TFileName);
 var F: TextFile;
 i,j: Integer;
begin
 AssignFile(F,FileName); Rewrite(F);
 for i:= 0 to Sg.RowCount-1 do
  begin
   for j:= 0 to Sg.ColCount-1 do
    Write(F,Sg.cells[j,i]+#9);
   Writeln(F);
  end;
 CloseFile(F);
end;

     Тогда обработчик события для сохранения сетки в файле может иметь вид

procedure TfMain.sbSgSaveClick(Sender: TObject);
begin
 if Sd.Execute then SaveStringGridToTabbedTextFile(Sg,Sd.FileName);
end;

     Данные сетки лучше сохранять в текстовом файле, например в файле с именем sg.txt.   

     Для загрузки данных  из файла в StringGrid можно использовать процедуру

procedure LoadStringGridFromTabbedTextFile(var Sg: TStringGrid; FileName: TFileName);
 var f: TextFile;
 i,j,k: Integer;
 s: AnsiString;
begin
 AssignFile(F,FileName);
 Reset(F);
 i:= -1; j:=0;
 While not Eof(F) do
  begin
   Readln(F,s);
   j:= 0; Inc(i);
   While Trim(s) <> '' do
    begin
     k:= Pos(#9,s);
     Sg.cells[j,i]:= Copy(s,1,k-1);
     s:= Copy(s,k+1,MaxInt);
     Inc(j);
    end;
  end;
 Sg.RowCount:= i+1;
 Sg.ColCount:= j;
 CloseFile(f);
end;

procedure SgClear;
 var i,j: Integer;
begin
 With fMain.Sg do
  if MessageDlg('Очистить сетку?',mtWarning, mbOKCancel,0) = mrOK then
   for i:= 0 to RowCount-1 do
    for j:= 0 to ColCount-1 do
     Cells[j,i]:= '';
end;

procedure TfMain.sbSgExecClick(Sender: TObject);
 var i,k1,k2: Integer;
begin
 Sg.ColCount:= 4; // число столбцов сетки делаем равным 4
 With Sg do
  for i:= 1 to RowCount-1 do // проход по строкам сетки
   begin
    Cells[3,i]:= 'Ошибка'; // значение текущей ячейки результирующего массива
    if TryStrToInt(Cells[1,i],k1) then // если в 1-м массиве число
     if TryStrToInt(Cells[2,i],k2) then // и если во 2-м массиве число
      Cells[3,i]:= IntToStr(k1+k2); // то складываем числа и заносим в 3-й массив
   end;
end;