1
2
3
4

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

1
2
3
4

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

1
2
3
4

	Function TfrmProc.ChangeValue( pData : WideString; KeyVar: String; pIncr : Integer ) : WideString;
	VAR     X : Byte;
		 _lPosIni, _lPosEqual,	_lPosSep : smallint;
...

1
2
3

function TMylist.GetNameIndex(aName: Sting): integer;
var
...

1
2
3
4

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