Programozás kezdők, amatőrök részére

I'm Sorry... Sajnálom...

A "delphi program" nem tölthető le!
(átmeneti oldal hiba)

Bezár

I'm Sorry... Sajnálom...

A "css ötlet" nem tölthető le!
(átmeneti oldal hiba)

Bezár

I'm Sorry... Sajnálom...

A "php ötlet" nem tölthető le!
(átmeneti oldal hiba)

Bezár

Információk

Honlap infók:

Adatok
2006. 05. 21-től

Összes látogatás:

Mai látogatás:

Összes látogató:

Mai látogató:

Aktuális látogató:

Üdvözöllek!
(18.206.13.203)
« Előző »
« látogatásod: »
(2023/12/08 - 19:53)

Oldal módosítva:
2012. 10. 17. 12:07.

Buzsák

Delphi / Forráskódok:

Beállítások mentése *.ini fájlba

Ha egy programban a felhasználónak különböző paramétereket kell beállítania, akkor felmerül az igény, hogy a program következő indításakor ezek már alapból álljanak rendelkezésre. A legegyszerűbb ezek közül az ablak elhelyezkedése.

A megoldás részletei »»

ELJÁRÁS és FELHASZNÁLÁS
A "FormCreate" eljárásban megnyitjuk a "programnév".ini fájlt és beolvassuk az adatokat majd beállítjuk a megfelelő paramétereket.

Kijelölés

procedure TForm1.FormCreate(Sender: TObject);
var
  Status: Integer;
  TipusNev : string; //fájltípus kiterjeszése
  TipusDarab: integer; //fájltípusok száma
  i     : Integer;
begin
  //fájlnév azonos a program nevével
  IniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
  {elmentett ablak-státusz beolvasása}
  Status := IniFile.ReadInteger ('MainForm', 'Status', 0);
  if Status <> 0 then
  begin
    {elmentett ablak-poziciók és méretek beolvasása és beállítása}
    Top := IniFile.ReadInteger ('MainForm', 'Top', Top);
    Left := IniFile.ReadInteger ('MainForm', 'Left', Left);
    Width := IniFile.ReadInteger ('MainForm', 'Width', Width);
    Height := IniFile.ReadInteger ('MainForm', 'Height', Height);
    TipusDarab := IniFile.ReadInteger ('MainForm', 'TipusDarab', TipusDarab);
    {ablak-státusz beállítása}
    case Status of
      1: WindowState := wsNormal; //ez az alapértelmezett
      2: WindowState := wsMinimized;
      3: WindowState := wsMaximized;
    end;
  end;
  //saját paraméterek kezelése pl: bemeneti fájltípus TComboBox-komponensben
  InFileTipusComboBox.Clear;
  for i:=0 to  TipusDarab-1 do
    begin
      //elmentett típusok beolvasása és beállítása
      TipusNev := IniFile.ReadString ('Tipusok',('Tipus'+IntToStr(i)), TipusNev);
      InFileTipusComboBox.Items.Add(TipusNev);
    end;
  if InFileTipusComboBox.Items.Count=0 then
    InFileTipusComboBox.Items.Add('bmp');
  InFileTipusComboBox.ItemIndex:=0;
end;
 

A "FormClose" eljárásban a már korábban megnyitott "programnév".ini fájlba beírjuk az aktuális(programzárási) adatokat.

Kijelölés

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Status: Integer;
  TipusNev : string; //fájltípus kiterjeszése
  TipusDarab : integer; //fájltípusok száma
  i     : Integer;
begin
  Status := 1; // alapértelmezett
  case WindowState of
    //ha a program-záráskor a státusz normál új pozició és méret adatok
    //beírása fájlba
    wsNormal: begin
      {save position and size only if the state is normal}
      IniFile.WriteInteger ('MainForm', 'Top', Top);
      IniFile.WriteInteger ('MainForm', 'Left', Left);
      IniFile.WriteInteger ('MainForm', 'Width', Width);
      IniFile.WriteInteger ('MainForm', 'Height', Height);
    end;
    wsMinimized: Status := 2;
    wsMaximized: Status := 3;
  end;
  {ha az ablak nem aktív}
  if not Active then
    Status := 2;
  //statusz információ beírása fájlba
  IniFile.WriteInteger ('MainForm', 'Status', Status);
  //saját paraméterek kezelése pl: bemeneti fájltípus TComboBox-komponensben
  //fájl-típusok darabszáma és kitarjesztések beírása fájlba
  TipusDarab:=InFileTipusComboBox.Items.Count;
  IniFile.WriteInteger ('MainForm', 'TipusDarab', TipusDarab);
  for i:=0 to  TipusDarab-1 do
    IniFile.WriteString('Tipusok', ('Tipus'+IntToStr(i)), InFileTipusComboBox.Items.Strings[i]);
  //erőforrás felszabadítása
  IniFile.Free;
