From 920503b18c0ccce2cd8c7b2c426cd473c22712ff Mon Sep 17 00:00:00 2001 From: wesov <99448773+wesov@users.noreply.github.com> Date: Sat, 2 Apr 2022 13:11:37 +0800 Subject: [PATCH] Update MVC.Controller.pas --- MVC5.0/SDK/MVC.Controller.pas | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/MVC5.0/SDK/MVC.Controller.pas b/MVC5.0/SDK/MVC.Controller.pas index a3309ee..e8465b2 100644 --- a/MVC5.0/SDK/MVC.Controller.pas +++ b/MVC5.0/SDK/MVC.Controller.pas @@ -525,12 +525,12 @@ function TController.UpFiles(filedir: string = ''; filename: string = ''): strin begin CreateDir(path); end; - s := ExtractFileName(Request.Files[k].filename); + s := ExtractFileName(Request.Files[i].filename); if filename.Trim <> '' then begin p := ''; - if k > 0 then - p := k.ToString; + if i > 0 then + p := i.ToString; filetmp := filename.Trim + p + copy(s, Pos('.', s), s.Length - pos('.', s) + 1) end else @@ -540,8 +540,8 @@ function TController.UpFiles(filedir: string = ''; filename: string = ''): strin FFileName := path + '\' + filetmp; Afile := TFileStream.Create(FFileName, fmCreate); try - Request.Files[k].Stream.Position := 0; - Afile.CopyFrom(Request.Files[k].Stream, Request.Files[k].Stream.Size); //测试保存文件,通过。 + Request.Files[i].Stream.Position := 0; + Afile.CopyFrom(Request.Files[i].Stream, Request.Files[i].Stream.Size); //测试保存文件,通过。 finally Afile.Free; end;