Changeset 129 for Generics/TemplateGenerics/Generic

Timestamp:

Jan 17, 2011, 6:55:36 AM (14 years ago)

Author:

george

Message:

• Modified: Thread exception handling through global handler.
• Modified: CoolStreaming BitStream demo use AsString property.

File:

• Generics/TemplateGenerics/Generic/GenericList.inc (modified) (9 diffs)

Generics/TemplateGenerics/Generic/GenericList.inc

@@ -110 +110 @@
 function TGList.Get(Index: TGListIndex): TGListItem;
 begin
+  if (Index < 0) or (Index >= Count) then
+    raise EListError.CreateFmt(SListIndexError, [Index]);
   Result := FItems[Index];
 end;
@@ -115 +117 @@
 procedure TGList.Put(Index: TGListIndex; const AValue: TGListItem);
 begin
+  if (Index < 0) or (Index >= Count) then
+    raise EListError.CreateFmt(SListIndexError, [Index]);
   FItems[Index] := AValue;
 end;
@@ -175 +179 @@
   I := 0;
   while I < Count do begin
-    Items[I] := Source[I];
+    FItems[I] := Source[I];
     I := I + 1;
   end;
@@ -247 +251 @@
     raise EListError.CreateFmt(SListIndexError, [0])
   else
-    Result := Items[FCount - 1];
+    Result := FItems[FCount - 1];
 end;
 
@@ -255 +259 @@
     raise EListError.CreateFmt(SListIndexError, [0])
   else
-    Items[FCount - 1] := AValue;
+    FItems[FCount - 1] := AValue;
 end;
 
@@ -263 +267 @@
     raise EListError.CreateFmt(SListIndexError, [0])
   else
-    Result := Items[0];
+    Result := FItems[0];
 end;
 
@@ -271 +275 @@
     raise EListError.CreateFmt(SListIndexError, [0])
   else
-    Items[0] := AValue;
+    FItems[0] := AValue;
 end;
 
@@ -401 +405 @@
   I := 0;
   while I < Count do begin
-    Result := Result + Converter(Items[I]);
+    Result := Result + Converter(FItems[I]);
     if I < (Count - 1) then
       Result := Result + Separator;
@@ -469 +473 @@
   I := Start;
   while I < Count do begin
-    Items[I] := Value;
+    FItems[I] := Value;
     I := I + 1;
   end;