读文本数据问题,代码已有!但有个小小问题. ( 积分: 50 )

  • 主题发起人 主题发起人 抵住诱惑
  • 开始时间 开始时间

抵住诱惑

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.

这段代码的功能注释已经很清楚了..

但是,我现在写的是一个控制台程序,如果要实现以上代码的功能,怎么搞呢??
 
log3是什么函数 ? 没见过 倒是见过log2
别的 可以用鼠标左键 + ctrl 看看 需要什么单元
然后 uses 如 TStringList 需要uses Classes
还可以借助帮助
祝你好运
 
没人帮帮我吗?
 
program Project1;

{$APPTYPE CONSOLE}

uses
Classes,
Windows{,
Dialogs};

procedure LoadText;
var
list: TStringList;
s:string;
begin
list := TStringList.Create;
try
list.LoadFromFile('c:/1.txt');// 载入1.txt 内容
s := list[1]; //1.txt 的第二行内容。
WriteLn(s); //将 s 的内容显示出来。
// showmessage(s);
Readln;

finally
list.Free;
end;
end;

begin
LoadText;
end.
 
楼上的回答很正确了
控制台输出就用 Write 或 WriteLn
 
接受答案了.
 

Similar threads

回复
0
查看
867
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
后退
顶部