Einzelnen Beitrag anzeigen

Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#3

Re: Schleifen Problem bei TMemoryStream

  Alt 28. Jul 2004, 21:15
@FreewareFire


Delphi-Quellcode:
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;

Aber wie mischerr schon sagte, wie kann ein Byte - 1 annehmen?
  Mit Zitat antworten Zitat