- くだすれDelphi(超初心者用)その57 [無断転載禁止]©2ch.net
757 ：デフォルトの名無しさん[sage]：2019/02/19(火) 09:38:23.94 ID:5KoJ2HbW - >>753
例えばこういうのは？
ファイル名文字列をバイト単位で数値化して加算
f0 = 0x65 + 0x30 = 101 + 48 = 149
f1 = 150
f2 = 151
f01 = 0x65 + 0x30 + 0x31 = 198
数値化した値で降順ソート
つまり
格納されてるファイル名を文字ではなく文字コードの数値合計でソート
| - くだすれDelphi(超初心者用)その57 [無断転載禁止]©2ch.net
758 ：デフォルトの名無しさん[sage]：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]);
適当処理
|
|