Проблема с задачей на одномерный массив в Делфи 7

[L_M]

опять надо 1, это же л?

[L_M]

посмотри в текст прогр. на форуме, там 1-синим, l-черным

[sting]

Всё спасибо тебе большое! Я разобрался! запустил! ты ес чё заглядывай!

[sting]

блин работает.. но не выполняет действия! fuck

[L_M]

for k:= 1 to 10 do
ListBox.Items.Add(IntToStr(a[k]));
а это ты исправлял? на что?

[L_M]

при втором проходе будет ошибка так как индекс и не обнуляется, то же самое с непроверкой выхода за 10
очищать листы для повторного использования(непосредственноперед заполнением)
я еще не пойму, зачем везде SetFocus?

[sting]

8 Для удобства работы с приложением создадим обработчик события OnKey-Down для строки ввода Editl, в котором при нажатии на клавишу Enter фокус ввода будет переводиться на кнопку "Ввод":
if key = 13 then Buttonl.SetFocus

слушай я тебя не понял! Ну я ту строчку менял! вместо Л ставил 1! и всё! а что то там не так?

[puporev]

1. Не объявлена переменная к.
Напиши

procedure TForm1.Button2Click(Sender: TObject);
var k:integer;
begin

2.Нет проверки на размерность массива, напиши

procedure TForm1.Button1Click(Sender: TObject);
begin
      Listbox1.Items.Add(Edit1.Text);
      i:=i+1;
      a[i]:=StrToInt(Edit1.Text);
      Edit1.SetFocus;
      if i=10 then Button1.Enabled:=false;
end;

[sting]

Всё сделал! не на что не ругаеться! нажимаю проверить! он мне снизу пишет:

[Fatal Error] Unable to build. License is invalid or has expired.
[Error] Project1.dpr(2): Declaration expected but end of file found
[Fatal Error] Unable to build. License is invalid or has expired.
[Fatal Error] Unable to build. License is invalid or has expired.
[Fatal Error] Unable to build. License is invalid or has expired.
[Fatal Error] Unable to build. License is invalid or has expired.
[Fatal Error] Unable to build. License is invalid or has expired.
[Fatal Error] Unable to build. License is invalid or has expired.
[Fatal Error] Unable to build. License is invalid or has expired.
[Fatal Error] Unable to build. License is invalid or has expired.
[Fatal Error] Unable to build. License is invalid or has expired.
[Fatal Error] Unable to build. License is invalid or has expired.
[Fatal Error] Unable to build. License is invalid or has expired.

В чём дело?

[puporev]

Ну это уж не программа, это что-то с установленной Делфи.
Просрочена лицензия. Видимо Демо версия.