ich würde sagen es liegt an der Funktion StrLCopy, verwende doch einfach move wenn du alles kopieren willst. Denn StrLCopy kopiert (wenn ich mich nicht irre) alles bis zu #0 außer wenn vorher die Länge erreicht wurde.
Zudem hast du da einen Fehler in deiner Funktion der nur durch den richtigen Aufruf funktioniert.
Delphi-Quellcode:
If Assigned(PResult) Then Begin
StrLCopy(PResult, PChar(s), PResultLength);
End;
Als länge übergibst du PResultLength. Was ist aber wenn PResultLength mal größer ist als die Länge von s? In deinem Fall klappts weil du vorher die exakte Länge ermittelst. Wenn man aber einfach pauschal mehr Speicher reserviert und diese Größe reingibt ist das nicht so gut weil du dann im schlimmsten Fall mehr kopieren wölltest als es zu kopieren gibt und somit auch versuchst speicher zu kopieren auf den du eventuell gar keinen Zugriff hast.