Einzelnen Beitrag anzeigen

Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.288 Beiträge
 
Delphi 11 Alexandria
 
#44

AW: ANSISTRING unter Linux verfügbar ???

  Alt 24. Jun 2018, 04:22
Wo möchtest du dort jetzt etwas ersetzen? AnsiString durch TBytes? Meinst du das?
Delphi-Quellcode:
type
  TReadBuffer = record
    BufferBytes: array of Byte;
    class operator implicit(const ABuffer: TReadBuffer): TBytes;
    procedure Clear;
  end;

class operator TReadBuffer.implicit(const ABuffer: TReadBuffer): TBytes;
begin
  SetLength(Result, Length(ABuffer.BufferBytes));
  CopyMemory(@Result[0], @ABuffer.BufferBytes[0], Length(ABuffer.BufferBytes));
end;

var
  TestBuffer: TReadBuffer;
  TestBytes: TBytes;
begin
  TestBuffer.BufferBytes := [1,4,5];
  TestBytes := TestBuffer;
  ShowMessage(Format('%d: [%d, %d, %d]', [Length(TestBytes), TestBytes[0], TestBytes[1], TestBytes[2]]));
end;
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat