Einzelnen Beitrag anzeigen

Benutzerbild von littleDave
littleDave

Registriert seit: 27. Apr 2006
Ort: München
556 Beiträge
 
Delphi 7 Professional
 
#4

Re: Filestream Teilen und Zeichen vorranstellen

  Alt 16. Jul 2008, 16:49
Das geht so:
Delphi-Quellcode:
var Buffer : array[0..4096] of char;
    PreFix : string; // das was du vor den daten haben willst
begin
  // Deine Daten
  PreFix := 'Hallo';
  // 'Hallo' in den ersten Teil schreiben
  Move(PreFix[1], Buffer[0], length(PreFix));
  // den restlichen Buffer mit den Daten aus TFileStream auslesen
  FStream.Read(Buffer[length(PreFix)], SizeOf(Buffer) - length(PreFix));
end;
Ungetestet, da Delphi nicht offen
Jabber: littleDave@jabber.org
in case of 1 is 0 do external raise while in public class of object array else repeat until 1 is 0
  Mit Zitat antworten Zitat