抵
抵住诱惑
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
list: TStringList;
s:string;
begin
list := TStringList.Create;
list.LoadFromFile('c:/1.txt');// 载入1.txt 内容
s:=list[1]; //1.txt 的第二行内容。
showmessage(s);//将 s 的内容显示出来。
list.Free;
end;
end.
这段代码的功能注释已经很清楚了..
但是,我现在写的是一个控制台程序,如果要实现以上代码的功能,怎么搞呢??
var
list: TStringList;
s:string;
begin
list := TStringList.Create;
list.LoadFromFile('c:/1.txt');// 载入1.txt 内容
s:=list[1]; //1.txt 的第二行内容。
showmessage(s);//将 s 的内容显示出来。
list.Free;
end;
end.
这段代码的功能注释已经很清楚了..
但是,我现在写的是一个控制台程序,如果要实现以上代码的功能,怎么搞呢??