Datenpaket erstellen

[TheMiller]

Ich hab da dochnochmal eine Frage. Diesmal betrifft sie wieder das Datenpaket direkt.

Ich möchte es jetzt auslesen, habe eine While-Schleife erstellt, die mir immer 4 Zeichen zurückgibt. Nun habe ich folgende Steuerzeichen mit bestimmten Inhalt wie z.b:

Code:

/* FILE: settings.ini */

So, jetzt kam ich noch auf die Idee, einen Record in dieser Backup-Datei zu speichern. Ich habe jetzt das Problem, dass ich nicht weiß, wie ich einen Stream bis zu einer bestimmten Stelle (zB "*/") auslesen kann.

Wenn ich immer nur 4 Zeichen lese kann mir ja folgendes passieren:

Code:

Zeichen 12-16: xe *
Zeichen 16-20: / */

Das Trennzeichen wurde somit getrennt und ich kann nicht mehr damit anfagen.

Hier nochmal meine 4-Zeichen-nacheinander-auslesen-Routine

Delphi-Quellcode:

procedure TfrmBackup.RestoreBackup(ms: TMemoryStream);
var
  s: String;
  i: Integer;
begin
  ms.Seek(0, soBeginning);
  i:=0;
  while not (i > ms.Size) do
  begin
    s:='';
    ms.Seek(i, soFromBeginning);
    SetLength(s, 4);
    ms.ReadBuffer(s[1], length(s));
    ShowMessage(s);
    i:=i+4;
  end;
  ms.Free;
end;

Bitte gebt mir einen kleinen Tipp...

[franktron]

Guck mal hier im Forum ich hab male ein Klasse dafür geschrieben

[TheMiller]

Hm... ein Tipp würde mir schon reichen. Ich möchte nicht für alles eine Klasse oder Komponente haben... Außerdem finde ich sie nicht ;)

[franktron]

Hier erstmal den Link http://www.delphipraxis.net/internal...ght=filesystem
Und man sollte den Buffer lieber so Deklarieren s : Array[0..3] of Byte;

[TheMiller]

Vielen Dank.

Werde mir das mal zu Gemüte führen. Muss aber erst mal ins Training.

Bis dann / demnächst