Mail.ru
Почта
Мой Мир
Одноклассники
ВКонтакте
Игры
Знакомства
Новости
Календарь
Облако
Заметки
Все проекты
Все проекты
выход
Регистрация
Вход
Категории
Все вопросы проекта
Компьютеры, Интернет
Темы для взрослых
Авто, Мото
Красота и Здоровье
Товары и Услуги
Бизнес, Финансы
Наука, Техника, Языки
Философия, Непознанное
Города и Страны
Образование
Фотография, Видеосъемка
Гороскопы, Магия, Гадания
Общество, Политика, СМИ
Юридическая консультация
Досуг, Развлечения
Путешествия, Туризм
Юмор
Еда, Кулинария
Работа, Карьера
О проектах Mail
Животные, Растения
Семья, Дом, Дети
Другое
Знакомства, Любовь, Отношения
Спорт
Золотой фонд
Искусство и Культура
Стиль, Мода, Звезды
Полный список
Спросить
Лидеры
Поиск по вопросам
Ответы Mail
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Вопросы - лидеры.
Чем Луа лучше Пайтона и наоборот? Буду использовать в целях написания сценариев.
1 ставка
Как загрузить собственный символ в VFD дисплей POS-VFD-RS232?
1 ставка
Лидеры категории
Лена-пена
Искусственный Интеллект
М.И.
Искусственный Интеллект
Y.Nine
Искусственный Интеллект
•••
Выдает ошибку 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.
Голосование за лучший ответ
Кирилл Вернер
Знаток
(402)
1 месяц назад
xз
Максим Амылов
Мыслитель
(8995)
1 месяц назад
в пятой строчке ошибка. логическая
Шпион
Мастер
(1732)
1 месяц назад
и в правду очень неожиданно
Jurijus Zaksas
Искусственный Интеллект
(445729)
1 месяц назад
Как вариант - очень древняя дельфя без поддержки юникода. Попытайся не использовать русские символы.
Похожие вопросы
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.