Function OneSpace(S:string;B:boolean):string; {Функция удаления лишних пробелов. OneSpace(Строка,true/false - удалять или нет пробелы в начале и в конце строки); Результатом функции является строка с удаленными лишними пробелами.} var T: string; Begin T:=S; while pos(' ',T)>0 do delete(T,pos(' ',T),1); if B then Begin if T[1]=' ' then delete(T,1,1); if T[length(T)]=' ' then delete(T,length(T),1); End; OneSpace:=T; End;
Комментариев нет:
Отправить комментарий