[lmikle]

Код из моих проектов:

Код:

function TModelItemBase.ReadString(AStream: TStream): String;
var
  ALen : Integer;
begin
  ALen := ReadInt(AStream);
  SetLength(Result,ALen);
  If ALen > 0 Then AStream.Readbuffer(Result[1],ALen);
end;

procedure TModelItemBase.WriteString(AStream: TStream; AValue: String);
var
  ALen : Integer;
begin
  ALen := Length(AValue);
  WriteInt(AStream,ALen);
  If ALen > 0 Then AStream.WriteBuffer(AValue[1],ALen);
end;