Программа диагностики станков - Delphi - Ответ 1269272

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    MemoBuffer: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  WayFile:string; // путь где лежит файл и его имя
 
implementation
 
{$R *.dfm}
 
// эта процедура(FormCreate) всегда выполняется первой , где бы не находилась в программе
procedure TForm1.FormCreate(Sender: TObject);
begin
 WayFile:='C:\AllErrors.txt';
 if not FileExists(WayFile) then Memo1.Lines.SaveToFile(WayFile); //создаем пустой файл, если его еще нет
 MemoBuffer.Hide;// спрячем MemoBuffer из формы, т.к. он нужен нам только как посредник в поиске нужного текста
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  str:string;
  CopyBuffer:Boolean;
begin
   str:=Trim(Edit1.Text);// копируем edit в str. Заодно, при помощи Trim убираем крайние пробелы, если случайно их введут
   str:='#'+str+'#';// делаем поисковое слово таким, как оно выглядит в файле
 
   MemoBuffer.Clear;// очищаем
        Memo1.Clear;
 
//скачаем все содержимое файла AllErrors.txt в MemoBuffe
 MemoBuffer.Lines.LoadFromFile(WayFile);
 
   for i:=0 to MemoBuffer.Lines.Count-1 do // перебираем строки MemoBuffer начиная с первой
 begin
   if  Pos(str,MemoBuffer.Lines.Strings[i])<>0 then CopyBuffer:=True; //ищем начало нужного блока и даем разрешение на запись последующих строк
   if (CopyBuffer=True) and (MemoBuffer.Lines.Strings[i+1]<>'#End#')then Memo1.Lines.Add(MemoBuffer.Lines[i+1]); // пишем нужные строки
   if (CopyBuffer=True) and  (MemoBuffer.Lines.Strings[i]='#End#')
    then CopyBuffer:=False; // запрещаем дальнейшую запись из файла если дошли до  #End#
 end;
MemoBuffer.Clear;// очищаем буфер для работы со следующим поиском
end;
end.