Question

delphi怎样打开一个文本文件

有两个控件buttuon1,edit1

我想点button1.让edit1有个垂直滚动条，让文字显示在文本里面；

用delphi怎么做？

Answer 1

通常来说，编辑控件中， Edit 控件适用于编辑单行文本的场合。

如果需要显示垂直滚动条的这种多行文本，建议使用 Memo 控件。

示例代码：

procedure TForm1.btn2Click(Sender: TObject);
begin
  mmo1.Lines.LoadFromFile('d:\test.txt');//打开文本文件
  mmo1.ScrollBars := ssVertical; //显示垂直滚动条
end;

Answer 2

1、edit控件没有垂直滚动条，改用memo控件，设置sScrollBars=ssVertical
2、
procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;
s,sFileName: string;
begin
sFileName :='c:\1.sql';
AssignFile(f, sFilename);
Reset(f);

while not Eof(f) do
begin
Readln(f, s);
Memo1.Lines.Add(s) ;
end;

CloseFile(f);
end;

Answer 3

使用Memo控件。可以将文件直接导入Memo1.Lines.LoadFromFile('C:\123.txt');

Answer 4

你说的Edit有滚动条的情况在C#中有.
在Delphi中没有的.
如果想使用的话可以直接使用Memo
然后其它设置和1楼所说一样!