Форум программистов [Powered by Invision Power Board]

Код
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Timer1: TTimer;
    Edit2: TEdit;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  
  private
    { Private declarations }
  public
  a:integer;
  Len:integer;
  world:string;
  i,J:integer;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}





procedure TForm1.Timer1Timer(Sender: TObject);
var
s:string;

begin //1
//   if edit1.Text[len]=world[len] then a:=0;
 form1.Caption:= IntTostr(length(edit1.text));

 if a=0 then begin //2

   if length(edit1.text)<100 then begin//3
   edit1.text:=' '+edit1.text;
   end else begin a:=1; S:=edit1.text;  end;//3
 end;//2

    { if j>len then a:=0;}
   if a=1 then begin //2

   S:=edit1.text;

    delete(s,length(s),1);
    insert(world[j],s,1);
  edit1.text:=s;
   inc(i);dec(j);
    if length(edit1.text)>len-1 then begin a:=0; i:=1;  {world:='Прямоугольник в центре'} end;
 end;//2

 end; //1

procedure TForm1.FormCreate(Sender: TObject);
begin
a:=0;
i:=1;

len:=length(edit1.text);
world:=edit1.Text;
J:=len;
end;

end.