这样的效果如何实现？ 关于INI文件操作

Question

有一个TXT文件：
0.041258
0.041257
0.041259
0.041257
0.041258
0.041257
0.041259
0.041257我先读出里面的内容然后写成一个INI文件：
H[1]=0.041258
H[2]=0.041257
H[3]=0.041259
H[4]=0.041257
H[5]=0.041258
H[6]=0.041257
H[7]=0.041259
H[8]=0.041257怎么实现呢

Answer 1

var
  MyIniFile: TIniFile;
  F: TextFile;
  ss:tstrings;
  s:string;
begin
ss:=tsrings.create(nil);
ss.clear;
  if OpenDialog1.Execute then  begin
    AssignFile(F, OpenDialog1.FileName);
    Reset(F);
    while not EOF then 
    begin
    Readln(F, S);
    ss.add(s)
    CloseFile(F);
  end;
  MyIniFile := TIniFile.Create('myapp.ini');
  for i:= 1 to ss.count do
    MyIniFile.WriteString('Transfer', 'H[' + IntToStr(i) + ']',ss[i-1]);
  MyIniFile.Free;
end;

Answer 2

var
  MyIniFile: TIniFile;
  F: TextFile;
  ss:tstrings;
  s:string;
begin
  ss:=tsrings.create(nil);
  ss.clear;
  if OpenDialog1.Execute then  begin
    AssignFile(F, OpenDialog1.FileName);
    Reset(F);
    while not EOF then 
    begin
      Readln(F, S);
      ss.add(s)
    end;//不好意思，上面写错了
    CloseFile(F);
    MyIniFile := TIniFile.Create('myapp.ini');
    for i:= 1 to ss.count do
      MyIniFile.WriteString('Transfer', 'H[' + IntToStr(i) + ']',ss[i-1]);
    MyIniFile.Free;
  end;
end;

Answer 3

直接用TStringList就可以读了。
procedure TForm1.Button1Click(Sender: TObject);
var
  strs:TStringList;
  i:integer;
  MyINI:TINIFile;
begin
  MyINI:=TINIFile.Create('E:\b.txt');
  strs:=TStringList.Create;
  strs.LoadFromFile('E:\a.txt');
  for i:=0 to strs.Count-1 do
    MyINI.WriteString('Result','H[' + IntToStr(i) + ']',strs[i]);
end;
D7下测试通过。

Answer 4

var
   TxtList:Tstrings;
   ini:TInifile;
   i:integer;
begin
     TxtList:=TstringList.Create;
     TxtList.LoadFromFile(YourFileName);
     ini:=TiniFile.Create(YourIniFileName);
     for i:=1 to TxtList.Count do
      ini.WriteString('Transfer', 'H[' + IntToStr(i) + ']',TxtList[i-1]);     TxtList.Free;
     Ini.Free;
end;