원하시는 자료인지는 모르지만 ....
저도 그전에 델에서 배운것(검색)입니다.
파일 중복 찾기 인데 이 소스를 이용 해 보세요
<!--CodeS-->
with StringGrid1 do begin
RowCount := 0;
if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then begin
RowCount := RowCount + 1;
Cells[1,RowCount-1] := sr.Name;
Cells[2,RowCount-1] := IntToStr(sr.Size);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
<!--CodeE-->
원하시는 자료인지는 모르지만 ....
저도 그전에 델에서 배운것(검색)입니다.
파일 중복 찾기 인데 이 소스를 이용 해 보세요
<!--CodeS-->
with StringGrid1 do begin
RowCount := 0;
if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then begin
RowCount := RowCount + 1;
Cells[1,RowCount-1] := sr.Name;
Cells[2,RowCount-1] := IntToStr(sr.Size);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
<!--CodeE-->