Delphi-Quellcode:
function DeleteAllComments(str: String): String;
var a, b: Integer;
begin
result:=str;
while Pos('{', result)<>0 do
begin
a:=Pos('{', result);
b:=PosEx('}', result, a);
result:=copy(result, 1, a-1)+copy(result, b+1, length(result));
end;
end;
Ungetestet. Aber das hättest du mit ein wenig nachdenken auch selber geschaft, oder?
Du solltest aber noch beachten, ob die Kommentare in Strings vorkommen.