标题：GETINIFILE函数

读取INI文件的GETINIFILE函数，为什么有时候没办法获取到INI文件里面的值啊，ini文件里面明明有很多条，但是就是读取不到。

有时候正常读取，但大多数情况，都读取不了，读取出来的都是0

请举个具体的例子说明并上穿ini文件

公式分为两个。一个是写的，一个是读取的。

VARIABLE:A[3]=0;

A[1]:=N1;

A[2]:=M2;

A[3]:=Q3;

Z:='';

FOR I:=1 TO 3 DO THEN BEGIN

Z:=STRCAT(Z,NUMTOSTR(A[I],0));

END

WRITEINIFILE('C:\S.INI',Z,'SJ',number);

//这上面是写入ini的

 

 

 

VARIABLE:A[3]=0;

A[1]:=N1;

A[2]:=M2;

A[3]:=Q3;

Z:='';

FOR I:=1 TO 3 DO THEN BEGIN

Z:=STRCAT(Z,NUMTOSTR(A[I],0));

END

AAA:=GETINIFILE('C:\S.INI',Z,'SJ',number);

//这里是读取INI的

这两条公式分为两个公式保存，但是这公式可以正常写入到文件，但是却没办法正常读取ini文件

另外读取ini文件的公式里面AAA返回的都是0；N1 M2 Q3 是会变动的数字，分别都是1-5这五个数字。。也就是说Z 是等于115 125 152 521 511 这类的数字组合的字符串

请把代码都贴出来，给的代码无法通过编译

 

公式分为两个。一个是写的，一个是读取的。

VARIABLE:A[3]=0;

KRSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;K:=SMA(KRSV,3,1);D:=SMA(K,3,1);J:=3*K-2*D;

A[1]:=K;

A[2]:=D;

A[3]:=J;

Z:='';

FOR I:=1 TO 3 DO THEN BEGIN

Z:=STRCAT(Z,NUMTOSTR(A[I],0));

END

WRITEINIFILE('C:\S.INI',Z,'SJ',number);

//这上面是写入ini的

 

 

 

VARIABLE:A[3]=0;

KRSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;K:=SMA(KRSV,3,1);D:=SMA(K,3,1);J:=3*K-2*D;

A[1]:=K;

A[2]:=D;

A[3]:=J;

Z:='';

FOR I:=1 TO 3 DO THEN BEGIN

Z:=STRCAT(Z,NUMTOSTR(A[I],0));

END

AAA:=GETINIFILE('C:\S.INI',Z,'SJ',number);

//这里是读取INI的

这两条公式分为两个公式保存，但是这公式可以正常写入到文件，但是却没办法正常读取ini文件,读取ini文件的公式里面AAA返回的都是0；

 

代码还是有问题：

1.两段代码里面都多了一个then

2.第一段代码里面number未定义，第二段代码getinifile参数和预定义的不符合

 

公式分为两个。一个是写的，一个是读取的。

VARIABLE:A[3]=0;

KRSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;K:=SMA(KRSV,3,1);D:=SMA(K,3,1);J:=3*K-2*D;

A[1]:=K;

A[2]:=D;

A[3]:=J;

Z:='';

FOR I:=1 TO 3 DOBEGIN

Z:=STRCAT(Z,NUMTOSTR(A[I],0));

END

WRITEINIFILE('C:\S.INI',Z,'SJ',KRSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;K:=SMA(KRSV,3,1);D:=SMA(K,3,1);J:=3*K-2*D;

A[1]:=K;

A[2]:=D;

A[3]:=J;

Z:='';

FOR I:=1 TO 3 DO BEGIN

Z:=STRCAT(Z,NUMTOSTR(A[I],0));

END

AAA:=GETINIFILE('C:\S.INI',Z,'SJ');

//这里是读取INI的

这两条公式分为两个公式保存，但是这公式可以正常写入到文件，但是却没办法正常读取ini文件,读取ini文件的公式里面AAA返回的都是0；