▼ノベルゲームツールを作っちゃうぞ！Ver3.0

▼ノベルゲームツールを作っちゃうぞ！Ver3.0at GAMEDEV

▼ノベルゲームツールを作っちゃうぞ！Ver3.0 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

891:計測部(スキャンなし)
 06/12/02 23:00:05 ZjHXEGS3
procedure TOKBottomDlg.NoScanBtnClick(Sender: TObject); 
var 
  list:TStringList; 
  start,stop:Cardinal; 
begin 
  list := TStringList.Create; 
  start := nowmsec; 
 
  list.LoadFromFile( FileNameLabel.Caption); 
 
  stop := nowmsec; 
  list.Free; 
  TimeLabelS.Caption := IntToStr(stop - start); 
end;

892:計測部（スキャンあり）
 06/12/02 23:00:49 ZjHXEGS3
procedure TOKBottomDlg.ScanBtnClick(Sender: TObject); 
var 
  list,labels:TStringList; 
  start,stop:Cardinal; 
  line: String; 
  i: integer; 
begin 
  list := TStringList.Create; 
  labels := TStringList.Create; 
 
  start := nowmsec; 
  list.LoadFromFile( FileNameLabel.Caption); 
  for i:=0 to list.Count-1 do begin 
    line := Trim(list.strings[i]); 
    if( length( line ) = 0 ) then continue; 
    if( line[1] = '*' ) then begin 
      delete( line, 1, 1 ); 
      labels.Add( Concat( line, '=', IntToStr( i ))); 
    end; 
  end; 
   
  stop := nowmsec; 
  list.free; 
  labels.free; 
  TimeLabelN.Caption := IntToStr(stop - start); 
end;

次ページ