StringStream

Offset on datatyyppiä word, jonka lukualue on
0-65535, joten koodissa ei ole virhettä.

Streamit ovat käteviä, jos dataa pitää käsitellä nopeasti tai datan määrä on suuri.

Delphin omasta Helpistä löytyy toki vastaus tuohonkin.

Lisäksi Classes.pas -tiedostosta on noiden lähdekoodikin tutkittavissa.

Tässäkin ketjussa jonkun on taas pitänyt päteä "tiedoillaan" jotka eivät edes pidä paikkaansa:

function Seek(Offset: Longint; Origin: Word): Longint; overload; virtual;
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; overload; virtual;

tässä noiden TStream (josta TStringStream periytyy) -luokan metodimäärittelyjä - kuten selkeästi nähdään, niin Origin on toki tyyppiä word, mutta sehän voi olla vain jokin näistä kiinteistä arvoista:

JOKO: soBeginning, soCurrent, soEnd
TAI:
soFromBeginning = 0;
soFromCurrent = 1;
soFromEnd = 2;

(kätevä tuo overload - eikö ?)

Sensijaan Offset on etumerkillistä tyyppiä, ja jos esim. haluat lukea Streamin 2 viimeistä tavua, se todellakin hoituu näin:

var
S1:TStream;
W : Word;


begin
// koodia, jossa luodaan S1

// ....

//
S1.Seek(-2, soEnd);
// vaihtoehtoisesti voi toki myös:
// S1.Position := S1.Size - 2;

S1.ReadBuffer(W, SizeOf(W));

// vapauta;
FreeAndNil(S1);
end;