mirror of
https://github.com/rvtr/TwlToolsRED.git
synced 2025-10-31 06:41:18 -04:00
git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/TwlToolsRED@588 7061adef-622a-194b-ae81-725974e89856
This commit is contained in:
mizu
parent
f1e889c718
commit
87990050bc
Binary file not shown.
Binary file not shown.
@ -1,9 +1,9 @@
|
||||
object Form1: TForm1
|
||||
Left = 310
|
||||
Top = 126
|
||||
Width = 574
|
||||
Height = 259
|
||||
Caption = 'Form1'
|
||||
Left = 301
|
||||
Top = 145
|
||||
Width = 555
|
||||
Height = 278
|
||||
Caption = 'find areas not validated in A9_overlay'
|
||||
Color = clBtnFace
|
||||
Font.Charset = SHIFTJIS_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -23,8 +23,8 @@ object Form1: TForm1
|
||||
TabOrder = 0
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 48
|
||||
Top = 168
|
||||
Left = 16
|
||||
Top = 160
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = #38283#22987
|
||||
@ -32,16 +32,16 @@ object Form1: TForm1
|
||||
OnClick = Button1Click
|
||||
end
|
||||
object DriveBox: TDriveComboBox
|
||||
Left = 392
|
||||
Top = 40
|
||||
Left = 384
|
||||
Top = 72
|
||||
Width = 145
|
||||
Height = 18
|
||||
TabOrder = 2
|
||||
OnChange = DriveBoxChange
|
||||
end
|
||||
object DirListBox: TDirectoryListBox
|
||||
Left = 392
|
||||
Top = 64
|
||||
Left = 384
|
||||
Top = 96
|
||||
Width = 145
|
||||
Height = 97
|
||||
ItemHeight = 16
|
||||
@ -51,36 +51,37 @@ object Form1: TForm1
|
||||
object StatusBar: TStatusBar
|
||||
Left = 0
|
||||
Top = 210
|
||||
Width = 566
|
||||
Width = 547
|
||||
Height = 19
|
||||
Panels = <>
|
||||
SimplePanel = True
|
||||
end
|
||||
object StaticText1: TStaticText
|
||||
Left = 184
|
||||
Top = 176
|
||||
Width = 283
|
||||
object StaticText3: TStaticText
|
||||
Left = 104
|
||||
Top = 168
|
||||
Width = 246
|
||||
Height = 16
|
||||
Caption = #65288#27880#24847#65289#12525#12464#12399#23455#34892#12501#12449#12452#12523#12398#12354#12427#12487#12451#12524#12463#12488#12522#12395#20986#12375#12414#12377
|
||||
Caption = #65288#27880#24847#65289#25351#23450#12487#12451#12524#12463#12488#12522#12395'srl'#20197#22806#12399#32622#12363#12394#12356#12371#12392
|
||||
TabOrder = 5
|
||||
end
|
||||
object StaticText2: TStaticText
|
||||
Left = 416
|
||||
Top = 16
|
||||
Width = 95
|
||||
Height = 16
|
||||
BevelInner = bvLowered
|
||||
BevelOuter = bvRaised
|
||||
BorderStyle = sbsSingle
|
||||
Caption = 'srl'#12288#12398#22580#25152#12434#25351#23450
|
||||
object RG_select: TRadioGroup
|
||||
Left = 408
|
||||
Top = 8
|
||||
Width = 113
|
||||
Height = 57
|
||||
Caption = #12497#12473#25351#23450
|
||||
ItemIndex = 1
|
||||
Items.Strings = (
|
||||
'srl '#26684#32013#22580#25152
|
||||
#12525#12464#12288#20986#21147#20808)
|
||||
TabOrder = 6
|
||||
end
|
||||
object StaticText3: TStaticText
|
||||
Left = 184
|
||||
Top = 192
|
||||
Width = 254
|
||||
Height = 16
|
||||
Caption = #65288#27880#24847#65298#65289#25351#23450#12487#12451#12524#12463#12488#12522#12395'srl'#20197#22806#12399#32622#12363#12394#12356#12371#12392
|
||||
TabOrder = 7
|
||||
object StatusBar1: TStatusBar
|
||||
Left = 0
|
||||
Top = 229
|
||||
Width = 547
|
||||
Height = 19
|
||||
Panels = <>
|
||||
SimplePanel = True
|
||||
end
|
||||
end
|
||||
|
||||
@ -4,7 +4,7 @@ interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, FileCtrl, ComCtrls, ShellCtrls;
|
||||
Dialogs, StdCtrls, FileCtrl, ComCtrls, ShellCtrls, ExtCtrls;
|
||||
|
||||
type
|
||||
TForm1 = class(TForm)
|
||||
@ -13,9 +13,9 @@ type
|
||||
DriveBox: TDriveComboBox;
|
||||
DirListBox: TDirectoryListBox;
|
||||
StatusBar: TStatusBar;
|
||||
StaticText1: TStaticText;
|
||||
StaticText2: TStaticText;
|
||||
StaticText3: TStaticText;
|
||||
RG_select: TRadioGroup;
|
||||
StatusBar1: TStatusBar;
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure DriveBoxChange(Sender: TObject);
|
||||
procedure DirListBoxChange(Sender: TObject);
|
||||
@ -81,7 +81,8 @@ type
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
SrlDir: String;//srlファイルの存在するディレクトリ名
|
||||
LogDir,SrlDir: String;//ディレクトリパス
|
||||
ng_all: longword;//総NGエントリ数
|
||||
|
||||
implementation
|
||||
|
||||
@ -89,19 +90,21 @@ function TForm1.CheckSrlHeader: integer;
|
||||
var
|
||||
Rec: TSearchRec;
|
||||
sf,s,ss: String;
|
||||
i,n,Count,err_count: integer;
|
||||
i,n,Count,err_files,ng_entry: integer;
|
||||
fsrl: file;
|
||||
flog:TextFile;
|
||||
romh: TRomh;
|
||||
noc_size,noc_sectors,size,sectors,nums,max_sectors,total_sectors: integer;
|
||||
fat: TRom_Fat;
|
||||
top,btm,all_sectors: Longword;
|
||||
ng_flg:boolean;
|
||||
|
||||
begin
|
||||
{$I-}
|
||||
//ログファイル作成
|
||||
ListBox_log.Items.Add('Create Log file');
|
||||
s := ExtractFilePath(Application.Exename)+'log.txt';
|
||||
//s := ExtractFilePath(Application.Exename)+'log.txt';
|
||||
s := LogDir+'log.txt';
|
||||
AssignFile (flog,s);
|
||||
Rewrite(flog);
|
||||
if IOResult <> 0 then begin
|
||||
@ -109,7 +112,8 @@ begin
|
||||
ListBox_log.Items.Add('faild')
|
||||
end else begin
|
||||
Count := 0;
|
||||
err_count := 0;
|
||||
err_files := 0;
|
||||
ng_all := 0;
|
||||
//指定ディレクトリからファイルを取り出す
|
||||
// ** 内容で判別しないので違うファイル置かないよう注意 **
|
||||
if FindFirst(SrlDir + '*.*', faAnyFile, Rec) = 0 then
|
||||
@ -153,6 +157,7 @@ begin
|
||||
//オーバレイチェック
|
||||
if romh.main_ovt_size >31 then begin
|
||||
//DHT_OVERLAY_MAX (512*1024)
|
||||
ng_entry := 0;
|
||||
total_sectors := 0;
|
||||
all_sectors := 0;
|
||||
nums := romh.main_ovt_size div 32;//Ovl count
|
||||
@ -166,6 +171,8 @@ begin
|
||||
s := 'file error';
|
||||
break;
|
||||
end;
|
||||
ng_flg:=false;
|
||||
ss := '(A9 Overlay'+inttostr(i);
|
||||
//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;
|
||||
@ -175,8 +182,10 @@ begin
|
||||
top := fat.top;
|
||||
sectors := (btm-top) shr 9;//div 512
|
||||
if (top and $1ff)<>0 then inc(sectors);
|
||||
ss := '(A9 Overlay の全部)';
|
||||
ss := ss+' の全部)';
|
||||
ng_flg:=true;
|
||||
end else begin
|
||||
ss := ss+' の一部)';
|
||||
top := fat.top and $fffffe00; //512単位
|
||||
size := fat.top and $01ff;
|
||||
if size<>0 then begin
|
||||
@ -194,6 +203,7 @@ begin
|
||||
inc(noc_size,512);
|
||||
inc(noc_sectors);
|
||||
inc(all_sectors);
|
||||
ng_flg:=true;
|
||||
end;
|
||||
size := btm - top;
|
||||
sectors := size shr 9;//div 512
|
||||
@ -202,7 +212,7 @@ begin
|
||||
sectors := sectors - max_sectors;//残りセクタ数
|
||||
inc(top,max_sectors*512);//残り先頭
|
||||
inc(total_sectors,max_sectors);
|
||||
ss := '(A9 Overlay の一部)';
|
||||
ng_flg:=true;
|
||||
end else begin //超過なし
|
||||
inc(total_sectors,sectors);
|
||||
sectors := 0;
|
||||
@ -222,6 +232,7 @@ begin
|
||||
inc(noc_size,size);
|
||||
inc(noc_sectors,sectors);
|
||||
end;
|
||||
if ng_flg then inc(ng_entry);
|
||||
end;
|
||||
if i = nums then begin //中断なし
|
||||
//ListBox_log.Items.Add(' ');
|
||||
@ -233,7 +244,7 @@ begin
|
||||
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'
|
||||
if noc_size <> 0 then s:= 'NG'
|
||||
else s:= 'OK';
|
||||
end;
|
||||
end else s := 'no OVL';
|
||||
@ -242,9 +253,12 @@ begin
|
||||
CloseFile(fsrl);
|
||||
Writeln(flog,s);//結果
|
||||
if (s='OK') or (s='NG') then begin
|
||||
s := 'done';
|
||||
if s = 'NG' then begin
|
||||
s := 'done, '+ inttostr(ng_entry) + ' enties NG';
|
||||
inc(ng_all,ng_entry);
|
||||
end else s := 'done, OK';
|
||||
Inc(Count);
|
||||
end else inc(err_count);
|
||||
end else inc(err_files);
|
||||
ss := sf + ' : ' + s;
|
||||
ListBox_log.Items.Add(ss);
|
||||
end;
|
||||
@ -254,7 +268,7 @@ begin
|
||||
end;
|
||||
Writeln(flog,'********************************');
|
||||
Writeln(flog,'check files = '+ inttostr(Count));
|
||||
Writeln(flog,'error = '+ inttostr(err_count));
|
||||
Writeln(flog,'error files = '+ inttostr(err_files));
|
||||
|
||||
CloseFile(flog);
|
||||
end;
|
||||
@ -274,7 +288,8 @@ begin
|
||||
FileCount := CheckSrlHeader;
|
||||
if FileCount>=0 then begin
|
||||
ListBox_log.Items.Add(' ------------------------------ ');
|
||||
s := ' '+inttostr(FileCount)+' files done';
|
||||
s := ' '+inttostr(FileCount)+' files done, '
|
||||
+ inttostr(ng_all)+' entries NG';
|
||||
ListBox_log.Items.Add(s);
|
||||
end;
|
||||
end;
|
||||
@ -288,15 +303,22 @@ end;
|
||||
|
||||
procedure TForm1.DirListBoxChange(Sender: TObject);
|
||||
begin
|
||||
SrlDir := IncludeTrailingPathDelimiter(DirListBox.Directory);
|
||||
StatusBar.SimpleText := '[Target Dir] ' + DirListBox.Directory;
|
||||
if RG_select.ItemIndex = 0 then begin
|
||||
SrlDir := IncludeTrailingPathDelimiter(DirListBox.Directory);
|
||||
StatusBar.SimpleText := '[srl dir] ' + DirListBox.Directory;
|
||||
end else begin
|
||||
LogDir := IncludeTrailingPathDelimiter(DirListBox.Directory);
|
||||
StatusBar1.SimpleText := '[log dir] ' + DirListBox.Directory;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
begin
|
||||
//イベント利用してSrlDirNameとステータスバーの設定
|
||||
DirListBox.Drive := DriveBox.Drive;
|
||||
SrlDir := IncludeTrailingPathDelimiter(DirListBox.Directory);
|
||||
StatusBar.SimpleText := '[srl dir] ' + DirListBox.Directory;
|
||||
LogDir := IncludeTrailingPathDelimiter(DirListBox.Directory);
|
||||
StatusBar1.SimpleText := '[log dir] ' + DirListBox.Directory;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
|
||||
@ -1,9 +1,9 @@
|
||||
object Form1: TForm1
|
||||
Left = 310
|
||||
Top = 126
|
||||
Width = 574
|
||||
Height = 259
|
||||
Caption = 'Form1'
|
||||
Left = 301
|
||||
Top = 145
|
||||
Width = 555
|
||||
Height = 278
|
||||
Caption = 'find areas not validated in A9_overlay'
|
||||
Color = clBtnFace
|
||||
Font.Charset = SHIFTJIS_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -23,8 +23,8 @@ object Form1: TForm1
|
||||
TabOrder = 0
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 48
|
||||
Top = 168
|
||||
Left = 16
|
||||
Top = 160
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = #38283#22987
|
||||
@ -32,16 +32,16 @@ object Form1: TForm1
|
||||
OnClick = Button1Click
|
||||
end
|
||||
object DriveBox: TDriveComboBox
|
||||
Left = 392
|
||||
Top = 40
|
||||
Left = 384
|
||||
Top = 72
|
||||
Width = 145
|
||||
Height = 18
|
||||
TabOrder = 2
|
||||
OnChange = DriveBoxChange
|
||||
end
|
||||
object DirListBox: TDirectoryListBox
|
||||
Left = 392
|
||||
Top = 64
|
||||
Left = 384
|
||||
Top = 96
|
||||
Width = 145
|
||||
Height = 97
|
||||
ItemHeight = 16
|
||||
@ -51,36 +51,37 @@ object Form1: TForm1
|
||||
object StatusBar: TStatusBar
|
||||
Left = 0
|
||||
Top = 210
|
||||
Width = 566
|
||||
Width = 547
|
||||
Height = 19
|
||||
Panels = <>
|
||||
SimplePanel = True
|
||||
end
|
||||
object StaticText1: TStaticText
|
||||
Left = 184
|
||||
Top = 176
|
||||
Width = 283
|
||||
object StaticText3: TStaticText
|
||||
Left = 104
|
||||
Top = 168
|
||||
Width = 246
|
||||
Height = 16
|
||||
Caption = #65288#27880#24847#65289#12525#12464#12399#23455#34892#12501#12449#12452#12523#12398#12354#12427#12487#12451#12524#12463#12488#12522#12395#20986#12375#12414#12377
|
||||
Caption = #65288#27880#24847#65289#25351#23450#12487#12451#12524#12463#12488#12522#12395'srl'#20197#22806#12399#32622#12363#12394#12356#12371#12392
|
||||
TabOrder = 5
|
||||
end
|
||||
object StaticText2: TStaticText
|
||||
Left = 416
|
||||
Top = 16
|
||||
Width = 95
|
||||
Height = 16
|
||||
BevelInner = bvLowered
|
||||
BevelOuter = bvRaised
|
||||
BorderStyle = sbsSingle
|
||||
Caption = 'srl'#12288#12398#22580#25152#12434#25351#23450
|
||||
object RG_select: TRadioGroup
|
||||
Left = 408
|
||||
Top = 8
|
||||
Width = 113
|
||||
Height = 57
|
||||
Caption = #12497#12473#25351#23450
|
||||
ItemIndex = 1
|
||||
Items.Strings = (
|
||||
'srl '#26684#32013#22580#25152
|
||||
#12525#12464#12288#20986#21147#20808)
|
||||
TabOrder = 6
|
||||
end
|
||||
object StaticText3: TStaticText
|
||||
Left = 184
|
||||
Top = 192
|
||||
Width = 254
|
||||
Height = 16
|
||||
Caption = #65288#27880#24847#65298#65289#25351#23450#12487#12451#12524#12463#12488#12522#12395'srl'#20197#22806#12399#32622#12363#12394#12356#12371#12392
|
||||
TabOrder = 7
|
||||
object StatusBar1: TStatusBar
|
||||
Left = 0
|
||||
Top = 229
|
||||
Width = 547
|
||||
Height = 19
|
||||
Panels = <>
|
||||
SimplePanel = True
|
||||
end
|
||||
end
|
||||
|
||||
@ -4,7 +4,7 @@ interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, FileCtrl, ComCtrls, ShellCtrls;
|
||||
Dialogs, StdCtrls, FileCtrl, ComCtrls, ShellCtrls, ExtCtrls;
|
||||
|
||||
type
|
||||
TForm1 = class(TForm)
|
||||
@ -13,9 +13,9 @@ type
|
||||
DriveBox: TDriveComboBox;
|
||||
DirListBox: TDirectoryListBox;
|
||||
StatusBar: TStatusBar;
|
||||
StaticText1: TStaticText;
|
||||
StaticText2: TStaticText;
|
||||
StaticText3: TStaticText;
|
||||
RG_select: TRadioGroup;
|
||||
StatusBar1: TStatusBar;
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure DriveBoxChange(Sender: TObject);
|
||||
procedure DirListBoxChange(Sender: TObject);
|
||||
@ -81,7 +81,8 @@ type
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
SrlDir: String;//srlファイルの存在するディレクトリ名
|
||||
LogDir,SrlDir: String;//ディレクトリパス
|
||||
ng_all: longword;//総NGエントリ数
|
||||
|
||||
implementation
|
||||
|
||||
@ -89,13 +90,14 @@ function TForm1.CheckSrlHeader: integer;
|
||||
var
|
||||
Rec: TSearchRec;
|
||||
sf,s,ss: String;
|
||||
i,n,Count,err_count: integer;
|
||||
i,n,Count,err_files,ng_entry: integer;
|
||||
fsrl: file;
|
||||
flog:TextFile;
|
||||
romh: TRomh;
|
||||
noc_size,noc_sectors,size,sectors,nums,max_sectors,total_sectors: integer;
|
||||
fat: TRom_Fat;
|
||||
top,btm,all_sectors: Longword;
|
||||
ng_flg:boolean;
|
||||
|
||||
begin
|
||||
{$I-}
|
||||
@ -109,7 +111,8 @@ begin
|
||||
ListBox_log.Items.Add('faild')
|
||||
end else begin
|
||||
Count := 0;
|
||||
err_count := 0;
|
||||
err_files := 0;
|
||||
ng_all := 0;
|
||||
//指定ディレクトリからファイルを取り出す
|
||||
// ** 内容で判別しないので違うファイル置かないよう注意 **
|
||||
if FindFirst(SrlDir + '*.*', faAnyFile, Rec) = 0 then
|
||||
@ -153,6 +156,7 @@ begin
|
||||
//オーバレイチェック
|
||||
if romh.main_ovt_size >31 then begin
|
||||
//DHT_OVERLAY_MAX (512*1024)
|
||||
ng_entry := 0;
|
||||
total_sectors := 0;
|
||||
all_sectors := 0;
|
||||
nums := romh.main_ovt_size div 32;//Ovl count
|
||||
@ -166,6 +170,8 @@ begin
|
||||
s := 'file error';
|
||||
break;
|
||||
end;
|
||||
ng_flg:=false;
|
||||
ss := '(A9 Overlay'+inttostr(i);
|
||||
//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;
|
||||
@ -175,8 +181,10 @@ begin
|
||||
top := fat.top;
|
||||
sectors := (btm-top) shr 9;//div 512
|
||||
if (top and $1ff)<>0 then inc(sectors);
|
||||
ss := '(A9 Overlay の全部)';
|
||||
ss := ss+' の全部)';
|
||||
ng_flg:=true;
|
||||
end else begin
|
||||
ss := ss+' の一部)';
|
||||
top := fat.top and $fffffe00; //512単位
|
||||
size := fat.top and $01ff;
|
||||
if size<>0 then begin
|
||||
@ -194,6 +202,7 @@ begin
|
||||
inc(noc_size,512);
|
||||
inc(noc_sectors);
|
||||
inc(all_sectors);
|
||||
ng_flg:=true;
|
||||
end;
|
||||
size := btm - top;
|
||||
sectors := size shr 9;//div 512
|
||||
@ -202,7 +211,7 @@ begin
|
||||
sectors := sectors - max_sectors;//残りセクタ数
|
||||
inc(top,max_sectors*512);//残り先頭
|
||||
inc(total_sectors,max_sectors);
|
||||
ss := '(A9 Overlay の一部)';
|
||||
ng_flg:=true;
|
||||
end else begin //超過なし
|
||||
inc(total_sectors,sectors);
|
||||
sectors := 0;
|
||||
@ -222,6 +231,7 @@ begin
|
||||
inc(noc_size,size);
|
||||
inc(noc_sectors,sectors);
|
||||
end;
|
||||
if ng_flg then inc(ng_entry);
|
||||
end;
|
||||
if i = nums then begin //中断なし
|
||||
//ListBox_log.Items.Add(' ');
|
||||
@ -233,7 +243,7 @@ begin
|
||||
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'
|
||||
if noc_size <> 0 then s:= 'NG'
|
||||
else s:= 'OK';
|
||||
end;
|
||||
end else s := 'no OVL';
|
||||
@ -242,9 +252,12 @@ begin
|
||||
CloseFile(fsrl);
|
||||
Writeln(flog,s);//結果
|
||||
if (s='OK') or (s='NG') then begin
|
||||
s := 'done';
|
||||
if s = 'NG' then begin
|
||||
s := 'done, '+ inttostr(ng_entry) + ' enties NG';
|
||||
inc(ng_all,ng_entry);
|
||||
end else s := 'done, OK';
|
||||
Inc(Count);
|
||||
end else inc(err_count);
|
||||
end else inc(err_files);
|
||||
ss := sf + ' : ' + s;
|
||||
ListBox_log.Items.Add(ss);
|
||||
end;
|
||||
@ -254,7 +267,7 @@ begin
|
||||
end;
|
||||
Writeln(flog,'********************************');
|
||||
Writeln(flog,'check files = '+ inttostr(Count));
|
||||
Writeln(flog,'error = '+ inttostr(err_count));
|
||||
Writeln(flog,'error files = '+ inttostr(err_files));
|
||||
|
||||
CloseFile(flog);
|
||||
end;
|
||||
@ -274,7 +287,8 @@ begin
|
||||
FileCount := CheckSrlHeader;
|
||||
if FileCount>=0 then begin
|
||||
ListBox_log.Items.Add(' ------------------------------ ');
|
||||
s := ' '+inttostr(FileCount)+' files done';
|
||||
s := ' '+inttostr(FileCount)+' files done, '
|
||||
+ inttostr(ng_all)+' entries NG';
|
||||
ListBox_log.Items.Add(s);
|
||||
end;
|
||||
end;
|
||||
@ -288,15 +302,22 @@ end;
|
||||
|
||||
procedure TForm1.DirListBoxChange(Sender: TObject);
|
||||
begin
|
||||
SrlDir := IncludeTrailingPathDelimiter(DirListBox.Directory);
|
||||
StatusBar.SimpleText := '[Target Dir] ' + DirListBox.Directory;
|
||||
if RG_select.ItemIndex = 0 then begin
|
||||
SrlDir := IncludeTrailingPathDelimiter(DirListBox.Directory);
|
||||
StatusBar.SimpleText := '[srl dir] ' + DirListBox.Directory;
|
||||
end else begin
|
||||
LogDir := IncludeTrailingPathDelimiter(DirListBox.Directory);
|
||||
StatusBar1.SimpleText := '[log dir] ' + DirListBox.Directory;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
begin
|
||||
//イベント利用してSrlDirNameとステータスバーの設定
|
||||
DirListBox.Drive := DriveBox.Drive;
|
||||
SrlDir := IncludeTrailingPathDelimiter(DirListBox.Directory);
|
||||
StatusBar.SimpleText := '[srl dir] ' + DirListBox.Directory;
|
||||
LogDir := IncludeTrailingPathDelimiter(DirListBox.Directory);
|
||||
StatusBar1.SimpleText := '[log dir] ' + DirListBox.Directory;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user