Выборка из строки

@aimk0 · Регистрация: 18.04.2010

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

Допустим задана строка 001012034, здесь в каждые 3 символа обозначают одно число, т.е.
001 = 1
012 = 12
034 = 34
Собственно и необходимо из заданной строки выделить числа. Длина заданной строки всегда кратна 3-м.
Вот что у меня получилось

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var str,ceh:string;
          i,j:integer;
begin
j:=1;
edit2.Text:='';
str:=edit1.text;
for i:=0 to round(length(str)/3) do begin   //разделяем по 3 символа
ceh:='';
ceh:=copy(str,i*3+1,3);      
// удаляем нули
while ceh[j]='0' do begin
delete(ceh,j,1);
end;
//вывод чисел
edit2.Text:=edit2.Text+ceh+' ';
 
end;
 
end;
 
end.

Программа компилится, но при нажатии на кнопку появляется ошибка

Что здесь может быть не так?

@aimk0 · 10.10.2010, 18:54 **[ТС]**

Все разобрался))
Ошибка была в цикле, надо было так for i:=0 to round(length(str)/3)-1 do begin

тему можно удалять

@aimk0 8 / 8 / 1 Регистрация: 18.04.2010 Сообщений: 74
	10.10.2010, 18:54 [ТС]	2
	Все разобрался)) Ошибка была в цикле, надо было так for i:=0 to round(length(str)/3)-1 do begin тему можно удалять 0