//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)怎么解释它的参数?)
等一下在解释,游人催我了。
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)怎么解释它的参数?)
等一下在解释,游人催我了。
字符窜列表
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
呵呵
例如:在copy后按F1键
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