Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Выдает ошибку Unit1.pas(33) : Неожиданный символ ' '

Алиса Иванова Ученик (102), на голосовании 2 недели назад
Unit Unit1;

interface

uses System, System.Drawing, System.Windows .Forms;

type
Form1 = class(Form)
procedure Form1_Load(sender: Object; e: EventArgs);
procedure button1_Click(sender: Object; e: EventArgs);
procedure timer1_Tick(sender: Object; e: EventArgs);
{$region FormDesigner}
internal
{$resource Unit1.Form1.resources}
button1: Button;
pictureBox1: PictureBox;
timer1: Timer;
components: System.ComponentModel.IContainer;
{$include Unit1.Form1.inc}
{$endregion FormDesigner}
public
constructor;
begin
InitializeComponent;
end;
end;

implementation

procedure Form1.Form1_Load(sender: Object; e: EventArgs);
var x,y: integer;
begin
  PictureBox1.Load('самолеет.png');
  x:=-PictureBox1.Width;
  y:=20;
  PictureBox1.Left:=x;
   PictureBox1.Top :=y;
end;

procedure Form1.button1_Click(sender: Object; e: EventArgs);

begin
  Timer1.Enabled:=True;
end;

procedure Form1.timer1_Tick(sender: Object; e: EventArgs);
var x: integer;
begin
x:=x+1;
  PictureBox1.Left:=x;
  if PictureBox1.Left>Width+PictureBox1.Width then
    x:=-PictureBox1.Width;
end;

end.
Голосование за лучший ответ
Максим Амылов Мыслитель (8995) 1 месяц назад
в пятой строчке ошибка. логическая
Шпион Мастер (1732) 1 месяц назад
и в правду очень неожиданно
Jurijus Zaksas Искусственный Интеллект (445729) 1 месяц назад
Как вариант - очень древняя дельфя без поддержки юникода. Попытайся не использовать русские символы.
Похожие вопросы