Try except Опции

[Alucard]

Кнопка считывает число из Edit1 и вставляет его перед всеми числами, в которых есть цифра 1

Помогите вставить Try Except, что бы если edit1 оставить пустым, или вписать буквы, или ещё что то, кроме числа, что бы прога не вызывала ошибку, а просто ничего н епроисходило

Код

procedure TLABwork.Button3Click(Sender: TObject);
var       k,temp:integer;
begin
   memo1.Clear;
   for i:=1 to 10 do
   a[i]:=b[i];
   k:=StrToInt(edit1.Text);
   for i:=1 to 10 do
    begin
      temp:=0;
      if a[i]<0 then
         begin
            temp:=a[i]*-1;
            a[i]:=temp;
         end;
      m:=a[i] mod 10;
      n:=a[i] div 10;
      if (m=1) or (n=1) then
        begin
         if n=0 then
           begin
             k:=k*10;
             a[i]:=a[i]+k;
             if temp<>0 then a[i]:=a[i]*-1;
             memo1.lines.Add(intTostr(a[i]));
           end
        else
          begin
             k:=k*100;
             a[i]:=a[i]+k;
             if temp<>0 then a[i]:=a[i]*-1;
             memo1.lines.add(inttostr(a[i]));
          end;
        end;
        k:=StrToInt(edit1.Text);
        end;
end;

Сообщение отредактировано: Alucard - 17.05.2009 23:01