Текстовый редактор (лаба) / Unit1

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    SourceEdit: TEdit;
    btnFindWord: TButton;
    Label2: TLabel;
    Label3: TLabel;
    sWordMinEdit: TEdit;
    ColMinEdit: TEdit;
    Label4: TLabel;
    sWordMaxEdit: TEdit;
    Label5: TLabel;
    ColMaxEdit: TEdit;
    procedure btnFindWordClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnFindWordClick(Sender: TObject);
const Delims = [' ', '.', ',', ':', ';', '!', '?', '-', Char(9), Char(10), Char(13)];

var i, min, max: integer;
    sStr, sWord: string;

begin
  max := 0; min := 0; sWord := '';

  sWordMinEdit.Clear; sWordMaxEdit.Clear;
  ColMinEdit.Clear; ColMaxEdit.Clear;


  sStr := SourceEdit.Text;

  if not (sStr[Length(sStr)] in Delims) then sStr := sStr + '.';


  for i := 1 to Length(sStr) do
    begin

      if sStr[i] in Delims then
        begin
          if min = 0 then
             min := Length(sWord)
          else
             if min > Length(sWord) then
                min := Length(sWord);


          if max = 0 then
             max := Length(sWord)
          else
             if max < Length(sWord) then
                max := Length(sWord);


          sWord := '';
        end
      else sWord := sWord + sStr[i];
    end;

  ColMinEdit.Text := IntToStr(min);
  ColMaxEdit.Text := IntToStr(max);

  sWord := '';
  for i := 1 to Length(sStr) do
    begin

      if sStr[i] in Delims then
        begin
          if min = Length(sWord) then sWordMinEdit.Text := sWordMinEdit.Text + sWord + '  ';

          if max = Length(sWord) then SWordMaxEdit.Text := sWordMaxEdit.Text + sWord + '  ';

          sWord := '';
        end
      else sWord := sWord + sStr[i];

    end;

end;

end.