Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.023 c
1-1095915442
Lexxx
2004-09-23 08:57
2004.10.10
Помогите додумать ф-ю открытия txt файла, и все его содерж.


1-1096008578
eagle2002
2004-09-24 10:49
2004.10.10
ActiveX


1-1096288757
zaycev
2004-09-27 16:39
2004.10.10
проблема с созданным компонентом


1-1096194542
zaycev
2004-09-26 14:29
2004.10.10
Вопрос по поводу ограничения строковых переменных в 255 символов


1-1096006472
Kniaz
2004-09-24 10:14
2004.10.10
копирование файла