くだすれDelphi(超初心者用)その57 [無断転載禁止]©2ch.net

[0758 デフォルトの名無しさん 2019/02/19(火) 09:58:03.22 ID:5KoJ2HbW]

補足
f01 = 0f1 = 1f0 になってしまうので
f(filename)文字列の桁数 len:=length(f) で文字列制限を設けて
for i:=1 to len do
if i<10 then a:=a+Ord(f[i])*10 else a:=a+Ord(f[i]);
適当処理