11 lines
283 B
Text
11 lines
283 B
Text
|
function StripComments(s : String) : String;
|
||
|
|
begin
|
||
|
|
var p := FindDelimiter('#;', s);
|
||
|
|
if p>0 then
|
||
|
|
Result := Trim(Copy(s, 1, p-1))
|
||
|
|
else Result := Trim(s);
|
||
|
|
end;
|
||
|
|
|
||
|
|
PrintLn(StripComments('apples, pears # and bananas'));
|
||
|
|
PrintLn(StripComments('apples, pears ; and bananas'));
|