这是delphi的编写方法
使用TStringList对象操作即可
uses StrUtils;
procedure ReverseStringSaveToFile(AInput:AOutput:string);
var
T1,T2:TStringList;
i:Integer;
begin
T1:=TStringList.Create;
T2:=TString.Create;
T1.Items.LoadFromFile(AInputFile);
For i:=0 to T1.Items.Count-1 do
begin
T2.Items.Add(ReverseString(T1.Items.Strings[i]));
end;
T2.Items.SaveToFile(AOutput);
T1.Free;
T2.Free;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024