//1.alarm_switch:array[1..6,1..128] of TstringList;(TstringList 是什么类型?)
TStringList 类似于字符串数组
//2.Ini:TiniFile;(这个定义中TiniFile是什么类型?)
 用来都写Ini文件
//3.if not FileExists(DASPath + 'NETB0' + IntToStr(i)) then Exit;(其中的
//IntToStr(i)是什么函数?DASPath + 'NETB0' + IntToStr(i)的值是什么?)
IntToStr,将数字转化为字串
//4.f := FileOpen(S, fmOpenRead or fmShareDenyNone);(fmOpenRead or fmShareDenyNone是什么?)
fmOpenRead打开读,fmShareDenyNone,允许其它线程读写这个文件。
//5.S := Trim(Copy(S0, 1, 24));(这条语句是什么意思?其中Copy(S0, 1, 24)怎么解释它的参数?)
Copy(S0,1,24),吧S0的第1个至24个字符截下,Trim去掉开头和结尾的空格
//6. Readln(tf, S);
  //  S := Trim(S);(这段语句如何解释?)
从tf中读取一行字符,然后去掉头位空格
//7.i := 1; while (i <= Length(S)) and (S[i] <> ',') do Inc(i);
//    S0 := Trim(Copy(S, 1, i-1));(这段语句如何解释?其中Copy(S, 1,        i-1)怎么解释它的参数?) 
等一下在解释,游人催我了。
 

解决方案 »

  1.   

    1.alarm_switch:array[1..6,1..128] of TstringList;(TstringList 是什么类型?)
    字符窜列表
    2.Ini:TiniFile;(这个定义中TiniFile是什么类型?)
    ini文件(windows信息文件)
    3.if not FileExists(DASPath + 'NETB0' + IntToStr(i)) then Exit;(其中的
    IntToStr(i)是什么函数?
    类型转换,integer->string
    DASPath + 'NETB0' + IntToStr(i)的值是什么?)
    文件名+路径
    4.f := FileOpen(S, fmOpenRead or fmShareDenyNone);
    (fmOpenRead or fmShareDenyNone是什么?)
    只读+共享
    5.S := Trim(Copy(S0, 1, 24));(这条语句是什么意思?其中Copy(S0, 1, 24)怎么解释它的参数?)
    Copy(S0, 1, 24)--〉返回S0的子串,1--〉24字符
    trim(s)压缩s空格
    6. Readln(tf, S);
        S := Trim(S);(这段语句如何解释?)
    从tf句柄读取字串s并压缩其空格后返回给s7.i := 1; while (i <= Length(S)) and (S[i] <> ',') do Inc(i);
        S0 := Trim(Copy(S, 1, i-1));(这段语句如何解释?其中Copy(S, 1,        i-1)怎么解释它的参数?)
    见5
      

  2.   

    呵呵,问题倒不少,不过都很简单自己看HELP吧!
      

  3.   

    F1键啊
    呵呵
    例如:在copy后按F1键
      

  4.   

    //1.alarm_switch:array[1..6,1..128] of TstringList;(TstringList 是什么类型?)
    TStringList 类似于字符串数组
    //2.Ini:TiniFile;(这个定义中TiniFile是什么类型?)
    用来都写Ini文件
    //3.if not FileExists(DASPath + 'NETB0' + IntToStr(i)) then Exit;(其中的
    //IntToStr(i)是什么函数?DASPath + 'NETB0' + IntToStr(i)的值是什么?)
    IntToStr,将数字转化为字串
    5.S := Trim(Copy(S0, 1, 24));(这条语句是什么意思?其中Copy(S0, 1, 24)怎么解释它的参数?)
    Copy(S0, 1, 24)--〉返回S0的子串,1--〉24字符
    trim(s)压缩s空格
    6. Readln(tf, S);
        S := Trim(S);(这段语句如何解释?)
    从tf句柄读取字串s并压缩其空格后返回给s7.i := 1; while (i <= Length(S)) and (S[i] <> ',') do Inc(i);
        S0 := Trim(Copy(S, 1, i-1));(这段语句如何解释?其中Copy(S, 1,        i-1)怎么解释它的参数?)
    见5