Hi,
bin nochmal rangegangen. Man könnte den String auch so abspeichern:
Delphi-Quellcode:
i := Pos(#13#10#13#10, s)+4;
i2 := Pos(#10#10, s)+2;
if (i2 > 2) and (i2 < i) then
i := i2;
s := Copy(s, i, Length(s));
l := Length(s);
Stream.WriteBuffer(l, SizeOf(Integer));
Stream.WriteBuffer(Pointer(s)^, l);
Stream.Free;
Das funktioniert, aber nun ist meine Methode mit dem Copy natürlich unfug. Denn im Gegensatz zum Stream rechnet der in dem Sinne ja nicht Binär. So kriege ich dann nicht perfekt abgetrennte Daten, wie hier der Anfang zeigt:
Der Kram vor dem "yoya" muss noch weg. Wie könnte man das nun realisieren ?