1:
2:
3:
4:
5:

function getMatchList : TMatchList; stdcall;
begin
  result := internetSource.loadData;
//  showmessage(matchList.getMatch(1).match)
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

  TMatchList = class (TList)
    private
      var
        pMatch : TMatch;
    public
      function getMatch (id : byte) : TMatch;
      ...
  end;

function TMatchList.getMatch (id : byte) : TMatch;
begin
  if id < pMatch.id then
    result := (pPrev as TMatchList).getMatch(id)
  else if id > pMatch.id then
    result := (pNext as TMatchList).getMatch(id)
  else
    result := pMatch
end;					

1:
2:
3:
4:
5:
6:
7:

  TList = class
    published
      var
        pPrev : TList;
        pNext : TList;
        ...
  end;					

1:
2:
3:
4:
5:
6:
7:

  TMatchList = class (TList)
    private
        pMatch : TMatch;
    public
      function getMatch (id : byte) : TMatch;
      ...
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

constructor TTickerDLL.load (tickerDLLFile : String);
begin
  pPath := PChar(tickerDLLFile);
  try
    lib := loadLibrary(PChar(tickerDLLFile));
    if lib = 0 then
      raise exception.Create('Fehler : Die angegebene Datei ist keine Library.')
    else
      begin
        @loadPlugin := GetProcAddress(lib,'loadPlugin');
        @getMatchList := GetProcAddress(lib,'getMatchList');
        @setCompetition := GetProcAddress(lib,'setCompetition');
        if not (Assigned(loadPlugin) and Assigned(loadPlugin) and Assigned(setCompetition)) then
          raise exception.Create('Fehler : Die angegebene Datei ist kein gültiges Fussball-Reporter-PlugIn'+#10#13+'oder hat ungültige API-Version.');
        pCompetitions := TStringList.Create;
        if not loadPlugin(pDescription,pFileName,pVersion,pProgrammer,pVersionAPI,pCompetitions) then
          raise exception.Create('Fehler : Beim Laden des PlugIns ist ein Fehler aufgetreten!');
        if PLUGIN_API_VERSION <> pVersionAPI then
          raise exception.Create('Fehler : Die API-Version ist verschieden!'); 
      end
  except
    on e : exception do
      begin
        if lib <> 0 then FreeLibrary(lib);
        raise exception.Create(e.Message)
      end
  end
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function TTickerDLL.getGetMatchList : TMatchList;
var
  matchList : TMatchList;
begin
  try
    result := getMatchList;
//    showmessage('Match 2:'+result.getMatch(1).match);
  except
    on e:exception do
      begin
        if not assigned(result) then result := TMatchList.create;
        raise Exception.Create(e.Message)
      end
  end
end;