danke für den hinweise
das ist mir auch aufgefallen nach dem posten
aber der haupt fehler lag noch woanders und zwar hier
Delphi-Quellcode:
while r = true do begin
if FileStream.Position >= FileStream.Size then begin
r:=False;
end
else begin
FileStream.ReadBuffer(c,1);
if (c = '[') and (test = True) then begin
if test = true then
r:=false;
test:=True;
end
else begin
str:=' ';
FileStream.position:=FileStream.position-1;
FileStream.WriteBuffer(str[1],Length(str));
end;
end;
end;
irgenwie ist der gefundenpos an einer falschen position geraten und ich musst eigentlich nur noch sagen:
da wenn er das zeichen [ das zweite mal finden soll er aufhören und nicht beim erstenmal.