Code:
Stream.ReadBuffer(Byte1, 1);
Stream.ReadBuffer(Byte2, 1);
//Davor kommt dann die Anzahl, wie oft er die Scheife durchlaufen soll (so soll's aussehen):
for anzahl := 0 to xmal do
begin
//und hier liegt das Problem... hier muss eine Schleife rein
//die abbruchbedingung ist, wenn Byte1=0 und Byte2=-1 - dann soll er die schleife verlassen
if (byte1 = 0) and (Byte2 = -1) then
Break;
//beginn der schleife
Stream.ReadBuffer(Byte1, 1); //Byte1 und 2 sind als byte definiert!
Stream.ReadBuffer(Byte2, 1);
//ende der schleife
end;
Ist zwar schön und gut, nur nicht korrekt - da fehlt die schleife noch!
Daher das Kommentar über dem Stream! da müsste eine schleife rein, in etwa:
repeat
until ((byte1 = 0) and (byte2 = -1));
zusammen so:
for anzahl := 0 to xmal do
begin
repeat
Stream.ReadBuffer(Byte1, 1); //Byte1 und 2 sind als shortint definiert!
Stream.ReadBuffer(Byte2, 1);
until ((byte1 <> 0) and (byte2 <> -1));
end;