| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа со строками [D7, Win95/98, WinME, NT4, Win2k, WinXP]

Никита ©   (2004-09-27 06:36:00) 

Мне нужно написать прогу чтобы в строке удаляла все коммнентарии {Такие} и много пробелов заменяла на один.

---

Fedia   (2004-09-27 08:31:00) [1]


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;


---

Никита   (2004-09-27 08:23:00) [2]

ну и дай тогда код!
как это реализовать

---

Palladin   (2004-09-27 07:24:00) [3]

Я не против

---

Наверх