Kommentare aus einem CSS-Code löschen

[torud]

ok, und hier kommt mein code. ich hoffe, es ist einigermaßen durchschaubar.

Delphi-Quellcode:

function ClearCommentarTStrings(Inhalt:TStrings):String;
var
  i,beg_com,end_com:integer;
  myInhalt:string;
begin
  CommentCount:=0;
  for i:=0 to Inhalt.Count -1 do
    begin
       myInhalt:=myInhalt + Inhalt.Strings[i]
    end;
  myInhalt:=Trim(myInhalt);
  while (Pos('/*',myInhalt)) > -1 do
    begin
      beg_com:=Pos('/*',myInhalt);
      end_com:=Pos('*/',myInhalt); 
      if beg_com > 0 then
        begin
          if end_com > 0 then
            begin
              CommentCount := CommentCount + 1;
              delete(myInhalt,beg_com,end_com-beg_com+2);
            end
          else
            begin
              Result:=myInhalt;
              exit;
            end;
        end
      else
        begin
          Result:=myInhalt;
          
          exit;
        end;
    end;
end;