Юниты находятся на SlaUr.narod.ru (mysys,mystr)
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,mysys,mystr;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var list:tstringlist;i1:integer;st1,st2:string;
s1:Tsearchrec;
begin
List:=Tstringlist.Create;
SearchInDir('*.*','C:\Windows' ,True , List);
List.Sorted:=true;
for i1:=0 to List.Count-1
do
begin
St1:=list[i1];
if FindFirst(St1,faAnyFile,S1) = 0 then
List1[i1]:=intToStr(s1.Time)+'|'+List1[i1];{Т.к. list сортированый все выстроится как надо}
List.Sorted:=False;
end;
For i1:=0 to list.Count-1 do
List[i1]:=cNFi(2,List[i1],|');
Halt;
end;
end.
|
Писал нетерезвый но думаю все правильно |
, но уверености нет