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
************************************************************************************
ReplyMan:LSUPER
Answer:用 goto:
if exist MyData1.ini goto REN_FILE1
if exist MyData2.ini goto REN_FILE2
goto REN_EXIT
:REN_FILE1
ren MyData.ini MyData2.ini
ren MyData1.ini MyData.ini
goto REN_EXIT
:REN_FILE2
ren MyData.ini MyData1.ini
ren MyData2.ini MyData.ini
:REN_EXIT