Pytanie : Problem TFileStream:   Save i Czytać ShortString w Delphi2010

cześć ö,

i próbować save "ABCDEFGHIJ" jako ShortString w kartoteka, gdy i czytać ono od the kartoteka, i get
'ABCDEFGHIJ \ ö '. Ono wydawać się tam  być więcej sysbols przychodzić out.

following być mój kod, dlaczego musieć i ono ono praca?

any porada być appreciated.

thanks,

wantime
-------------------------------------------------------------
--------------------------------------------------------------
procedure TForm1.LoadShortStingClick (Nadawca: TObject);
var
ID: Sznurek [10];
begin
  aStream := TFileStream.Create (mpath, fmOpenRead);
aStream.Read (ID [(1)], 10);
Edit2.text: = ID;
aStream.Free;
end;

procedure TForm1.SaveShortStingClick (Nadawca: TObject);
var
S: Sznurek [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]: = "I";
S [10]: = "J";

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

  aStream.Free;
end;

Odpowiedź : Problem TFileStream:   Save i Czytać ShortString w Delphi2010

W Delphi2009 i nowy (w ten sposób ( zbyt), sznurek być już nie (1) bajt na char, ale wieloskładnikowy bajt.

W Ten Sposób, podczas gdy
var
 ID:  Sznurek [10];

Spojrzenie jak szyk 10 bajt, ono być.

W Ten Sposób jeżeli ty
  aStream.Read (ID [(1)], 10);

Ty czytać 10 bajt w szyk che być długi wtedy 10 bajt. Rezultat być że ty znać znać być w the odpoczynek the szyk. Tam  być prawdopodobnie niektóre bzdury w tam  che interpretować jako sznurek gdy ty próbować ono w the redagować.