关于提取TXT和INI文件的问题。。急急急急。。。

Question

.txt用Readln()读，*.ini用TiniFile对象，
ReadSectionValues（const Section:String;String:TString）
"Key=Value"

Answer 1

关于提取TXT和INI文件的方法：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,IniFiles;type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  MyIni: TiniFile;
implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
var
  MyText:TextFile;
  s1:String;begin
  // 读Text文件
  AssignFile(Mytext,'c:\Test\kmStart.txt');
  Reset(MyText);
  memo1.Clear;
  Try
    while not eof(Mytext) do
    begin
       Readln(MyText,s1);
       memo1.Lines.Add(s1);
    end;  Finally
     CloseFile(Mytext);
  end;
  // 读INI文件
  Myini:=TiniFile.Create('C:\test\test.ini');
  edit1.Text:=Myini.ReadString('MySection','Mykey','MyValue');end;procedure TForm1.FormDestroy(Sender: TObject);
begin
     // 写INI文件
    Myini.WriteString('MySection','Mykey',DateToStr(now));
    Myini.Destroy;
end;end.

Answer 2

提取用tstring更好
var
  tl:tstrings;tl:=tstringlist.create;
tl.LoadFromFile('你的文本');