如何能读入文本，然后一次取出一行进行操作？

Question

将文本文件读入什么样类型的变量或控件中（应该是非可视控件，可以实现类似Memo的功能)可以一次取出一行的内容进行操作？

Answer 1

var sl: TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('c:\a.txt');
  ShowMessage(sl[0]);
  sl.Free;
end;

Answer 2

抢先
        assignfile(text,s_file);
        reset(text);//读状态
        try
                //while not eof(text) do begin
                readln(text,s_text);//读一行
        finally
                closefile(text);
        end;

Answer 3

VAR TEXT:TEXTFILE;
assignfile(text,s_file);
reset(text);
while not eof(text) do begin
readln(text,s_text);
DO SOMETHING
END;
closefile(text);
        end;

Answer 4

呵呵，var
  f: TextFile;
  s: String;
begin 
  AssignFile(f, 'c:\a.txt');
  reset(f);
  while not eof(f) do
  begin
    readln(f, s);
    { Do Something...}
  end;
  CloseFile(f);
end;

Answer 5

给你一个我写的编辑器 的程序，我想应该对你有些用处：
/////////////////////////////////////////////////////////////////
unit Unit1;interfaceuses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, ComCtrls;type
    TForm1 = class(TForm)
        RichEdit1: TRichEdit;
        open: TButton;
        save: TButton;
        OpenDialog1: TOpenDialog;
        SaveDialog1: TSaveDialog;
        procedure openClick(Sender: TObject);
        procedure saveClick(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;var
    Form1: TForm1;
    filename: string;
implementation{$R *.dfm}procedure TForm1.openClick(Sender: TObject);
var
    ff: textfile;
    str: string;
begin
    richedit1.Clear;
    opendialog1.Execute;
    if opendialog1.FileName <> '' then
    begin
        filename := opendialog1.FileName;
        assignfile(ff, filename);
        reset(ff);
        while not Eof(ff) do
        begin
            readln(ff, str);
            richedit1.Lines.Add(str);
        end;
        closefile(ff);
    end;end;procedure TForm1.saveClick(Sender: TObject);
var
    ff: textfile;
    str: string;
    i: integer;
begin
    savedialog1.Execute;
    if savedialog1.FileName <> '' then
    begin
        filename := savedialog1.FileName;
        assignfile(ff, filename);
        rewrite(ff);
        for i := 0 to richedit1.Lines.Count do
        begin
            writeln(ff, richedit1.Lines[i]);
        end;
        closefile(ff);
    end;end;end.

Answer 6

var ss: TStrings;
begin
  ss := TStrings.Create;
  ss.LoadFromFile('1.txt');
end;