das könnte sein... bei strings tritt das trennzeichen (chr(0))im allg nicht auf, da es den string abschließt. daher habe ich dieses zeichen gewählt.
bei anderen streams:
wie muss ich dann vorgehen, falls ich auf das trennzeichen treffe?? bisher habe ich es wie folgt gemacht:
Delphi-Quellcode:
function tform1.rledec(text:ansistring):ansistring;
var c,d:ansistring;
i,j,z:int64;
begin
//text:=base64dec(text);
//text:=strtohex(text);
result:='';
i:=1;
while i<=length(text) do
begin
if text[i]=chr(0)
then
begin
c:='';
j:=i+1;
while j<=i+2 do
begin
c:=c+text[j];
j:=j+1;
end;
// showmessage(c);
d:=text[j];
z:=1;
while z<=strtoint('$'+c) do
begin
result:=result+d;
z:=z+1;
end;
i:=i+4;
end
else
begin
result:=result+text[i];
i:=i+1;
end;
end;
end;