怎么载入notepad 中的字符

Question

目录为 C:\1.text    我想定义一个string,每次载入1.text中的一行字符 .怎么办?

Answer 1

var   F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Reset(F);
    Readln(F, S);                        { Read first line of file }
    Edit1.Text := S;                     { Put string in a TEdit control }
    CloseFile(F);
  end;

Answer 2

比较简单的方式：建立一个StringList，使用LoadFromFile载入。程序如下
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  strs : TStrings;
  iRowCount : integer;//行数
  sResult : string;
begin
  strs := TStringList.Create;
  strs.LoadFromFile('C:\1.text');
  for iRowCount := 0 to strs.Count-1 do
  begin
    sResult := sResult + strs[iRowCount];
  end;
  Edit1.Text := sResult;
  strs.Free;
end;end.

Answer 3

List:Tstringlist;List:=Tstringlist.create();
List.loadfromfile(1.text)showmessage(list.string[0]);
showmessage(list.string[1]);