7 lines
226 B
ObjectPascal
7 lines
226 B
ObjectPascal
function RemoveComments(s,delim: string): string
|
|
:= Regex.Replace(s, delim + '.+', '');
|
|
|
|
begin
|
|
Writeln(RemoveComments('apples, pears # and bananas','#'));
|
|
Writeln(RemoveComments('apples, pears ; and bananas',';'));
|
|
end.
|