Hallo,
ich möchte per TFileStream einen Text überschreiben und zwar mit leerzeichen
mein versuch klappte leider nicht da nur stellenweise überschrieben wurden ist.
Delphi-Quellcode:
FileStream.Position:=gefundenpos;
r:=True;
while r = true do begin
if FileStream.Position = FileStream.Size then begin
r:=False;
end
else begin
FileStream.ReadBuffer(c,1);
if c = '[' then
r:=false
else begin
str:=#13;
FileStream.WriteBuffer(str[1],Length(str));
end;
end;
end;
FileStream.Position:=gefundenpos;
ich suche in einem FileSTream einen text das geht auch. gefundenppos speichert die entsprechende Position im Stream.
weiß jetzt leider nicht geht ist das überschreiben da bekomme ich immer sowas bei raus:
Zitat:
[TextItem=49575053554956525749]
Hallo du daTs1Ts2Ts3Ts4
und jeztt da ich die "zeile" überschrieben habe sollte nur der neuese text da stehen
"Hallo du da" und nicht Ts1Ts2Ts3Ts4 wobei das hieß auch vor der überscchreibung anders:
TestTestTest
Test1 Test2
kann mir da jemmand helfen ?