ANSISTRING unter Linux verfügbar ???

[p80286]

das

Delphi-Quellcode:

sizeof(ansichar)

ist doch eh überflüssig. Wenn dann müßte es ein

Delphi-Quellcode:

sizeof(char)

sein, da der 8- oder 16-bittig sein kann. Daß dann der

Delphi-Quellcode:

Savestring:String

definiert sein muß, sollte klar sein.

Gruß
K-H

[himitsu]

Ja, ein SizeOf auf einen "festen" Typen, der sich eh niemals ändert und der auch noch 1 ist. das ist schon bissl sinnlos.

Zitat:

Zitat von p80286 (Beitrag 1404956)

Wenn dann müßte es ein

Delphi-Quellcode:

sizeof(char)

sein, .... Daß dann der

Delphi-Quellcode:

Savestring:String

definiert sein muß, sollte klar sein.

Prizipiell richtig, aber gerade das ist total falsch und extrem gefährlich.

Sowas macht man niemals,
ohne beim Lesen nicht alle möglichen Formate zu implementieren und bei Speichern auch das Format mit zu speichern, damit man beim Lesen weiß wie es gelesen werden muß.
Gut, man kann beim Lesen nur Einwas implementieren, aber muß dann einen Fehler werfen, wenn ein unbekanntes/falsche Format kommt.

[bernhard_LA]

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;

[jaenicke]

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;