1
2
3
4

program TestChangeValue;
{$APPTYPE CONSOLE}
uses Classes, SysUtils;
...

1
2
3
4

function getFirstElementTextByName(const ElementName: string; const XMLDoc: IXMLDocument): string;
var
  NodeList: IDOMNodeList;
...

1
2
3
4

function indexOfValue(list : TStrings; value : string): integer;
begin
  Result := list.IndexOf(value);
...

1
2
3
4

{$IFNDEF UNICODE} // pre Delphi 2009
type
  UnicodeString = WideString;
...

1
2
3
4

// not tested

var
...

1
2
3
4

type
  THashValue = Cardinal;

...

1
2
3
4

function TMylist.GetNameIndex(const aName: string): integer; // use "const" for strings to eliminate the injected try/finally
var
  LocalList: PPointerList;
...

1
2
3
4

{$IF not declared(TBytes)}
type
  TBytes = array of Byte;
...

1
2
3

procedure CopyIntoArray(var DestArray: Array of Byte; SourceArray: Array of Byte; StartIndex: integer);
begin
...