Tmemorystream vs Object factory - Access violation

[mjustin]

Welcher Wert steht in Str.Size?
(Vor Beginn der Schleife)

[Sequitar]

Zitat von mjustin:

Welcher Wert steht in Str.Size?
(Vor Beginn der Schleife)

40, aber wenn ich richtig gezählt habe sollten es nur 34 sein?

Delphi-Quellcode:

    For J := 0 To 2 Do
      For I In ['A' .. 'C'] Do
        Str.WriteBuffer(I, Charsize);  //+6
    For K In ['D' .. 'F'] Do
      Str.WriteBuffer(K, Charsize); //+3
    For I In ['A' .. 'C'] Do
      Str.WriteBuffer(I, Charsize);  //+3
    For I In ['A' .. 'E'] Do
      Str.WriteBuffer(I, Charsize);  //+5

VOR Der schleife: 0.
Vor der while-schleife: 40 (wie oben geschrieben)

[Whookie]

Ich nehme mal an du meintest

Oughtstreamcontent[Index] := Cc; // Oughtstreamcontent: Array [0 .. 19] Of Char;
denn sonst wird das eng in dem Array...

3*3 + 3 + 3 + 5 = 20

[Sequitar]

Oh man, manchmal sieht man den wald vor bäumen nicht.
Einfach den Testcode zu checken - und das bei so einfachen dingen, wie array-befüllung!
Danke hierfür.

Aber es ist schon sehr verwirrend, wenn dann plötzlich an ganz unerwarteter Stelle solche Dinge auftreten und du im working code keinen Fehler entdecken kannst . Jetzt kann ich mich endlich an die Korrektur der Funktionalität des Kern-Algorithmus setzen.

Dann wäre noch eine Frage
um an das ENDE eines streams anzuhängen, wo muss ich die position setzen: mystream.size oder mystream.size-1?

[peterbelow]

Zitat von Sequitar:

Oh man, manchmal sieht man den wald vor bäumen nicht.
Einfach den Testcode zu checken - und das bei so einfachen dingen, wie array-befüllung!
Danke hierfür.

Aber es ist schon sehr verwirrend, wenn dann plötzlich an ganz unerwarteter Stelle solche Dinge auftreten und du im working code keinen Fehler entdecken kannst . Jetzt kann ich mich endlich an die Korrektur der Funktionalität des Kern-Algorithmus setzen.

Dann wäre noch eine Frage
um an das ENDE eines streams anzuhängen, wo muss ich die position setzen: mystream.size oder mystream.size-1?

  mystream.Seek(0, soEnd);

[himitsu]

Schalte mal in den Projektoptionen die Index-Prüfung an .... du hast mehr Daten im Stream, als in das Array passt und du dann auf einen Index zugreifst, den es garnicht gibt.


['A' .. 'C'] ist immer ein TSysCharSet, also AnsiChar (leider gibt es kein WideCharSet)

somit dürfte I auch ein AnsiChar sein und die WriteBuffer ein Byte mehr schreiben, als es gibt ... auf dem Stack ist dort aber Speicher, womit es nicht knallt, aber quasi hast du dann ein jeweils Zufallsbyte im Stream.