DELPHI: Kaa StringGridaa attelot ListBox1 iezimetos failus.

[Guest inx]

Jaasaak ar to, ka ListBox1 tiek paraadiiti OpenDialogaa ieziimeetie faili.

 

begin

    // tiek defineets, ka OpenDialogaa var ieziimeet vairaakus failus

    OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];



    // atteelo ListBoxaa failus, kurus ieselektee OpenDialogaa

    if OpenDialog1.Execute then

     with OpenDialog1.Files do

       for i := 0 to Count - 1 do

         begin

           ListBox1.Items.Strings[i] := OpenDialog1.Files[i];

         end;

end;

 

Taalaak:

 

Kods veidots taa, lai ListBox1 atteelotos failus var ieziimeet peec briivas izveeles, un tikai shie faili paraadiitos StringGridaa, uzraadot faila nosaukumu, datumu un izmeeru baitos.

 

procedure TMainForm.SelItem(Sender: TObject);

var

 Item, U    : integer;

 F             : file;



begin

 for U := 0 to (ListBox1.Items.Count - 1) do

  begin

   try

    if ListBox1.Selected[U] then

     begin

         if ListBox1.Items.Count > 1 then

          begin

            AssignFile(F, ListBox1.Items.Strings[U]);

            Reset(F, 1);

            

            StringGrid1.Cells [0,StringGrid1.RowCount] := '     ' + 

              ListBox1.Items.Strings[U];



            StringGrid1.Cells [1,StringGrid1.RowCount] := ' ' + 

              DateTimeToStr(FileDateToDateTime(FileAge

              (ListBox1.Items.Strings[U])));



            StringGrid1.Cells [3,StringGrid1.RowCount] := ' ' + IntToStr

              (FileSize(F)) + ' baiti';



            CloseFile(F);

            StringGrid1.RowCount := StringGrid1.RowCount + 1;

           end;

     end;

   finally

     // ...kaukas...

  end;

end;

 

Respektiivi, shaadu kodu var izmantot jebkuras manipulaacijas veikshanai ar failu vai failu grupu.