Einzelnen Beitrag anzeigen

FreewareFire

Registriert seit: 25. Sep 2003
51 Beiträge
 
Delphi 7 Professional
 
#1

Schleifen Problem bei TMemoryStream

  Alt 28. Jul 2004, 19:59
Hi Leute!

Ich habe da ein richtig doofes Problem... Ich habe einen TMemoryStream mit Daten gefüllt.
In diesem muss ich nun folgendes machen:

zwei einzelne Bytes einlesen (direkt hintereinander)

also sowas:

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
  //beginn der schleife
  Stream.ReadBuffer(Byte1, 1); //Byte1 und 2 sind als byte definiert!
  Stream.ReadBuffer(Byte2, 1);
  //ende der schleife

end;
ich habs schon mit repeat until versucht, while und for... irgendwas muss falsch sein, wer kann
mir helfen - Vielen Dank für jeden Tipp!

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]
  Mit Zitat antworten Zitat