Cuestión : Problema usando TFileStream:   Ahorrar y leer ShortString en Delphi2010

hola todos,

i han intentado ahorrar “ABCDEFGHIJ” como ShortString en un archivo, cuando lo leí del archivo, get
'ABCDEFGHIJ \ ö de i '. ¿Parece que allí son vienen más sysbols out.

following son mis códigos, cómo deben yo cambiarlo para hacerle el trabajo? las extremidades del

any son appreciated.

thanks,

wantime
-------------------------------------------------------------
--------------------------------------------------------------
procedure TForm1.LoadShortStingClick (remitente: TObject); identificación del
var
: Secuencia [10];
begin
  aStream := TFileStream.Create (mpath, fmOpenRead);
aStream.Read (identificación [1], 10);
Edit2.text: = IDENTIFICACIÓN;
aStream.Free;
end;

procedure TForm1.SaveShortStingClick (remitente: TObject);
var
S: Secuencia [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]: = “yo”;
S [10]: = “J”;

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

  aStream.Free;
end; class= del

Respuesta : Problema usando TFileStream:   Ahorrar y leer ShortString en Delphi2010

En Delphi2009 y más nuevo (tan el suyo también), la secuencia es no más 1 octeto por carbón de leña, pero octetos múltiples.

Así pues, mientras que
var
 Identificación:  Secuencia [10];

Parece un arsenal de 10 octetos, él no es.

Tan si usted hace
  aStream.Read (identificación [1], 10);

Usted lee 10 octetos en un arsenal que sea entonces 10 octetos más largos. El resultado es que usted no sabe cuál está en el resto del arsenal. Hay probablemente un poco de mierda en allí que se interpreta como secuencia cuando usted intenta ponerla en el corregir.