错拉~~上面是1行读入
procedure TForm1.Button5Click(Sender: TObject);
var
FileA: TextFile;
TempString: string;
begin
Memo1.Lines.Clear;
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(FileA, OpenDialog1.FileName); { File selected in dialog }
Reset(FileA);
while not Eof(FileA) do
begin
Readln(FileA, TempString); { Read one line of file }
Memo1.Lines.Add(TempString);; { Put string in a TMemo control }
end;
CloseFile(FileA);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
FileA: TextFile;
TempString: string;
begin
Memo1.Lines.Clear;
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(FileA, OpenDialog1.FileName); { File selected in dialog }
Reset(FileA);
Readln(FileA, TempString); { Read first line of file }
Memo1.Lines.Add(TempString);; { Put string in a TMemo control }
CloseFile(FileA);
end;
end;
每行都有个数组号删就自己写吧