Delphi에서 INI 프로파일 읽기 및 쓰기 요약

먼저 INI 파일의 형식은 다음과 같습니다.

[COUNT]          #  
COUNT=2       #   = 
[HXUSER]
HXUSER=ht_invest

[HXPWD]
HXPWD=hundsun

[INFO0]
NAME=ht_invest
PASSWD=hundsun
ORA=168.161.30.6

[INFO1]
NAME=ht_invest
PASSWD=hundsun
ORA=168.161.30.2

[INFO2]
NAME=hs_data
PASSWD=dfds
ORA=hs_data

다음은 INI 프로필을 어떻게 읽고 씁니까?
먼저 읽기 프로파일을 살펴보겠습니다.

//  INI    
procedure Tfoffertool.LoadINIDataToListView();
var
  temp        :string;
  filepath    :string;
  i, count    :Integer;
  pListInfo   :pInfo;
  item        :TListItem;

  myinifile   : TIniFile;

begin
  try
    filepath  := ExtractFilePath(Paramstr(0)) + 'myini.ini';        //      +   
    myinifile := Tinifile.Create(filepath);                         //    
  except
    ShowMessage('LOADINI        ');
    Exit;
  end;

  count     := myinifile.ReadInteger('COUNT', 'COUNT', 0);        //  INI    COUNT 
  lvshow.Clear;

  for i := 0 to (count-1) do
  begin
    item := lvshow.Items.Add;
    temp  := 'INFO' + IntToStr(i);
    new(pListInfo);
    pListInfo^.user   := myinifile.Readstring(temp, 'NAME', '');
    pListInfo^.passwd := myinifile.Readstring(temp, 'PASSWD', '');
    pListInfo^.ora    := myinifile.Readstring(temp, 'ORA', '');
    lvshow.Items[i].Data := pListInfo;
    item.SubItems.Add(pListInfo^.user);
    {item.SubItems.Add(pListInfo^.passwd);}
    item.SubItems.Add(pListInfo^.ora);
    item.SubItems.Add('  ');
  end;

  //       
  edthxuser.Text    := myinifile.ReadString('HXUSER', 'HXUSER', '');
  //      
  edthxpwd.Text  := myinifile.ReadString('HXPWD', 'HXPWD', '');
  //      

  myinifile.Destroy;

end;

설명: 파일 읽기와 쓰기 동작에서 먼저 헤더 파일을 참조해야 한다:IniFiles;

myinifile   : TIniFile;

 
   filepath  := ExtractFilePath(Paramstr(0)) + 'myini.ini';        //      +   
myinifile := Tinifile.Create(filepath);                         //         
    
   
   
    INI           ： 
    1：   
    2：    
    3：     
   
  count     := myinifile.ReadInteger('COUNT', 'COUNT', 0);        //  INI    COUNT   
  
  INI          ： 
   
    1：   
    2：    
    3：     
   
    edt1.Text   := myinifile.ReadString('HXUSER', 'HXUSER', '');   // INI            
  
 
   
      ： 
   
    myinifile.Destroy;  
   
  
    
      ：          ：  
   
   // listview     INI     
   
   procedure Tfoffertool.SaveListViewDataToINI();
var
  temp       :string;
  filepath   :string;
  idex       :Integer;
  pListInfo : pInfo;
  myinifile   : TIniFile;
begin
  try
    filepath := ExtractFilePath(Paramstr(0)) + 'myini.ini';
    myinifile := Tinifile.Create(filepath);
  except
    ShowMessage('SAVEINI        ');
    Exit;
  end;
  for idex := 0 to (lvshow.Items.Count-1) do
  begin
    pListInfo := lvshow.Items[idex].Data;
    temp := 'INFO' + IntToStr(idex);
    myinifile.WriteString(temp, 'NAME', pListInfo^.user);
    myinifile.WriteString(temp, 'PASSWD', pListInfo^.passwd);
    myinifile.WriteString(temp, 'ORA', pListInfo^.ora);
  end;
  myinifile.WriteInteger('COUNT', 'COUNT', idex);
  myinifile.WriteString('TABLENAME', 'TABLENAME', edtshtable.Text);
  myinifile.WriteString('HXUSER', 'HXUSER', edthxuser.Text);
  myinifile.WriteString('HXPWD', 'HXPWD', edthxpwd.Text);
  myinifile.Destroy;
end;  
    ： 
   
     INI           ： 
    1：   
    2：    
    3：   
   
   myinifile.WriteInteger('COUNT', 'COUNT', idex);    // INI            
   
     INI            ： 
    1：   
    2：    
    3：      
   myinifile.WriteString('HXPWD', 'HXPWD', edthxpwd.Text);   // INI            
  
 
      ： 
   
   myinifile.Destroy;  
   
        Delphi    INI    ：http://wenku.baidu.com/link?url=ktXMUwthCYhMpFUSRDJrNQRs0HLZK78-gbUc6MH8UZF-GPVZHId1ZGe2XtYASSthpvU7z_JY8Bik-Z9s4hHe213RPnfm31NW8rnjQXU6b_q&qq-pf-to=pcqq.group

이 내용에 흥미가 있습니까?

현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:

Delphi에 직사각형 그리기

텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.

CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.

Delphi에서 INI 프로파일 읽기 및 쓰기 요약

좋은 웹페이지 즐겨찾기