Delphi constant expression expected
Автор Okokokokoko okokokokokok задал вопрос в разделе Другие языки и технологии
Почему не получается в delphi...?(( и получил лучший ответ
Ответ от КОРОЛь[гуру]
во-первых напиши, что по этому поводу считает дельфи
а во-вторых проблема мне кажется в цикле - оформи первый begin`ом и end`ом
====================================================================
const убери
Ответ от !Упырь...[эксперт]
они вроде бы без типа объявляются....
они вроде бы без типа объявляются....
Ответ от Данил Зорин[новичек]
procedure TForm13.lst1Click(Sender: TObject);
VAR
b, j: Integer;
begin
// Дополнительная инициализация B и J не нужна, они инициализируются в теле цикла
for b:=0 to 1000 do
for j:=1 to 1001 do
begin
case lst1.itemindex of
b: lbl1.caption:='Название: '+chr(13)+name_en[j];
end;
end;
end;
Можно конечно и в настройке компилятора разрешить переменные константы, но так будет проще.
да, и в самом низу, под функцией напиши: end.
procedure TForm13.lst1Click(Sender: TObject);
VAR
b, j: Integer;
begin
// Дополнительная инициализация B и J не нужна, они инициализируются в теле цикла
for b:=0 to 1000 do
for j:=1 to 1001 do
begin
case lst1.itemindex of
b: lbl1.caption:='Название: '+chr(13)+name_en[j];
end;
end;
end;
Можно конечно и в настройке компилятора разрешить переменные константы, но так будет проще.
да, и в самом низу, под функцией напиши: end.
Ответ от Yaroslav429[эксперт]
Улыбнуло) )
Определяеш как константы, и в цикл пихаеш) )
Думаю, так будет нормально
procedure TForm13.lst1Click(Sender: TObject);
var
j,b: integer;
begin
for b:=0 to 1000 do
for j:=1 to 1001 do
begin
case lst1.itemindex of
b: lbl1.caption:='Название: '+chr(13)+name_en[j];
end;
end;
end;
)) Faster))
эээ.. . Вот это уже интересно) Скажи что надо, может без case можно сделать
Не очень понятна смысловая нагрузка этого кода
Улыбнуло) )
Определяеш как константы, и в цикл пихаеш) )
Думаю, так будет нормально
procedure TForm13.lst1Click(Sender: TObject);
var
j,b: integer;
begin
for b:=0 to 1000 do
for j:=1 to 1001 do
begin
case lst1.itemindex of
b: lbl1.caption:='Название: '+chr(13)+name_en[j];
end;
end;
end;
)) Faster))
эээ.. . Вот это уже интересно) Скажи что надо, может без case можно сделать
Не очень понятна смысловая нагрузка этого кода
Ответ от Алексей Владимирович[гуру]
Там не Const надо писать а var. Потому, что их значение в цикле будет меняться, а значение константы - неизменно!! !
procedure TForm13.lst1Click(Sender: TObject);
var b: integer ; j: Integer;
begin
for b:=0 to 1000 do
for j:=1 to 1001 do
begin
case lst1.itemindex of
b: lbl1.caption:='Название: '+chr(13)+name_en[j];
end;
end;
end;
Там не Const надо писать а var. Потому, что их значение в цикле будет меняться, а значение константы - неизменно!! !
procedure TForm13.lst1Click(Sender: TObject);
var b: integer ; j: Integer;
begin
for b:=0 to 1000 do
for j:=1 to 1001 do
begin
case lst1.itemindex of
b: lbl1.caption:='Название: '+chr(13)+name_en[j];
end;
end;
end;
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Почему не получается в delphi...?((