救命啊！！INI文件操作！！！(100分)

一个例子！！！
[Ident]
Title=Half-Life
ShortTitle=HALFLIFE
DirName=HALFLIFE
我想读取表Ident里的所有字段，然后将他输出为文本！！
分别有3个字段Title，ShortTitle，DirName，但是我们读取操作的时候这3个我们不知道，让INI文件操作自动去读取他有几个字段。

求助那位大侠能帮我啊11

那位大哥能帮帮我啊

Reads the values from all keys within a section of an INI file into a string list.
Delphi syntax:
procedure ReadSectionValues(const Section: String; Strings: TStrings); override;

var
Buf, Pr: PChar;
begin
GetMem(Buf, 2048);
if GetPrivateProfileString('Ident', nil, nil, Buf, 2048, PChar(IniFileName)) <> 0 then begin
Pr:= Buf;
while Pr^ <> #0 do begin
...
Inc(Pr, StrLen(Pr)+1);
end;
end;
...

用这个方法试一下
uses inifiles;
var
ini:tinifile;
begin
ini:=tinifile.Create('./SETUP.INI');
edit1.text:=ini.readstring('Ident','Title','');
INI.Free;

给你一个ini文件编程方面的详细文档:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2559866

procedure TForm1.Button1Click(Sender: TObject);
var
IniFile: TIniFile;
StringList: TStrings;
i: Integer;
Value: String;
begin
StringList := TStringList.Create;
IniFile := TIniFile.Create('E:/a.ini');

IniFile.ReadSection('Ident', StringList);
for i := 0 to StringList.Count - 1 do
begin
Value := IniFile.ReadString('Ident', StringList, '');
showmessage(StringList + ' : ' + Value);
end;

IniFile.Free;
StringList.Free;
end;

好晕啊，等了好久才登陆进去，这个论坛真难进，等了差不多1个小时了，点了登陆，又要登陆！晕死！呵呵！

谢谢大侠们啊！特别感谢tjsnlc，dey-999，重点感谢dey-999，因为他给我的一个非常好的例子，佩服佩服！！！！

但是问题还是没有解决！！
showmessage(StringList + ' : ' + Value);
这一段，读取列表编号还有他的值时，我用的是DELPHI7能获取他的他的编号能获取到，但是他编号的值获取不到，求助一下，这个问题解决的马上送分了！！
啊啊=etert
获取到他的字段了，能得到（啊啊）还有（etert）但是获取不到！！！

谢谢大侠们，希望能快快救救偶！！

没看明白这个意思<<获取到他的字段了，能得到（啊啊）还有（etert）但是获取不到！！！>>

我存了一个Ini文件如下面,每个数据都能分别得到的
[Ident]
Title=Half-Life
ShortTitle=HALFLIFE
DirName=HALFLIFE
啊啊=etert

大侠，帮忙看看我的代码吧！！
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IniFiles;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
IniFile: TIniFile;
StringList: TStrings;
i: Integer;
Value: String;
begin
StringList := TStringList.Create;
IniFile := TIniFile.Create('D:/a.ini');
IniFile.ReadSection('movie', StringList);
for i := 0 to StringList.Count - 1 do
begin
Value := IniFile.ReadString('Ident', StringList, '');
showmessage(StringList + ' : ' + Value);
memo1.Lines.Add(StringList + ' : ' + Value);
end;
IniFile.Free;
StringList.Free;
end;
end.

但是MEMO1显示的是
哈哈 :
暗暗 :
啊啊 :
是 :

弹出窗口显示的跟MEMO的一样！！！

头晕，不知道怎么处理！！！

大侠，我知道了，呵呵，明白了！！！
IniFile.ReadSection('movie', StringList);
for i := 0 to StringList.Count - 1 do
begin
Value := IniFile.ReadString('Ident', StringList, '');

原来下面没有改，真是谢谢你了啊！
辛苦了，来亲你喝你杯水[^]

真的很感谢！！！

怎么给分啊？
怎么选择了分没有确定按钮啊？