Question

delphi richedit的简单问题

麻烦高手帮小弟写一段delphi 中richedit 代码。内容是通过一个按钮从一个文本文件（.txt)读入内容到richedit中，而且文本文件中的内容是每行一个数字，把每行的数字读入一个自定义的double数组中。小弟初学delphi，所以请高手写代码的时候尽量详细点，谢谢
找不到学习资料才来知道的啊~~~~~~~

Answer 1

用个OpenDialog控件

在按钮里写
procedure TForm1.Button1Click(Sender: TObject);
var
strlist: TStringList; //字符串数组
i: Integer;
begin
if OpenDialog1.Execute then
RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
i:= 0;
strlist:= TStringList.Create;
while i < RichEdit1.Lines.Count do//添加到数组里
begin
strlist.Add(RichEdit1.Lines[i]);
i:= i + 1;
end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
a:array[1..10000] of double;
begin
richedit1.Lines.LoadFromFile('d:\a.txt');
for i:=0 to richedit1.Lines.Count-1 do
a[i+1]:=strtofloat(richedit1.Lines.Strings[i]);
end;

Answer 3

初学者还是自己练练比较好，是吧。