[Maxpoll]

Привет.
Может ли кто подсказать как разрешить данную ситуацию в Delphi2010? В 2007 всё верно

Код:

Re: TRichEdit;
a:string;
b: string;

Stream:= TMemoryStream.Create;
a:='12345';
re.Lines.Add(a);
Re.Lines.Savetostream(stream);
b:='67890';
Stream.Write(PChar(b)^, Length(b)*SizeOf(Char));
Stream.Position := 0;
Stream.SaveToFile('Путь к файлу');

Так вот когда записывается в Stream переменная B то в ней после каждого символа прибавляется еще один нечитаемый символ.
ТО есть 6х7х8х9х0х
Переменная a записывается корректно.
Первоначально в Stream записывались данные полученные из запрос к БД с помощью (qryBlobAccess.FieldByName(FieldName) as TBlobField).SaveToStream(Stream) но с таким же некорректным результатом/
В чем может быть проблема? Что-то с кодировкой? Как можно обойти эту проблему?

[PhoeniX]

Код:

var
  ...
  b: AnsiString;
  ...

А так же PAnsiChar, AnsiChar и т.д вместо аналогичных.
Ибо в Д2010 по умолчанию юникод, то-бишь двухбайтовый WideString, от него и "лишний" символ.
З.Ы. SizeOf(Char) - улыбнуло, символ сколько байт занимает? Правильно, 1. Лишнее вычесление.

[Maxpoll]

Сообщение от DJ PhoeniX

Код:

var
  ...
  b: AnsiString;
  ...

А так же PAnsiChar, AnsiChar и т.д вместо аналогичных.
Ибо в Д2010 по умолчанию юникод, то-бишь двухбайтовый WideString, от него и "лишний" символ.
З.Ы. SizeOf(Char) - улыбнуло, символ сколько байт занимает? Правильно, 1. Лишнее вычесление.

Спасибо! )) По крайней мере с Write сработало ))
А как разобраться когда в Stream пишется вот так:

qryBlobAccess : TCssBlobQuery;
begin
qryBlobAccess.SQL.Clear;
qryBlobAccess.SQL.Add( Statement );
qryBlobAccess.Open;
try
if qryBlobAccess.FieldByName(FieldName).IsNull then
Exit;
Result := TMemoryStream.Create;

(qryBlobAccess.FieldByName(FieldName) as BlobField).SaveToStream(Result);

Result.Position := 0;

Вот в таком виде она тоже "приклеивает" лишнее

[PhoeniX]

Честно, с этим компонентом не работал, да и вообще его не видел. Есть подозрение, что он устанавливался дополнительно, и (возможно) писался под другую версию Delphi - следовательно, метод SaveToStream не заточен явно под ANSI.

Что делать? Либо переписывать самому, либо искать аналог под 2010.

З.Ы. ТЕГИ, ***, где? Правила читаем?