Pergunta : Problema usando TFileStream:   Conservar e ler ShortString em Delphi2010

olá! todos,

i tentaram conservar “ABCDEFGHIJ” como ShortString em uma lima, quando eu a li da lima, get
'ABCDEFGHIJ \ ö de i '. Parece que lá são mais sysbols vêm out.

following são meus códigos, como devem mim o mudar para lhe fazer o trabalho? as pontas do

any são appreciated.

thanks,

wantime
-------------------------------------------------------------
--------------------------------------------------------------
procedure TForm1.LoadShortStingClick (remetente: TObject); identificação do
var
: Corda [10];
begin
  aStream := TFileStream.Create (mpath, fmOpenRead);
aStream.Read (identificação [1], 10);
Edit2.text: = IDENTIFICAÇÃO;
aStream.Free;
end;

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

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

  aStream.Free;
end; class= do

Resposta : Problema usando TFileStream:   Conservar e ler ShortString em Delphi2010

Em Delphi2009 e mais novo (assim seu demasiado), a corda é já não 1 byte por o carvão animal, mas bytes múltiplos.

Assim, quando
var
 Identificação:  Corda [10];

Olha como uma disposição de 10 bytes, ele não é.

Assim se você faz
  aStream.Read (identificação [1], 10);

Você lê 10 bytes em uma disposição que seja então uns 10 bytes mais longos. O resultado é que você não sabe o que está no descanso da disposição. Há provavelmente algum excremento em lá que está interpretado como uma corda quando você tenta o põr na edição.