Question

delphi 如何运用LoadFromFile 读取DAT文件指定的值?

DAT文件内容如下：
7,5
cw 0,64
cw 1,101
cw 2,86
cw 3,83
cw 4,103
cw 5,108
cw 6,123
0,0,Shift Code
1,0,Reg Hrs Code
2,0,Ovt Hrs Code
3,0,Hol Hrs Code
4,0,HolOvt Hrs Code
5,0,Double Hrs Code
6,0,Uniform rate Y/N
0,1,LI
1,1,33
3,1,3
0,2,L2
1,2,3
2,2,4
3,2,4
0,3,M3
0,4,MN
如何才能读取到LI,L2,M3,MN。感谢各位了，请大虾们帮帮忙！！

Answer 1

什么叫“读取到L1,L2,M3,MN”，即L1，L2等分别是什么？
在你的文件中，是否期望L1就是L1和L2之间的内容，L2就是L2和M3之间的内容，......，MN是空串？

追问

就是很普通的文本啊。。

追答

还是没有说清楚想读取什么，难道就是读取LI、L2、M3、MN这四个由两个字符构成的字符串？

追问

是啊。。就是这四个字符串。

追答

var
SL : TStringList;
i : Integer;
s : string;
begin
SL := TStringList.Create;
try
SL.LoadFromFile( 'DAT文件名，全路径' );
for i := 0 to SL.Count - 1 do
begin
s := SL[i];
if Pos( 'LI', s ) > 0 then
ShowMessage( Format( '第%d行有LI', [i+1] ) );
if Pos( 'L2', s ) > 0 then
ShowMessage( Format( '第%d行有L2', [i+1] ) );
if Pos( 'M3', s ) > 0 then
ShowMessage( Format( '第%d行有M3', [i+1] ) );
if Pos( 'MN', s ) > 0 then
ShowMessage( Format( '第%d行有MN', [i+1] ) );
end;
finally
SL.Free;
end;
end;

你要的是这个效果？比较怀疑，感觉上你的问题描述依然不清晰。

Answer 2

占坑，明天到单位告诉你，资料在单位

追问

说说？