В чем ошибка delphi? - есть ответ

Без имени, 175 просмотров

в чем тут ошибка?

procedure TForm1.sButton1Click(Sender: TObject);
var
i, proc, Max : integer;
begin
Max := 50000;
for i:=0 to Max do
begin
proc := ((i * 100) div Max);
ListView1.Caption := IntToStr(i);
ProgressBar1.Position := proc ;
Application.ProcessMessages;
end;

показывает что var не правельный

Примечание:
все равно ошибка Дмитрий Сергеевич

Примечание:
ошибку переписать?

Ответы:

Дмитрий_Сергеевич2012

Сейчас проверим

Dr.Elvis

var
i, proc, Max : integer;

Дмитрий_Сергеевич2012

procedure TForm1.sButton1Click(Sender: TObject);
var i,x,mx:real;
begin
mx:=50000;
for i:=0 to mx do
begin
proc:=((i * 100) div mx);
ListView1.Caption:=IntToStr(i);
ProgressBar1.Position:=x;
Application.ProcessMessages;
end.
end;

Артёмка

Нет закрывающего end; для процедуры.

YERMAK

Скриншот ошибки можно, ну или переписать хотябы

12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.