Hallo,
ich würde die einzelnen Strings nicht verketten. Ich würde mir einen Ringpuffer definieren:
Delphi-Quellcode:
type
String2 = string[2];
TRingBuffer = class
private
Buffer: array of String2;
ReadIndex: Integer;
WriteIndex: Integer;
IsFull: Boolean;
public
constructor Create(size: Integer);
destructor Destroy; override;
procedure Clear;
function InUse: Integer;
function ReadString: string;
function Size: Integer;
procedure WriteString(s: string);
end;
Der ShortString-Typ String2 belegt nur drei Byte, ein Trennzeichen wird nicht benötigt, im Puffer muss nichts verschoben werden.
Freundliche Grüße