VPF::БЕгущая строка - Форум программистов

InfectedM

Дата 25.5.2008, 20:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 21.10.2007

Репутация: нет
Всего: нет

что-то не работает

подскажите в чем дело.

Код

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.

после того как текст проходит 1 раз - появляються какие-то символы "левые"

Добавлено Добавлено @ 19:53
http://slil.ru/25827294

нужно так как на картинке

Это сообщение отредактировал(а) Snowy - 26.5.2008, 11:01

Присоединённый файл ( Кол-во скачиваний: 15 )

111111.JPG 6,54 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »