Bitte CODE prüfen - bekomme Immer eine Zugriffsverletzung???

[SimStar001]

Zitat:

und war das nicht so:
Delphi-Quellcode: markieren
var
VarArray : array [0..128] of integer;


das High( VarArray ) auch 128 liefert Grübelnd...

NEIN high liefert den Höchsten Index der übergebenen Variable! in dem Fall 127!!!


So ich habe mal noch die Unterfunktion DoGetSpeakers überarbeitet, ich denke da war ein denkfehlr drin!

Delphi-Quellcode:

function DoGetSpeakers : pchar;
var
  IDs : Array[0..1023] of Integer;
  Records : Integer;
  I, u: integer;
  PlayersInfo : Array[0..1023] of TtsrPlayerInfo;
  ID : integer;
begin
  result := '';
  Records := 1024;
  try
 if not DisplayResult(tsrGetSpeakers(@playersInfo, @records) ) then exit;
  //if Records > 0 then ;
  for I :=0 to Records-1 do
    begin
    ID :=  PlayersInfo[i].PlayerID ;

    for u := 0 to high(Player) do
      if Player[u].id = Id then
        begin
        result := pchar(player[u].Name);
        break;
        end;
    end;

  except
    On E:Exception Do
        hLog.AddException(E);
        end;
end;

ich werde weiter testen und mir den ganzen code nochmal in ruhe ansehen und verbessern!