* Added first/lasr methods to TMimeItems and TUpLoadedFiles (Patch by Silvio Clecio)

git-svn-id: trunk@25093 -

packages/fcl-web/src/base/httpdefs.pp

@@ -176,6 +176,8 @@ type
     Function GetTempUploadFileName(Const AName, AFileName : String; ASize : Int64): String;
     Procedure DeleteTempUploadedFiles; virtual;
   public
+    Function First : TUploadedFile;
+    Function Last : TUploadedFile;
     Function IndexOfFile(AName : String) : Integer;
     Function FileByName(AName : String) : TUploadedFile;
     Function FindFile(AName : String) : TUploadedFile;
@@ -218,6 +220,8 @@ type
     Procedure CreateUploadFiles(Files : TUploadedFiles; Vars : TStrings); virtual;
     procedure FormSplit(var Cnt: String; boundary: String); virtual;
   Public
+    Function First : TMimeItem;
+    Function Last : TMimeItem;
     Property Parts[AIndex : Integer] : TMimeItem Read GetP; default;
   end;
   TMimeItemsClass = Class of TMimeItems;
@@ -1156,6 +1160,22 @@ begin
   {$ifdef CGIDEBUG}SendMethodExit('TMimeItems.FormSplit');{$ENDIF}
 end;
 
+Function TMimeItems.First: TMimeItem;
+begin
+  If Count = 0 then
+    Result := Nil
+  else
+    Result := Parts[0];
+end;
+
+Function TMimeItems.Last: TMimeItem;
+begin
+  If Count = 0 then
+    Result := nil
+  else
+    Result := Parts[Count - 1];
+end;
+
 { -------------------------------------------------------------------
   TRequest
   -------------------------------------------------------------------}
@@ -1658,6 +1678,22 @@ begin
     Files[i].DeleteTempUploadedFile;
 end;
 
+Function TUploadedFiles.First: TUploadedFile;
+begin
+  If Count = 0 then
+    Result := Nil
+  else
+    Result := Files[0];
+end;
+
+Function TUploadedFiles.Last: TUploadedFile;
+begin
+  If Count = 0 then
+    Result := nil
+  else
+    Result := Files[Count - 1];
+end;
+
 
 { ---------------------------------------------------------------------
   TUploadedFile