源码改错

Question

procedure Tdebase64.debase;
var
outfile:string;
InStream,OutStream: TFileStream;
base64:TNMUUProcessor;
begin
    outfile:=infile+'txt';
    InStream := TFileStream.Create(infile, fmOpenRead);
    OutStream := TFileStream.Create(outfile, fmCreate);
    //放在这。再出现你那warning,我就....
    base64.Create(nil);
    //
    try      
      //base64.Create(nil);
      base64.Method:=uuMIME;
      base64.InputStream:=InStream;
      base64.OutputStream:=OutStream;
      base64.Decode;
    finally
      InStream.Free;
      OutStream.Free;
      base64.Free;  //finally部分的free对象要在try 之前create.
    end;
end;