Einzelnen Beitrag anzeigen

bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.123 Beiträge
 
Delphi 11 Alexandria
 
#43

AW: ANSISTRING unter Linux verfügbar ???

  Alt 23. Jun 2018, 23:47
was entspricht dann PAnsiChar , wenn ich AnsiChar durch TBytes ersetze ?

Code beispiel


Delphi-Quellcode:

type
  TReadBuffer = record
    BufferBytes: array of Byte;
    procedure clear;
  end;


function BytestoString(BytesBuffer: TReadBuffer): AnsiString;
var
  arraylength: integer;
  s: AnsiString;
begin

  arraylength := high(BytesBuffer.BufferBytes) + 1;
  SetString(s, PAnsiChar(@BytesBuffer.BufferBytes[0]), arraylength);
  Result := s;

end;
  Mit Zitat antworten Zitat