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!