본문
procedure TfmMain.GetData;
var
DirInfo: TSearchRec;
r,Loop,I : Integer;
begin
if cbb1.ItemIndex < 0 then
begin
ShowMessage('가져올 파일 갯수를 선택하세요.');
Exit;
end;
btnSaveExcel.Enabled := False;
btnInputDB.Enabled := False;
AdvStrGrid2.Clear;
AdvStrGrid2.RowCount := 2;
if not FolderDlg1.Execute then
FolderDlg1.Execute;
r := FindFirst(FolderDlg1.Directory + '*.xls', FaAnyfile, DirInfo);
Loop := 0;
While r = 0 do
begin
Application.ProcessMessages;
if Loop = StrToInt(cbb1.Items[cbb1.ItemIndex]) then Break;
if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
(DirInfo.Attr and FaVolumeId <> FaVolumeID))
then
//mmo1.Lines.Add(DirInfo.Name);
SetFileName(DirInfo.Name);
advgrdxcl1.XLSImport(FolderDlg1.Directory + '' + DirInfo.Name);
AdvStrGrid2.ColCount := AdvStrGrid1.ColCount + 1;
//DeleteFile(pChar(FolderDlg1.Directory + '' + DirInfo.Name));
AdvStrGridFile.AddRow;
AdvStrGridFile.Cells[0,Loop] := FolderDlg1.Directory + '' + DirInfo.Name;
r := FindNext(DirInfo);
Loop := Loop + 1;
end;
SysUtils.FindClose(DirInfo); // FindFirst에 의해 사용된 메모리를 해제
btnSaveExcel.Enabled := True;
btnInputDB.Enabled := True;
end;
댓글 목록
지나치다
관리 메뉴
본문
잘못된 정보입니다.Non-authoritative answer는 네임서버가 캐쉬에 있는 내용으로 응답하는 경우에 표시되는 것입니다.
부가 정보
단단이아빠
관리 메뉴
본문
예.. 감사합니다. 이전에 검색했던 내용이 잘 못된 건가 보네요..Name Server는 질의에 대한 결과를 캐쉬에 저장하고 있기 때문에 같은 질의가 요구되었을 때 Namespace를 뒤지지 않고 캐쉬의 자료로 빠르게 응답한다. 캐쉬의 자료는 Resolving시 얻은 TTL(Time To Live) 시간 동안에만 유효하고, TTL 경과후에는 파기된다. 클라이언트의 도메인 Resolving 요청시 네임서버가 캐쉬의 자료로 응답 할 경우는 Non-authoritative answer이고, 캐쉬에 자료가 없거나, 자료의 TTL이 만기되어 해당 도메인의 Primary 네임서버에서 직접 자료를 얻어 답변을 주었을 경우가 Authoritative answer이다.
부가 정보