[slayer2707]

Помогите пожалуйста с заданием:
На жестком диске С: в различных папках имеются файлы с графическими изображениями. Нужно создавать списки таких файлов, используя заданные критерии (например, тип, общая часть имени, дата создания, дата последнего изменения, место расположения и т.д.). Эти списки должны храниться в специальных файлах в отдельной папке. Должна иметься возможность просматривать как списки, так и изображения.

[Assistant]

вот это для начала почитайте, да и вообще, говорят поиск рулит, сам не проверял ))))

[slayer2707]

код #
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FileCtrl, StdCtrls, jpeg, ExtCtrls, Buttons, Grids;

type
TForm1 = class(TForm)
Panel1: TPanel;
DirLst: TDirectoryListBox;
FileEd: TEdit;
FileLst: TFileListBox;
DriveComboBox1: TDriveComboBox;
FilterCb: TFilterComboBox;
ImgSb: TScrollBox;
Img: TImage;
BitBtn1: TBitBtn;
Button1: TButton;
SaveDialog1: TSaveDialog;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
OpenDialog1: TOpenDialog;
ListBox1: TListBox;
BitBtn4: TBitBtn;
StringGrid1: TStringGrid;
Button6: TBitBtn;
BitBtn5: TBitBtn;
procedure FileLstDblClick(Sender: TObject);
procedure ImgDblClick(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure FormCreate(Sender: TObject);



private
{ Private declarations }
public
{ Public declarations }
end;



var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FileLstDblClick(Sender: TObject);
begin
Img.Picture.LoadFromFile(FileLst.FileName);

end;

procedure TForm1.ImgDblClick(Sender: TObject);
begin
Img.Proportional:=not Img.Proportional;
if Img.Proportional then
Img.Align:=alClient else
Img.Align:=alNone;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
begin

Listbox1.AddItem(ExtractFileName(FileLst.filename) ,nil);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Listbox1.DeleteSelected;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var i:Integer;
s,s1:string;
begin
if not OpenDialog1.Execute then
exit;
Listbox1.Items.LoadFromFile(OpenDialog1.FileName);
end;


procedure TForm1.BitBtn4Click(Sender: TObject);
begin
Img.Proportional:=not Img.Proportional;
if Img.Proportional then
Img.Align:=alClient else
Img.Align:=alNone;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var i:integer;
f:TextFile;
begin
if SaveDialog1.Execute then
begin
AssignFile(f,SaveDialog1.FileName);
Rewrite(f);
for i:=0 to Listbox1.Items.Count-1 do
begin
Write(f,Listbox1.Items[i]+#13#10);
end;
CloseFile(f);
end;
end;
#
но хотелось бы наверно вместо листбокса стринггрид