Вопрос : Проблема путем использование TFileStream:   Сохраньте и прочитайте ShortString в Delphi2010

здравствулте! все,

i имеют судимое для того чтобы сохранить «ABCDEFGHIJ» как ShortString в архиве, когда я читаю его от архива, get
'ABCDEFGHIJ \ ö I '. Оно кажется там больше sysbols приходят out.

following будут мои Кодие, как должны я изменить его для того чтобы сделать им работу? концами

any будут appreciated.

thanks,

wantime
-------------------------------------------------------------
--------------------------------------------------------------
procedure TForm1.LoadShortStingClick (прислужник: TObject); удостоверение личности
var
: Шнур [10];
begin
  aStream := TFileStream.Create (mpath, fmOpenRead);
aStream.Read (удостоверение личности [1], 10);
Edit2.text: = удостоверение личности;
aStream.Free;
end;

procedure TForm1.SaveShortStingClick (прислужник: TObject);
var
s: Шнур [10];
begin

s [1]: = «a»;
s [2]: = «b»;
s [3]: = «c»;
s [4]: = «d»;
s [5]: = «e»;
s [6]: = «f»;
s [7]: = «g»;
s [8]: = «h»;
s [9]: = «я»;
s [10]: = «j»;

  aStream := TFileStream.Create (mpath, fmCreate);
aStream.Write (s [1], 10);

  aStream.Free;
end; class=

Ответ : Проблема путем использование TFileStream:   Сохраньте и прочитайте ShortString в Delphi2010

В Delphi2009 и ново (так твое слишком), шнур будет отсутствие более длиной 1 байт в чарс, но множественные байты.

Так, пока
var
 Удостоверение личности:  Шнур [10];

Смотрит как блок 10 байт, оно не.

Так если вы делаете
  aStream.Read (удостоверение личности [1], 10);

Вы читаете 10 байт в блоком будет более длинние после этого 10 байт. Результат что вы не знаете находится в остальноях блока. Будет вероятно некоторая гречиха в там интерпретирована как шнур когда вы пытаетесь положить ее в редактировать.