怎么写一个配置文件，配置我下面的参数啊？？？？？？？？？？？？？？？？？？？？？？？？

Question

if DOpen(edip,edport,edname,edpart) <0 then    //这4个参数我怎么写配置文件啊

Answer 1

用INIFiles即可实现然后在窗体创建的时候，读取出来
并赋值给edip,edport,edname,edpart如果要求完善一点的话，可以再给个功能来修改这些值

Answer 2

//文件内容a.txt
edip=127.0.0.1
edpor=80
edname=user
edpart=111//读取参数
var
  sl : TSringList;
  edip,edport,edname,edpart : String;
begin
  sl := TSringList.Create;
  sl.LoadFromFile('a.txt');  edip := sl.Values['edip'];
  edport := sl.Values['edport' ];
  edname := sl.Values['edname'];
  edpart := sl.Values['edpart'];  if DOpen(edip,edport,edname,edpart) <0 then 
end;

Answer 3

sl : TSringList;
怎么报错啊
是不是要包含什么文件啊，说没定义

Answer 4

sl.LoadFromFile('a.txt');
要写上绝对地址

Answer 5

写错了
sl : TStringList;