var
i,i1,i2: String;begin
i := 'MyData.ini';
i1 := 'MyData1.ini';
i2 := 'MyData2.ini';
if FileExists(i1) then
begin
ReNameFile(i,i2);
ReNameFile(i1,i);
end
else if FileExists(i2) then
begin
RenameFile(i,i1);
RenameFile(i2,i);
end;
end;
end.我只转换了if部分,else部分转换不出来了,帮一下忙吧,谢谢!
我转换的前半部分是:
if exist MyData1.ini ren MyData.ini MyData2.ini ren MyData1.ini MyData.ini
i,i1,i2: String;begin
i := 'MyData.ini';
i1 := 'MyData1.ini';
i2 := 'MyData2.ini';
if FileExists(i1) then
begin
ReNameFile(i,i2);
ReNameFile(i1,i);
end
else if FileExists(i2) then
begin
RenameFile(i,i1);
RenameFile(i2,i);
end;
end;
end.我只转换了if部分,else部分转换不出来了,帮一下忙吧,谢谢!
我转换的前半部分是:
if exist MyData1.ini ren MyData.ini MyData2.ini ren MyData1.ini MyData.ini
if exist MyData1.ini (
ren MyData.ini MyData2.ini
ren MyData1.ini MyData.ini
) else if exist MyData2.ini (
ren MyData1.ini MyData.ini
ren MyData2.ini MyData.ini
)
if exist MyData1.ini goto MyData1
if exist MyData2.ini goto MyData2
goto end:MyData1
ren MyData.ini MyData2.ini
ren MyData1.ini MyData.ini
goto end:MyData2
ren MyData.ini MyData1.ini
ren MyData2.ini MyData.ini:end