From f37398b8652a2942e556577e11f2e1abea0aff08 Mon Sep 17 00:00:00 2001 From: mizu Date: Wed, 16 Jan 2013 01:32:58 +0000 Subject: [PATCH] git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/TwlToolsRED@586 7061adef-622a-194b-ae81-725974e89856 --- build/tools/A9Ovl_Chk/a9ovlchk.exe | Bin 492544 -> 493056 bytes build/tools/A9Ovl_Chk/main.dcu | Bin 10445 -> 10994 bytes build/tools/A9Ovl_Chk/main.pas | 50 ++++++++++++------ build/tools/A9Ovl_Chk/main.~pas | 80 +++++++++++++++++++---------- 4 files changed, 88 insertions(+), 42 deletions(-) diff --git a/build/tools/A9Ovl_Chk/a9ovlchk.exe b/build/tools/A9Ovl_Chk/a9ovlchk.exe index 242ba71543b44fc3ba7732bcfc384fcf9d6f636c..2de45a3a8554b80b1374a8ece17996893b050a7d 100755 GIT binary patch delta 4160 zcmZu!4OA4@6@JUltoQ?~k(Q=tsHq7*{%pYtvJ|amIHV;U60+8q`qQd$K?10|#@4_r z!7;4kC>80{)Y^FJIn^}vaB?)@ie_;+h8pW3xJ@w-&mKeUP^oSktGjgL^xiiELp-w{ zX5PKu{qDQ>dv9i*?xxx9eY4wUnWi}zLJ~~`e}OkzGEKjXDRKSkJE<)fO@)(Fw*zPa z#Mv@ACd;(5WpT{Yru{8z>2(iW-)lJ)^K{005H;bqjF7Sg+cs6zY#^k>1%Sm&$PT!l zZg~it%$CyFClW&7!{469(%3gkV@>cE1AjPS4->)q1tUSZ0)Hb`Cx|DJV4 z%2)nG2#fs2hl(O37w=j|%uY#DQ}W zMdVAQ*EchBxp`x0hojJaj?cr6h`bDm&K4k&oPHh>{0I|JuP9>0-lfopoSr(W@V+Fz z1Brch$6;D{_D0W~2YeMo;UXm+*bJz^*CMMJi@6WEl6F6@c{y;ui0&YD+w@>s`DN;z z3tojC@vetJC>(pRe;QHbv@U3bjS3>oz7NwJ`vhB!YEcU@YSf4A4na$5pw`oC7}?69 zU*uE1f}E?p5#?AX$a)Fn#@(m+_g;W3ubzp}W>a8aiEOA$Y`upftBX-j`y&GxJ6{RNQsrqy*fXRh z@@N3$n+wB+x&VPv>b}{5w=6aw*ax$&36~E)h?!3 z%uaIy+fCr{X{_rft`vd2;$eG4_MSHlrk2lr4EYa082FK@GJAwj!!0E9_mg&~!@Ys+ z!4!@HT5dosS9%P~MZ-}7e#ns1_X6ySUJhIx*s`2VJL<)dpH2+9G9K|IO@g+gibnJl zt66%+Lwacl+KTHQDwBYzZ^CZScS{tuviu<^?$}vZ#DS#U5Dt?5cLv%S|o{TVFy`n!S&CbkC#CN_X8aU3R*7xhMz+fyhbfQuPy ztP7H){ZHcBxPo1`5;XBUutvW;i`IySCVr19+iCD{s`$U9A?VP=*FxIBqelFKMxd>U z->r%N?s&*b8iMvj@g02=#eV~yDfzihReaE%I|1QPRE_>&E1gsb)hfl;=8=_{ylF*tj)=NqjB{r#;fAAx>a@ zR3QF0kXfDqlL#UXMg9m}y*^xmG@POpZH@RRc>3fW_^oJd2Cu*dk?G`FRkfqdV#dpYf8E-bg)i3lrPbBU z&*SC*Tk5K2=18}ynfIlR8pa_VsbNy3v|1)L0l)7X9Gf<5kuqwTQ=ApfKH9mZk)B&D z%E17Hz_Uc0jyl; z$D@|bJyx=4j|z=ZURY2`zG z6P9c_;21{>8T~M##QBHAUDBRy%=ftjtr9HZ0A^>2e9|L|To z?%WQq@e97j`50=#ZZOBdc#d(#P0CoMF@6AQjDW{kwTwJd)tkl zjQbr^vE)fJ-+i@m@zCOwTx;$Nxz1c~ZeQ-*Tyx%*yn}h~ znVY{Z|8V}r{Ezd4`FHalw`JJ!Y^=>=Yqwpq9VqN7{HXA=!f@g2rB|1RmJ&BZQsFI^ zV9l^{R>6AEdffWH)o=Yo>PjV9ku`cMz~eSFBsuvI)29puhsF{^9|~2*74Fu zajdIN$Lo#oUL8MWgokweh7oR=jI+>vm$=}O`p|FH@j@fKOvkH@@LC-|YJ@lI_*Emk qO~)TTiqrkC;|mr(Qa|D$9bapNTc%)_>T_p=TgUPC3k%K5U;IC{bv<_g delta 3672 zcmZuz4Nwzz7T*xq0BQ&#XnQFlqV@Qal&b`ln8SvCDHFtawH{PYYD3SH4->yh@WLv% zuBF4!t^MG1+MDsdyi7*~B4TKAl(U={lwPUFIdt@97UjI$48??_?7g>%Ea&WI^56e^ zzxR9p_ul_&>rW@wHzqruku9ht2|_6&@KGOcNtYdo&|2SJrf&IMri-np0Z;`1e)0%e4BZc>etQ zPe3NP6;^OSp@wOlfR=MVGsV+FmoWsojsc7N&DTMmHU*dkl<~h{@y?YX&rnA8*jwZZ z`{~DS$96!)a@|daafTWPM_nHwlDO(BICupe2wH~0h+P{X5pI=wil^Lh)M6ywG?@d3 zG4SUqno=K8)nJ8_6!%VF6r?~|kaYornFL>P4bHIE4(dy&9u?Fdh{i(X*9C0@XnDi9 z%MFGQIObrw9pt%`UP#0+O*4XbKe{>pH%xUpY_%G#rrek=2PuUN!#N#9%T_z;8A|;< z_excb8SQ$6727wthI*@KawH~5WAYXFP%nrL(Guvbu#>U&rMKu{laEWlxu*$c|So`y^H1$meckbU&KR{D@ z;O5@kVx&F2qw=%z$h3s5X^{?ZH0=vlGx;iJ1qC$ux}wGE@m)goqAgjxHDESFv`p&= z1WJ22{UUg`qkz?bkO=O(At-E@jIa~*<{`Q_!{CD;MrrG4@57i!hEX0WY>^eotlr~w z!vxg7E~yh=8HQonG?HZ%2nc#}KjpS2(gq)d&lo0L4OpnlgF*hmigkT; z>I^?^^2vQorU98@81Zw6zlV5~%xWLbounq?&a8w1>Av347>L5$Ed)Ot3Z6>9;88FS zfSxuCV0D<*A<%SU{+wJ$4`uVnTnpc<#kYbFl+ELUMSsZ0z!YqskdteI$pDz})(I?A z47whKMI$b%2e9I~%TRuEK!~s(tf9R37Q(w71tCI)@j}-H)q-G0xpcuXs?5=F?lG-y z=pyh3q}kh1G%rE~2F3G}EBn7eahq|4Feq?j22N(Zw~^lrhsGf6xOHVCan$#~39r5% z2xeX(IjR#JbBAFNn!zqZbwle)gORwCH*p!GY!5RR;wb;<#%3nQg$dbCp1K)NzC@4hwJy zEp2~=#gTzx1Bz8Bs!?o4aVLrkP&|iX35emHk=ikLw)7a-Jn&9Gc616Nu*9J#409Aj zyH)UX2|Y!FC*C@3_JRO=2-m8xSA4Km=iVf=X(Duw2$v6cJV`jk8x})mx$f7uZ?9-l znRz(MLzfdr0qz-F*AG$uE1da}%iytW9IRgnnHz_Dl?L<_c2_mIEHXWXAlP44lb6|ZHKdx=){thl z8+#KqezQ{$)`+{-@$bIsY%;<+A-(0Y_1F6mga8gF{S|B$Ng#n1PF)A0BQ`= zq3UdbP#?rolUT@U*9bt|8(*?~Ex9z&F4zTJaKsVZ)$17a6)&5+pKMG#{70VmnCNl5 z%uDHEytW-S*0-Nrvh5`!tRB;Jr*LsD2Nvy^##_AcBWQ8j--mAm&NTo4MCBl0j<`)j zb83GIaI_PK{p`;;tkc8lEadab-ix7OalHT7*y9#5sWb~LX6G#cT+djc2XYFOd1$vI zEAwg*A;VCSv)ump(_)s94l2)>D$FQ=RDWdexNjkE%hIR8nH&E2M1mPOad`cmnb75i z?!#Rf{si&vWFHeM~_@ z!HNQX!JdL7omN+(tI>U-yQRCW8`sU~=50u3zf~$0v%V>EAv+VVNMiTSS7b!hlf*fK zZJVzsWJkuxY_>a9p;j)@EZ1ad)@n9rUeuImI=D22I;y2wz9?ewRhCRw6ytkax}pf* zZRv_0e3xe^lAa!XHK!13f!Fuv^NISMQA9n;fS<`w*w9XysaT2cHJKs4EprYJnelM0 z`of=?V0TdpfBYE=_#G)+h1W)CTxFJo{~Qt5N#RBj-zSAvi+Gz9-Ynubq;RK*&q(1u z5zo$+h~F>bXQc2P5$}=0jUxU~3a=LNLW2RxzuPIx3IN!4ZCVBEALp?eGT>Y+QOg3s^r`qrZkNuVSmj|N5j7TwP}6}yT@4% zi%v^oz3shikq7M-y`#ZltBW#cE$UjEqqg9rMeS&4tTi3CsCPK(YfWvIL|a`n&eYuT zYjP&5K2^3}TwDAHTNaKdqJYXem)aQUe=v&!> z+8W~TSYR36PmNT314uQ zjuHD7SX{GQ@D4(@QvZj1s^Sh6kP`R+j6PPU+yXD+Ic1_{DPIm5S|%174&7$)Ts_u) z9Q<9uI1e|77bFOS*pRN%pH?$WnTNYn`a9*Ck){QmI2CdI)H+ynlU_gdVA8`4jKpC_ z1C;BdeeOS93|uphwfjp6EOsQgxo!sDoR+2m#+gpJUJutJaO1vb6f=g8K^X8T4Jmu* znEN)0`F{+p1u(n09!z1cklXE#Z5M%kJMfU9^u`9b5q;v#jI@Nt5GCHt$aLA8WzbU| z3g`hzCt4ETF=EL%j+=%}yZR zw)4Qm+J@L3vN;^lJ}Uw-cn|d{*Bv(h>sc{~pWOVj5FKd|LD>AyVfm=}$e{V)z3U9B z6!Q^0k@+fTQ1)!-W$Cp`27dRHB(2^$XyBg(-(p@}%K2q~_>+)WK6xtOQs7U+=6m@ZPRf0!NAvRz#o~;g$&03vU6gQ*g|;`D4CmX>2Bk z0b!($Q;&(8l|+(r%6>diOfVO0!yiL=C-6JidSC*-g5TV{x!RLrKd-^FiaftE3~n+b zcVc!$w~j`lV;+#o}f2b~YPGab?zgu`G*K{?&zrh2kq&--;QF z?BaBmS#&QlYw|W3^`O}1n zXA27|0j3eAK&uA0ys!qKi7OcsuAb_q_W*c0U*5>T1M6$PfHSIOQK%~f(PZRRRjXM~l_ Z2rI7%R`)Vzz980xGXmkW#RCN!{{yjAKVtv@ delta 2328 zcmZuxZ%i9y7{7b(=voF8p)F%8?1ublV6r(fGcu!7b4D|!Wn10Q&83so(~JS5jr%a{ z44hhDPnVoEn6ZwtKZX!GkX;i+2!f4sR#a#jAO?#U@V>@o#~Rc%LJb2lGvvzYV(f6UX= z<}&pOtDBrB4y862A=};Tb{oAlxtwm7?VP~5n_FC#GXi(m-Q=>I7FIitF6UX^ z@4k_(mYA{BA@3bHw{C^!z6LKku2}^U^*VQ)Fo|9;arUC5lT;&>`9hE*#=wMRva^`8b+f^x)^ zY}x+LQidYi)tlxr@3~~v=~r}kyic4}SD4NV`tYA>jipvnf`1!In}tavlH03I2*VQ ziO_d)1g!x@yiXOaI%x*PnyW+LHVe(C@u^|o;(-_E z?212zChh-kT1Wfbes>=D9xx@lncl4_Vu8&`=0~k|FX~UJ-hz@%t6-w{?Ku>Fp$Ddm z1?pDlcr{!gcvraKk3hAW;0LlL=?+zpQsgOE15&aE^&@`ZnB`-sTn808V(X3XiX8r~ zKF0(ugP~}KPn^UH5`{%=UX$tF3fFRnPYl-liu5RzcYw6!+HN}?2t~NF9ABEhx0LS~ z)YEX9m705wa6hz^?l4%VcRv#M#H5q3qxdJGPdX5VBqrXA09}QS68CPppJluZ-F2OY zs>Cof5uu()=nunPF%k!R-R!fhXYif&2?oq>xAbAC5+|r*vg((5dgbih`Gy$+P460( zgB~*#!_dAW-VU5e`ZQCveW=}9HAfv`F6?uRvf>2p_oVhSSdVw2=8k;F_)$3=NQXiZ z19TyUwdN<%n@1o;fT!Xpx}*571JegYVwQL>VrectBfKI5vBVg##&Dv>=sopPVV>H$ z&b;C-NLi4k_=iD}@(+R5f}#w|PBSj8lG{kr&+%x5hLeTjp8L`S0C-36E~efEHBe+Z zgr8+?HuxfU7Qh@e!Iv8v8hyD^zV_8j?GH@Dsm#o+v^nX)*;IC;mW}oVOpurGU6#~M z#ntM8VrNDvkb)X2F5v`*QGYM~L1hK2dUm~}775mFhj5v&h22FDFR<)YbzRxolE+vd z$t3k;8^pEbiUmS7xtbo-7t0Fu$njFZ>%p(?ZQk|_> zPi`30Y+D8EP`BC|szY2W$s|OR&T8BzG&Oc z+6M->KM6ya5cfBR5pEvC7{_uDIxce=7!7Z_HOM@Ptfj((h6Ff!w0%(ysCHsr$7k=(@*@;xrSx%v^(WM2G=^qUtI!dlhOEBE~i Dnp%T< diff --git a/build/tools/A9Ovl_Chk/main.pas b/build/tools/A9Ovl_Chk/main.pas index 1d7de00..c787cf0 100644 --- a/build/tools/A9Ovl_Chk/main.pas +++ b/build/tools/A9Ovl_Chk/main.pas @@ -101,7 +101,7 @@ begin {$I-} //ログファイル作成 ListBox_log.Items.Add('Create Log file'); - s := 'log.txt'; + s := ExtractFilePath(Application.Exename)+'log.txt'; AssignFile (flog,s); Rewrite(flog); if IOResult <> 0 then begin @@ -119,8 +119,8 @@ begin (Rec.Name <> '.') and (Rec.Name <> '..') and (Rec.name<>'log.txt')then begin Inc(Count); - //ListBox_log.Items.Add(' ********************************** '); - Writeln(flog,' ********************************** '); + //ListBox_log.Items.Add('**********************************'); + Writeln(flog,'**********************************'); sf := 'file: '+Rec.Name; //ListBox_log.Items.Add(sf); Writeln(flog,sf); @@ -166,22 +166,39 @@ begin s := s+'Cannot read fat id='+ inttostr(i); break; end; - size := (fat.bottom - fat.top)+1; - sectors := size shr 9;//div 512 - if (size and $1ff) <>0 then inc(sectors); - size := sectors shl 9; - inc(all_sectors,sectors); //max_sectors = (DHT_OVERLAY_MAX/512 - total_sectors) / (nums-i); if (total_sectors < 1024)then max_sectors := (1024 - total_sectors) div (nums-i) else max_sectors := 0; - btm := fat.bottom; + btm := fat.bottom and $fffffe00; //512単位 + if (fat.bottom and $1ff)<>0 then inc(btm,512);//上方向に丸める if max_sectors = 0 then begin//残検証サイズなければ丸ごと検証外 top := fat.top; ss := '(A9 Overlay の全部)'; end else begin + top := fat.top and $fffffe00; //512単位 + size := fat.top and $01ff; + if size<>0 then begin + inc(top,512);////上方向に丸める + //先頭の未検証部分 .. 不要？ + s := 'offset'+inttostr(i)+' = 0x'+ inttohex(fat.top,8) + +' ; 0x'+ inttohex(fat.top,8) + +'-0x' + inttohex(top-1,8)+ss; + //ListBox_log.Items.Add(s); + Writeln(flog,s); + s := 'length'+ inttostr(i) + ' = 0x' + inttohex(size,4) + + ' ; '+ inttostr(size)+' bytes'; + //ListBox_log.Items.Add(s); + Writeln(flog,s); + inc(noc_size,512); + inc(noc_sectors,1); + inc(all_sectors,1); + end; + size := btm - top; + sectors := size shr 9;//div 512 + inc(all_sectors,sectors); if sectors > max_sectors then begin //最大割当サイズ超 - sectors := sectors - max_sectors;//検証されないセクタ数 - top := fat.top + max_sectors; + sectors := sectors - max_sectors;//残りセクタ数 + inc(top,max_sectors*512);//残り先頭 inc(total_sectors,max_sectors); ss := '(A9 Overlay の一部)'; end else begin //超過なし @@ -189,11 +206,11 @@ begin sectors := 0; end; end; - if sectors > 0 then begin + if sectors > 0 then begin//残りあり size := sectors shl 9; s := 'offset'+inttostr(i)+' = 0x'+ inttohex(top,8) +' ; 0x'+ inttohex(top,8) - +'-0x' + inttohex(btm,8)+ss; + +'-0x' + inttohex(btm-1,8)+ss; //ListBox_log.Items.Add(s); Writeln(flog,s); s := 'length'+ inttostr(i) + ' = 0x' + inttohex(size,4) @@ -205,12 +222,13 @@ begin end; end; if i = nums then begin //中断なし + //ListBox_log.Items.Add(' '); //ListBox_log.Items.Add('total sectors = '+inttostr(all_sectors)); //ListBox_log.Items.Add('no check sectors = '+inttostr(noc_sectors)); //ListBox_log.Items.Add('no check size = '+inttostr(noc_size)); - //ListBox_log.Items.Add(' '); //間をあける - Writeln(flog); //開業 + Writeln(flog); //改行 Writeln(flog,'total sectors = '+inttostr(all_sectors)); + Writeln(flog,'check sectors = '+inttostr(total_sectors)); Writeln(flog,'no check sectors = '+inttostr(noc_sectors)); Writeln(flog,'no check size = '+inttostr(noc_size)); if noc_size > 0 then s:= 'NG' @@ -224,7 +242,7 @@ begin if (s='OK') or (s='NG') then s := 'done'; ss := sf + ' : ' + s; ListBox_log.Items.Add(ss); - end; + end; until (FindNext(Rec) <> 0); finally FindClose(Rec); diff --git a/build/tools/A9Ovl_Chk/main.~pas b/build/tools/A9Ovl_Chk/main.~pas index 052e86e..1d7de00 100644 --- a/build/tools/A9Ovl_Chk/main.~pas +++ b/build/tools/A9Ovl_Chk/main.~pas @@ -88,9 +88,10 @@ implementation function TForm1.CheckSrlHeader: integer; var Rec: TSearchRec; - s,ss: String; + sf,s,ss: String; i,n,Count: integer; fsrl: file; + flog:TextFile; romh: TRomh; noc_size,noc_sectors,size,sectors,nums,max_sectors,total_sectors: integer; fat: TRom_Fat; @@ -98,26 +99,38 @@ var begin {$I-} - Count :=0; - //指定ディレクトリからファイルを取り出す - // ** 内容で判別しないので違うファイル置かないよう注意 ** - if FindFirst(SrlDir + '*.*', faAnyFile, Rec) = 0 then - try + //ログファイル作成 + ListBox_log.Items.Add('Create Log file'); + s := 'log.txt'; + AssignFile (flog,s); + Rewrite(flog); + if IOResult <> 0 then begin + Count := -1; + ListBox_log.Items.Add('faild') + end else begin + Count := 0; + //指定ディレクトリからファイルを取り出す + // ** 内容で判別しないので違うファイル置かないよう注意 ** + if FindFirst(SrlDir + '*.*', faAnyFile, Rec) = 0 then + try repeat //フォルダやカレントディレクトリや親ディレクトリは対象外 if not((Rec.Attr and faDirectory > 0)) and - (Rec.Name <> '.') and (Rec.Name <> '..') then + (Rec.Name <> '.') and (Rec.Name <> '..') and (Rec.name<>'log.txt')then begin Inc(Count); - ListBox_log.Items.Add(' ********************************** '); - ListBox_log.Items.Add('file: '+Rec.Name); + //ListBox_log.Items.Add(' ********************************** '); + Writeln(flog,' ********************************** '); + sf := 'file: '+Rec.Name; + //ListBox_log.Items.Add(sf); + Writeln(flog,sf); AssignFile (fsrl,SrlDir+Rec.Name); FileMode := fmOpenRead;//リード専用指定 Reset(fsrl,1);//ファイル開く if IOResult = 0 then begin BlockRead(fsrl,romh,SizeOf(TRomh),n);//ヘッダリード if SizeOf(TRomh) <> n then - s := ' file error' + s := ' header read error' else begin //SetLength(s,12); s := '[ ( )]'; @@ -126,12 +139,16 @@ begin s[i+1] := romh.title[i]; end; s[15] := romh.game_code[4];//idの４文字目(仕向地) - ListBox_log.Items.Add(s); //title + //ListBox_log.Items.Add(s); //title + Writeln(flog,s); s := 'game_code = '; for i:=1 to 4 do s[12+i] := romh.game_code[i]; - ListBox_log.Items.Add(s); //game code - ListBox_log.Items.Add('version = '+inttostr(romh.rom_version)); - ListBox_log.Items.Add(' '); //間をあける + //ListBox_log.Items.Add(s); //game code + //ListBox_log.Items.Add('version = '+inttostr(romh.rom_version)); + //ListBox_log.Items.Add(' '); + Writeln(flog,s); + Writeln(flog,'version = '+inttostr(romh.rom_version)); + Writeln(flog);//改行 //オーバレイチェック if romh.main_ovt_size >31 then begin @@ -177,19 +194,25 @@ begin s := 'offset'+inttostr(i)+' = 0x'+ inttohex(top,8) +' ; 0x'+ inttohex(top,8) +'-0x' + inttohex(btm,8)+ss; - ListBox_log.Items.Add(s); + //ListBox_log.Items.Add(s); + Writeln(flog,s); s := 'length'+ inttostr(i) + ' = 0x' + inttohex(size,4) + ' ; '+ inttostr(size)+' bytes'; - ListBox_log.Items.Add(s); + //ListBox_log.Items.Add(s); + Writeln(flog,s); inc(noc_size,size); inc(noc_sectors,sectors); end; end; if i = nums then begin //中断なし - ListBox_log.Items.Add('total sectors = '+inttostr(all_sectors)); - ListBox_log.Items.Add('no check sectors = '+inttostr(noc_sectors)); - ListBox_log.Items.Add('no check size = '+inttostr(noc_size)); - ListBox_log.Items.Add(' '); //間をあける + //ListBox_log.Items.Add('total sectors = '+inttostr(all_sectors)); + //ListBox_log.Items.Add('no check sectors = '+inttostr(noc_sectors)); + //ListBox_log.Items.Add('no check size = '+inttostr(noc_size)); + //ListBox_log.Items.Add(' '); //間をあける + Writeln(flog); //開業 + Writeln(flog,'total sectors = '+inttostr(all_sectors)); + Writeln(flog,'no check sectors = '+inttostr(noc_sectors)); + Writeln(flog,'no check size = '+inttostr(noc_size)); if noc_size > 0 then s:= 'NG' else s:= 'OK'; end; @@ -197,12 +220,16 @@ begin end; end else s := ' Open Error'; CloseFile(fsrl); - ListBox_log.Items.Add(s); - + Writeln(flog,s);//結果 + if (s='OK') or (s='NG') then s := 'done'; + ss := sf + ' : ' + s; + ListBox_log.Items.Add(ss); end; until (FindNext(Rec) <> 0); - finally + finally FindClose(Rec); + end; + CloseFile(flog); end; {$I+} Result :=Count; @@ -213,15 +240,16 @@ end; procedure TForm1.Button1Click(Sender: TObject); var FileCount :integer; + s :string; begin ListBox_log.Clear; //指定ディレクトリのsrlファイルをチェック FileCount := CheckSrlHeader; if FileCount>0 then begin ListBox_log.Items.Add(' ------------------------------ '); - ListBox_log.Items.Add('total '+inttostr(FileCount)+' files'); - end else - ListBox_log.Items.Add(' file not ditect'); + s := 'total '+inttostr(FileCount)+' files'; + end else if FileCount = 0 then s := ' file not ditect' ; + ListBox_log.Items.Add(s); end;