delphi中使用配置檔案 ini

unit zs_dyjpz;

inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls, extctrls,printers,winspool,inifiles;
type
tw_dyjpz = class(tform)
pnl1: tpanel;
lbl1: tlabel;
cbb1: tcombobox;
lbl2: tlabel;
cbb2: tcombobox;
btn1: tbutton;
btn2: tbutton;
procedure btn2click(sender: tobject);
procedure formshow(sender: tobject);
procedure btn1click(sender: tobject);
private
public
end;
var  w_dyjpz: tw_dyjpz;
implementation
procedure tw_dyjpz.btn2click(sender: tobject);
begin
self.close;
end;
procedure tw_dyjpz.formshow(sender: tobject);//下拉列表顯示印表機
begin
cbb1.items.assign(printer.printers);
cbb1.itemindex := 0;
cbb2.items.assign(printer.printers);
cbb2.itemindex := 0;
end;
//建立新檔案
procedure newfile(filename:string;text:string);
var  f : textfile;
begin
if fileexists(filename) then deletefile(filename); 
assignfile(f, filename); 
rewrite(f); 
writeln(f,text);
closefile(f); 
end;
procedure tw_dyjpz.btn1click(sender: tobject);
var  inifile:tinifile;
begin
//獲取當前程式的路徑
inifile:=tinifile.create(inifilename);
//判斷ini檔案是否存在（不存在則建立）
if not fileexists(pchar(inifilename)) then
begin
newfile(inifilename,'[printerpz]');
//寫配置資訊
inifile.writestring('printerpz','bddyjpz',cbb1.text);
inifile.writestring('printerpz','tzsdyjpz',cbb2.text);
end ;
messagebox(handle,'設定成功！','提示資訊',mb_ok);
end;
end.

delphi 中配置檔案的使用（ ini）

ini 檔案是基於文字型別的格式檔案，用於儲存程式初始化和配置資料。ini檔案是有段 sections 和鍵 key 組成的，每個檔案可以有 n個段 每個段有方括號括起來 每個段可以有m個鍵，大致格式如下 secontion keyname1 value1 comment keyname2 valu...

delphi讀取 ini配置檔案

因工作需要最近開始學習delphi，可能是因為現在不熱門，網上搜好多問題和資料都搜不到或者不完全對症，整理記錄一下自己遇到的一些問題。在.ini檔案中寫資料庫鏈結字串和一些字段，這樣一些基本資料修改起來比較方便，下面來說一下delphi中讀取.ini檔案的過程。uses windows,messag...

Struts中使用多個xml配置檔案

在實際專案中使用struts，因為以前對struts看的比較多。儘管實際中沒開發過大的專案，當自己寫一些測試頁面什麼的還是做過的，所有熟悉的也比較快，就那麼幾個簡單的類，複雜的也不去研究。懶的去研究那些。不過聽說他的裡面有乙個struts可以分模組配置多個xml檔案。感覺不錯。主要是這樣可以分模組來...