Mihin TStringStream käytetään (eli mihin se soveltuu hyvin)?
StringStream
4
652
Vastaukset
- Mika0800
TStringStream
Mikset kirjoita koodiisi vaikkapa:
var
S1 : TStringStream;
sitten vain klikkaat sanaan TStringStream ja painat Ctrl-F1.
Delphissä on hyvä online -opastejärjestelmä, jota kannattaa käyttää.
toki täytynee mainita, etten muista kertaakaan itse käyttäneeni TStringStream -tyyppiä vaikka Delphillä olenkin ohjelmoinut.
Ja ainakin Delphi7:ssä tuon luokan toteutuksessa on sitäpaitsi virhe !
Seek -metodista löytyy tällaista:
case Origin of
soFromBeginning: { katso lähdekoodista }
soFromCurrent: { katso lähdekoodista }
soFromEnd: FPosition := Length(FDataString) - Offset;
end;
Ohjeen mukaan tuossa soFromEnd -tapauksessa Offsetin on oltava- Delphi koodari
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.
- StringList <> StringS...
Miten sitten StringList eroaa StringStream:stä
(mitkä on niiden suurrimmat erot)- Mika0800
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;
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Sebastian Tynkkynen (pers.) ei vastusta raiskauksia
"Sebastian Tynkkynen oli ainoa 14 suomalaismepistä, joka vastusti uutta suostumuksen puuttumiseen perustuvaa raiskauslak1094515Purra jäi kiinni valehtelusta, Heinäluoma ei
Ja heti alkoi Purra joukkoineen maalittamaan Heinäluomaa. Niin toimii äärioikeistoa edustava putinistipersulauma, jonka553326- 841103
Alkuperäinen kristillinen kaste on uskoville annettava upotuskaste
Kreikan sana BAPTIZO merkitsee upottamista. Alkuseurakunta kastoi upottamalla Apostolien tekojen kirjan mukaan: Ap.t 2552929Me, Suomen kansa, vaadimme Riikka Purraa jatkamaan valtiovarainministerinä!
Ja jollei valtiovarainministerinä, niin sitten pääministerinä. Purra on nostanut Suomen talouden nyt komeaan kasvuun Ma82819- 170792
- 57769
Pitäisikö naisen haluta "puolisomies"?
Toivottavasti saan nyt tämän idean purettua hyvin sanoiksi? Mutta tuossa eräässä aloituksessa tuli vastaan tälläinen tek139760Miksi piti uhota naapuri Venäjälle ja tehdä itsestä heidän vihollinen?
https://www.iltalehti.fi/kotimaa/a/f0eee963-3605-47e6-9989-a21347ce7757 "Jos sota syttyy Suomessa, näin tapahtumat vois195748Asiantuntijat todistavat: Rydman valehteli.
Virta oli oikeassa jokaisessa kolmessa eri väitteessä, sen sijaan RYDMAN VALEHTELI kaikissa kolmessa väitteessä. https:/189706