Array of Byte in String wandeln, Accessciolation

[marabu]

So sollte es funktionieren:

Delphi-Quellcode:

function BytesToStr(const ba; size: cardinal): string;
begin
  SetLength(Result, size);
  Move(ba, Result[1], size);
end;

Test:

Delphi-Quellcode:

const
  CbaSize = 50;
var
  ba: array [1..CbaSize] of byte;
  s: string;

begin
  for i := Low(ba) to High(ba) do
    ba[i] := 48 + i mod 10;
  s := BytesToStr(ba, CbaSize);
  Write(Length(s), ': ', s);
  ReadLn;
end;

Grüße vom marabu