08/05/21 21:27:24
>>728
var
bno:string;
keta:string;
k1,k2 : string;
kk1,kk2 : integer;
a1,a2 : string;
procedure TForm1.Button2Click(Sender: TObject);
begin
a1 := copy(bno,kk1,1);
a2 := copy(bno,kk2,1);
edit2.Text := a1+a2;
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
keta := edit2.text;
k1 := copy(keta,1,1);
kk1 := strtoint(k1);
k2 := copy(keta,2,1);
kk2 := strtoint(k2);
end;
コンパイルは通るのに実行するとエラーが出ます（涙）