end;
 

A "programnév".ini fájl-ban például így néznek ki a beírt paraméterek.

Kijelölés

[MainForm]
Top=73
Left=298
Width=200
Height=400
Status=1
TipusDarab=2
[Tipusok]
Tipus0=bmp
Tipus1=mp3
 

A két eljárást csak bemásolod a saját programodba, egyezteted-módosítod a megnevezéseket, kibővíted saját igényed szerint(tagokkal, csoportokkal) és használod. Figyelj a beírt adatra - string vagy integer - és nézz bele a delphi help-jébe ha kell! A fenti ismertető csak alapleírás, nem tartalmaz sok egyébb tudnivalót. -pl:"uses" részben kell: IniFiles;-

Fájlkereső eljárás

Sokszor volt program írásakor szükségem olyan fájlkereső eljárásra,amely egy adott típust talál meg egy adott könyvtárban és ha kell alkönyvtárakban is. A megtalált fájlokat egy lista-komponensben jelenítse meg.

A megoldás részletei »»

ELJÁRÁS és FELHASZNÁLÁS
Az eljárást másold be a delphi-programodba, szükség esetén módosíthatod az elnevezésket azonban vigyázz a típusokra!

Kijelölés

//listáz: hova(TListBox), honnan(path/dir), fájl(típus *.*), alkönyvtárakból is(igen/nem)
 
function TCDRipTestForm.KeresKonyvtarban(const Lista: TListBox; Konyvtar, Fajl: string; AlkonyvtarIs: boolean) : boolean;
var
  DosError: integer;
  Keresett: TSearchRec;
  SDir:string;
begin
  result := false;
  SDir:=Konyvtar;
  If SDir>'' then
    If SDir[Length(SDir)]<>'\' then
      SDir:=SDir+'\';
  DosError:=FindFirst(SDir+Fajl, faAnyFile mod faDirectory, Keresett);
  While (DosError=0) and (not Application.Terminated) do
   begin
    with Lista.Items do
     begin
         if FileExists(SDir+Keresett.name) then
          begin
           Add(Keresett.name);
           //Add(SDir+Keresett.name);
           result := true;
          end;
     end;
    Application.ProcessMessages;
    DosError:=FindNext(Keresett);
    Application.ProcessMessages;
   end;
  FindClose(Keresett);
  If AlkonyvtarIs then
   begin // rekurziv keresés ha alkönyvtár is van
    DosError:=FindFirst(SDir+Fajl, faDirectory, Keresett);
    While (DosError=0) and (not Application.Terminated) do
     begin
      If (Keresett.Attr and faDirectory=faDirectory) and
                                     (Keresett.Name[1]<>'.') then
       begin
        KeresKonyvtarban(Lista,SDir+Keresett.Name, Fajl, AlkonyvtarIs);
       end;
      DosError:=FindNext(Keresett);
      Application.ProcessMessages;
     end;
    FindClose(Keresett);
   end;
end;
 

Az eljárás felhasználásakor az elnevezésket szabadon megválaszthatod csak vigyázz a típusokra!

Kijelölés

//Változótípusok: TListBox,     string,     string, boolean
 
KeresKonyvtarban(OutListBox, InSearchDir, ExtMp3, false);

Komplett Fájlkereső Project

- Ha a számítógépre folyamatosan mentünk zenefájlokat előbb-utóbb eljön az a pillanat, hogy elfelejtjük hol is van egy-egy adott szám, hiába próbáljuk rendszerbe foglalva tárolni. - Most egy fájlkereső komplett ismertetése következik, adott típust talál meg egy adott könyvtárban és ha kell alkönyvtárakban is. A megtalált fájlokat egy lista-komponensben jelenítse meg.

(A program letölthető a " Programozás / Delphi / Letöltések " oldalon.)

A megoldás részletei »»

. . . S O R R Y . . .

- Egy talált faágból akkor lesz sétapálca,
ha türelmesen és kitartóan elkezded faragni -

(anonymus)

xhtml css cc

Reklámok

Family Team is licensed under a   Creative Commons Nevezd meg!-Ne add el!-Így add tovább! 2.5 Magyarország License.

A license eredeti elérhetősége:  http://creativecommons.org/licenses/by-nc-sa/2.5/hu/

Ennek az oldalnak az eredeti elérhetősége:  http://family-team.emszinet.hu/