Thema
:
Delphi
Filestream Teilen und Zeichen vorranstellen
Einzelnen Beitrag anzeigen
littleDave
Registriert seit: 27. Apr 2006
Ort: München
556 Beiträge
Delphi 7 Professional
#
4
Re: Filestream Teilen und Zeichen vorranstellen
16. Jul 2008, 17:49
Das geht so:
markieren
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
Zitat
littleDave
Öffentliches Profil ansehen
Besuche die Homepage von littleDave!
Mehr Beiträge von littleDave finden