Cross Ref > Data Structures

Arrays in ASP Classic use a 0-based indice.

Use UBound to get the number of elements. UBound returns -1 if the array has no elements, 0 if it has 1, 1 if it has 2, etc.

Syntax Example:   Dim MyArray, i MyArray = Array("Mike", "Lisa", "Felicia", "Nathan") If UBound(MyArray) > -1 Then   For i = 0 to UBound(MyArray)     Response.Write MyArray(i)   Next End If

Delphi supports both static and dynamic arrays as well as single and multi dimensional arrays.

var
  MyArray: array[0..3] of string;
  i: Integer;
begin
  MyArray[0] := 'Mike';
  MyArray[1] := 'Lisa';
  MyArray[2] := 'Felicia';
  MyArray[3] := 'Nathan';

  for i := 0 to High(MyArray) do
    ShowMessage(MyArray[i]);
end;

 Delphi Array (x=Array[0..3] of string;)  

Use the scriptiing dictionary object which is available on later versions of ASP Classic (all still commonly in use).

Note: Both Access VBA and VB Classic use a collection for this but collections are not supported in ASP Classic.

Dim StateList

set StateList = Server.CreateObject("Scripting.Dictionary")
StateList.Add "CA", "California"
StateList.Add "NV", "Nevada"

Response.Write "I live in " & StateList.Item("CA")

 ASP Classic Associative Array (Scripting.Dictionary)

Object Pascal doesn't have a native associative array, but you can use a TStringList the same way. (Alternatively, search the Internet for TStringHash and THashedStringList classes for implementations of a true associative array).

var
  StateList : TStringList;
begin
  StateList := TStringList.Create; 

  StateList.CommaText := 'CA=California, FL=Florida';

  ShowMessage('FL is ' + StateList.Values['FL']);
end;

 Associative Arrays in Delphi/Object Pascal (Use TStringList)

ASP Classic does not offer developer defined pointers.

Although pointer data types in Delphi coding are less important and not required for most general coding, Delphi fully supports developer defined pointers. Use a carrot (^) to declare a pointer data type. Use the @ operator or Addr function to return the current address of a variable.

Delphi provides typed pointer types such as PChar and PExtended as well as a generic point to anything Pointer type.

Nil is a special pointer value that you can assign to any type of pointer. Nil never points to any valid memory and indicates an unassigned or empty pointer.

//Declare a pointer of type integer.

PCounter : ^Integer;

//Assign a value to the location of a pointer.

//Also known as dereferencing.

PCounter^ := 8;

//Assign address of A to B.

PointerB := @PointerA;  //or...PointerB := Addr(PointerA);