08/05/21 20:50:09
>>726
edit1.textに数字を入力すれば普通に動くと思う
↓またはこうする
a1 := edit1.text;
try
a2 := strtoint( a1 );
finally
a2 := 0;
end;
data := copy( Edit2.Text,a2,1 );
08/05/21 20:50:09
>>726
edit1.textに数字を入力すれば普通に動くと思う
↓またはこうする
a1 := edit1.text;
try
a2 := strtoint( a1 );
finally
a2 := 0;
end;
data := copy( Edit2.Text,a2,1 );