Delphi操作文本的问题？

比如一个文本内建的内容是：

aaaaaaaaabbbbaaaccaaaccddccaacaafas

如何统计a的个数，如何将非a的字母删除，将a留下

不要用正则表达式。

谁愿意帮帮我？

谢谢

楼上没有对文件进行操作

比如桌面有一个txt文件, 里面的内容是aaaaaaaaabbbbaaaccaaaccddccaacaafas

先附上运行和测试截图

附上程序, 不明白可以加Q 2723.99954

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
  s: string;
  i, count: Integer;
begin
  List := TStringList.Create;
  List.LoadFromFile('D:\我的文档\桌面\X.Rabbit1.txt');
  s := List[0];
  List.Clear;
  List.Add('');
  count := 0;
  for i := 1 to Length(s) do
    if s[i] = 'a' then
    Inc(count);
  Setlength(s, count);
  for i := 1 to count do
    s[i] := 'a';
  List[0] := s;
  List.SaveToFile('D:\我的文档\桌面\X.Rabbit2.txt');
  ShowMessage('a有 ' + IntToStr(count) + ' 个');
  List.Free;
end;

var

   i,sum:integer;

  str:string;

begin

  sum:=0;

  str:='aaaaaaaaabbbbaaaccaaaccddccaacaafas';

  for i:=1 to length(str) do

  begin

    if str[i]='a' then

    inc(sum);

  end;

end;

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息