Непонятная ошибка

@somber · Регистрация: 19.12.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте. Вот код программы

Delphi

var s1,s2:string;
i,k,k1:integer;
begin
 SG1.ColCount:=length(Memo1.text)+1;
 s1:=AnsiUpperCase(Memo1.Text);
 s2:=Memo2.Text;
  for i:=1 to length(s1) do
   SG1.Cells[i,1]:=memo1.Text[i];
    for k:=0 to length(Edit1.Text) do
     begin
      k1:=strtoint(edit1.text[k+1]);
      memo2.Text:=memo2.Text+SG1.Cells[k1,1];
     end;
end;

При выполнении в самом конце вылезает то, что на картинке:

@FIL · 16.05.2014, 15:28

Как минимум:

Delphi

1
2
3

    for k:=1 to length(Edit1.Text) do
     begin
      k1:=strtoint(edit1.text[k]);

@somber · 16.05.2014, 15:30 **[ТС]**

Спасибо

@somber 0 / 0 / 0 Регистрация: 19.12.2012 Сообщений: 35
	16.05.2014, 15:30 [ТС]	3
	Спасибо 0