我的*.pas文件变成了这样,而且打不开窗体,不知为什么,(20分)

文件头:<br><br>object FormModifyFee: TFormModifyFee<br> &nbsp;Left = 44<br> &nbsp;Top = 9<br> &nbsp;Width = 876<br> &nbsp;Height = 636<br> &nbsp;Caption = #33337#21209#36939#36027<br> &nbsp;Color = clBtnFace<br> &nbsp;Font.Charset = DEFAULT_CHARSET<br> &nbsp;Font.Color = clWindowText<br> &nbsp;Font.Height = -11<br> &nbsp;Font.Name = 'MS Sans Serif'<br> &nbsp;Font.Style = []<br> &nbsp;Menu = mm1<br> &nbsp;OldCreateOrder = False<br> &nbsp;WindowState = wsMaximized<br> &nbsp;OnCreate = FormCreate<br> &nbsp;OnShow = FormShow<br> &nbsp;PixelsPerInch = 96<br> &nbsp;TextHeight = 13<br>..........<br>....<br>..<br>procedure TFormModifyFee.btn10Click(Sender: TObject);<br>....<br>...<br>..<br><br><br>编译正确,用什么办法能还原呢?

这个本来就是窗体文件，而不是pas文件。

汗，楼主不知道哪里看错了

正常,UNICODE码.不需要还原,用Delphi打开应该可以看到.

是文件头变了,可能是计算机异常关机造成的.下面为:<br>procedure TFormModifyFee.btn10Click(Sender: TObject);<br>var<br> MsExcel,MsExcelworkbook,MsExcelWorkSheet : Variant;<br> i : Integer;<br> MyPath : string;<br>begin<br><br> MsExcel := CreateOleObject('Excel.Application');<br> //MsExcelWorkbook := MsExcel.Workbooks.add;<br> try<br> MyPath := ExtractFilePath(Application.ExeName)+'/ExcelApp';<br> MsExcel.WorkBooks.open(MyPath+'/CW_002.xlt');

gear1023说的对,但我打不开窗体呢?不知该怎么办?

这不是.Pas文件啊<br>打开窗体：Shift+F12<br>查看单元文件Ctrl+F12

将你这个文件前面的窗体部分剪切到一个新文件并保存为同名的DFM文件试试。

我的窗体文件有而正确,我现在不知道这一原因是怎么形成的,有没有好的解决办法.

异常关机了，我碰到过这情况，好像只有重做了，如果窗体比较大，那就工作量够大的

多人接受答案了。