procedure TForm1.Button3Click(Sender: TObject);
var
F1: TextFile; //文件句柄
str: Char;
i: integer;
arr: array[0..25] of integer; //保存统计的频率情况
t_sour: string; //密文文件
begin
for i := 0 to 25 do
arr[i] := 0; //初始化数组 arr,用来保存密文中英文字符的出现频率
t_sour := 'D:\miwen.txt';
AssignFile(F1,t_sour);
Reset(F1);
while not Eof(F1) do //对密文文件进行循环
begin
Read(F1, str); //读一个字符到 str
i := ord(str) - ord('A'); //判断是哪一个字母
if (i >= 0) and (i<26) then //如果是英文字符则统计, 否则忽略
arr[i] := arr[i] + 1; //进行统计
end;
怎么操作啊？

那一个F1怎么定义的？

看书去

procedure TForm1.Button1Click(Sender: TObject);
var
F1: TextFile; //文件句柄
str: Char;
i: integer;
arr: array[0..25] of integer; //保存统计的频率情况
t_sour: string; //密文文件
begin
for i := 0 to 25 do
arr[i] := 0; //初始化数组 arr,用来保存密文中英文字符的出现频率
t_sour := 'G:\miwen.txt';
AssignFile(F1,t_sour);
Reset(F1);
while not Eof(F1) do //对密文文件进行循环
begin
Read(F1, str); //读一个字符到 str
i := ord(str) - ord('A'); //判断是哪一个字母
if (i >= 0) and (i<26) then //如果是英文字符则统计, 否则忽略
arr[i] := arr[i] + 1; //进行统计
end;
CloseFile(F1);
end;