Помогите вставить 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;
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 -