Текущий архив: 2004.10.10;
Скачать: CL | DM;
Вниз
Работа со строками Найти похожие ветки
← →
Никита © (2004-09-27 06:36) [0]Мне нужно написать прогу чтобы в строке удаляла все коммнентарии
{Такие}
и много пробелов заменяла на один.
← →
Palladin © (2004-09-27 07:24) [1]Я не против
← →
Никита © (2004-09-27 08:23) [2]ну и дай тогда код!
как это реализовать
← →
Fedia (2004-09-27 08:31) [3]
function DelCommentAndSpace(s: string): string;
var
i: integer;
InTeg, InSpace: Boolean;
begin
InTeg:=false; InSpace:=false; Result:="";
For i:=1 to Length(s) do begin
if InSpace and (s[i]<>" ") then InSpace:=false;
if s[i]="{" then InTeg:=true;
if not (InTeg or InSpace) then Result:=Result + s[i];
if s[i]=" " then InSpace:=true;
if s[i]="}" then InTeg:=false;
end;
end;
Страницы: 1 вся ветка
Текущий архив: 2004.10.10;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.025 c