Guten Morgen miteinander

Wie es der Titel schon sagt, würde ich gerne ein Array of Byte (ASCII) in einen String wandeln.
Das hab ich mir dann so vorgestellt:

markieren

Code:

 
Repeat
  rData[i+1] := Chr(FT_In_Buffer[i]); //EAccessviolation
  i := i+1;
until Length(rData) = 22;

Nur bekomme ich immer eine Exception...
Die Werte im Array sind gültig.


In die andere Richtung klappts wunderbar.

markieren

Code:

Repeat
  FT_Out_Buffer[i-1] := Ord(sData[i]);
  i := i+1;
until Length(sData+1) = i;

Gruss

So sollte es funktionieren:

markieren

Delphi-Quellcode:

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

Test:

zusammenfalten · markieren

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

danke für die Antwort
Ich probier das mal zu implementieren.

Aber wieso funktioniert meine Methode nicht?

Weil du die Länge des Strings vorher bestimmen musst (->SetLength)