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 

解决方案 »

  1.   

    win 2k 以上
    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
    )
      

  2.   

    win 98
    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