方法一:用Strings
假设你的数组是字符型,名字为Arr;
procedure TForm1.Button1Click(Sender: TObject);
var
vStrsList :TStrings;
i : integer;
begin
vStrsList := TStringList.Create;
for i := 0 to High(Arr) do
begin
vStrsList.Add(Arr);
vStrsList.savetofile('d:/Strs.txt');
end;
end;