function IndexOfValue(const List: TStrings; const Value: String): Integer;
  var
    I: Integer;
...

function IndexOfValue(const List: TStrings; const Value: String): Integer;
  var
    I: Integer;
...

type
  TProcedureParam = procedure;

...

Delphi On What has been called a &quo...

by Ants, December 31, 2010 11:50

That code is a nice pile of...

unit Unit1;

interface
...

Delphi On Draw Canvas Arrow

by DarkAxi0m, December 08, 2010 00:50

i have not done much to the...

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

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

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

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

Delphi On Change Value Or Word in a W...

by ahuser, February 22, 2009 11:00

This code is is based on yo...

// not tested

var
...

Delphi On Change Value Or Word in a W...

by X-Ray, February 21, 2009 17:46

this comment doesn't direct...

type
  THashValue = Cardinal;

...

Delphi On custom index for class(TList)

by ahuser, February 12, 2009 17:32

And this is the code that u...

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

Delphi On custom index for class(TList)

by ahuser, February 12, 2009 11:52

The following code should b...

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

Delphi On Array Helper Functions

by Andreas Hausladen, February 04, 2009 11:26

How did you get this to com...

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