Frage : Problem durch die Anwendung von TFileStream:   ShortString in Delphi2010 speichern und lesen

hallo haben alle,

i versucht, „ABCDEFGHIJ“ als ShortString in einer Akte zu speichern, als ich sie von der Akte las, i get
'ABCDEFGHIJ \ ö '. Es scheint, dass dort mehr sysbols kommen out.

following sind meine Codes, wie sollten ich es ändern, um es Arbeit zu bilden sind?

any Spitzen sind appreciated.

thanks,

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

procedure TForm1.SaveShortStingClick (Absender: TObject);
var
S: Schnur [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]: = „ich“;
S [10]: = „J“;

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

  aStream.Free;
end;

Antwort : Problem durch die Anwendung von TFileStream:   ShortString in Delphi2010 speichern und lesen

In Delphi2009 und neuer (so Ihr auch), ist Schnur nicht mehr 1 Byte pro Putzfrau, aber mehrfache Bytes.

So während
var
 Identifikation:  Schnur [10];

Sieht wie eine Reihe von 10 Bytes, es ist nicht aus.

So, wenn Sie tun
  aStream.Read (Identifikation [1], 10);

Sie lesen 10 Bytes in eine Reihe, die längere dann 10 Bytes ist. Resultat ist, dass Sie nicht wissen, was im Rest der Reihe ist. Es gibt vermutlich etwas Misten in dort, der als Schnur gedeutet wird, wenn Sie versuchen, ihn in redigieren einzusetzen.