Текущий архив: 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