String-Bearbeitung! Ich finde den Fehler nicht!

[DGL-luke]

Hallo,

hier mein Code nochmal:

Delphi-Quellcode:

function stripsingle(s: string; notifbefore,c,notifafter: char): string;
var i,si,sc: Integer; //index, stringindex, stripcount
begin
setlength(Result,length(s));
si := 1;

if length(s) = 1 then
  begin
    if s[1] = c then
      Result := ''
    else
      Result := s;
    Exit;
  end;

//Behandlung des Anfangs
if length(s) > 1 then
  if (s[1] <> c) or (s[2] = notifafter) then
    begin
      Result[si] := s[1];
      Inc(si);
    end;

if length(s) > 2 then
  for i := 2 to length(s)-1 do
    if ((s[i] = c) and ((s[i+1] = notifafter) or (s[i-1] = notifbefore))) or (s[i] <> c)then
      begin
        Result[si] := s[i];
        Inc(si);
      end
    else
      Inc(sc);

//Behandlung des Endes
if length(s) > 2 then
  if (s[length(s)] <> c) or (s[length(s)-1] = notifbefore) then
    begin
      Result[si] := s[length(s)];
      Inc(si);
    end;

setlength(Result,si); //hoffe das löscht den string nicht....
end;

scheint mir schöner als deiner, werd mir den aber gleich nochmal ansehen.