ANSISTRING unter Linux verfügbar ???

[p80286]

das sizeof(ansichar) ist doch eh überflüssig. Wenn dann müßte es ein sizeof(char) sein, da der 8- oder 16-bittig sein kann. Daß dann der 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 von p80286:

Wenn dann müßte es ein sizeof(char) sein, .... Daß dann der 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;