Tiedoston etsiminen.

Apuja?

Eli miten sais tehtyä sellasen ohjelman joka nappia painamalla etsii koneesta tiettyjä ohjelmia? Lazaruksella sellasen haluaisin tehdä.

1

271

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Riittäneekö tämä?

      Mielestäni sillä ei ole paljonkaan eroa onko kehitysympäristö Lazarus vai Delphi (kieli on kuitenkin Pascal).

      Tässä nyt jonkinlainen ratkaisuyritys.

      Eli tee uusi projekti. Laita lomakkelle kaksi Edit- "tekstin syöttölaatikkoa", ListBox ja painonappi Button.
      Luo Buttonille tapahtumankäsittelijä. Täydennä lähdekoodia seuraavasti:


      procedure TForm1.Button1Click(Sender: TObject);
      var etsittava_nimi, tiedostopolku:string;
      begin
         ListBox1.Clear;
         etsittava_nimi := Edit1.Text;
         tiedostopolku:= Edit2.Text;
         TiedostonHaku(tiedostopolku, etsittava_nimi);
      end;

      procedure TForm1.TiedostonHaku(const tiedostoPolunNimi, tiedostonNimi : string);
      var searchResult : TSearchRec;
         polku : string;
      begin
         polku := IncludeTrailingBackslash(tiedostoPolunNimi);
         if FindFirst(polku tiedostonNimi, faAnyFile - faDirectory, searchResult) = 0 then
         try
            repeat
               ListBox1.Items.Add(polku searchResult.Name);
            until FindNext(searchResult) 0;
         finally
            FindClose(searchResult);
         end;
         if FindFirst(polku '*.*', faDirectory, searchResult) = 0 then
            try
               repeat
                  if ((searchResult.Attr and faDirectory) 0) and (searchResult.Name'.') and (searchResult.Name'..') then
                     TiedostonHaku(polku searchResult.Name, tiedostonNimi);
               until FindNext(searchResult) 0;
            finally
               FindClose(searchResult);
            end;
      end;



      Huomaa että procedure TiedostonHaku on esiteltävä luokan TForm1 esittelyn yhteydessä. Sen voi kirjoittaa sinne käsin tai sitten
      menet tuolle riville jossa on procedure TForm1.TiedostonH... jossa painat hiiren oikeata nappia, valitset ponnahdusvalikosta kohdan koodin uudelleen muokkaus ja sieltä täydennä koodia jolloin tuo luokan esittely täydentyy automaattisesti.

      Oppimisen kannalta olisi ehkäpä parempi yrittää kääntää koodia ennen tuota luokan täydentämistä ja katsoa minkä virheilmoituksen saat. Vasta tämän tälkeen mennä täydentämään koodia oikeanlaiseksi. Lisäksi kannattaa katsoa miten se koodi täydentyi.


      Katso myös keskustelua:
      http://keskustelu.suomi24.fi/show.fcgi?category=108&conference=4500000000000646&posting=22000000032783387

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Riikka vie Suomen kohta ykköseksi työttömyyskisassa

      Espanja: 10,5 % Suomi: 10,3 % Ruotsi: 9,3 % Kisa on tiukkaa, mutta Riikalla hyvä draivi päällä. Vasemmistolaisen päämin
      Maailman menoa
      162
      2938
    2. Miten juhlitte ensi lauantaina?

      Se on kalenteriin merkitty juhlapäiväksi, niin sitä kai kuuluu juhlia.
      Maailman menoa
      284
      2620
    3. Suomen veroaste 5 %-yks liian matala

      Palauttamalla kokonaisveroaste 1990-luvun tasolle saadaan hyvinvointivaltion palvelut rahoitettua ilman velan ottoa.
      Maailman menoa
      68
      1741
    4. Kolme neljästä suomalaisesta kannattaa miljonääriveroa

      Kertoo vasemmistoliiton teettämä kysely. Veron ulkopuolelle jätettäisiin asunto. "Puolet vastaajista oli sitä mieltä, e
      Maailman menoa
      43
      1628
    5. Kumpaan rahat, mummojen vaippoihin vai Nalle WahIroosille?

      JOS siis sinä saisit päättää?
      Maailman menoa
      38
      1520
    6. Voi mies olit taas niin komea

      Olet silmäkarkkia ❤️ Sua vois katsella vaikka koko päivän. ❤️
      Ikävä
      122
      1276
    7. Kadutko koskaan

      Sitä mun iskiyritystä?
      Ikävä
      110
      1194
    8. Ryöstö Punkaharjulla

      Punkaharjun k-market ryöstetty tänään keskellä päivää, ketä lie asialla? Poliiseja ainakin pörrää ympäriisee
      Savonlinna
      14
      1154
    9. Evoluutioon ja alkuräjähdykseen uskominen vaatii todella vahvaa uskoa

      Että tyhjästä syntyi ja kehittyi kaikki se mitä näemme ympärillämme.
      Luterilaisuus
      350
      1075
    10. Uudestisyntyminen ei tapahdu kasteessa

      Tässä Apostolien tekojen kohdassa näemme, että Filippus julisti hoviherralle ensin evankeliumia ja kuulusteli sitten tar
      Kaste
      204
      1063
    Aihe