procedure trim(var s:string);
var i:integer;
begin
i:=1;
while (i<=length(s))and(s=' ') do i:=i+1; i:=i-1;
delete(s,1,i); i:=length(s);
while (i>=1)and(s=' ') do i:=i-1; i:=i+1;
delete(s,i,length(s)-i+1);
end;
Удаление незначимых пробелов в строкe
Люди! Такая ситуация-в паскале сравниваются две строки.
Естественно глупо писать что ответ невенрный (программа-тест) если в начале или в конце юзер случайно поставил пробел, а ответ при этом правильный. Паскаль при подобном сравнении выдаст False в качестве результата. Может кто знает-Как находить и удалять этот пробел (в начале или в конце). Если можно то прямо исходным кодом на маил, если нет то хоть объясните на форуме как это сделать можно.
Спасибо.
[COLOR=red]общение через е-майл не приветствуется. (moderator)[/COLOR]
Естественно глупо писать что ответ невенрный (программа-тест) если в начале или в конце юзер случайно поставил пробел, а ответ при этом правильный. Паскаль при подобном сравнении выдаст False в качестве результата. Может кто знает-Как находить и удалять этот пробел (в начале или в конце). Если можно то прямо исходным кодом на маил, если нет то хоть объясните на форуме как это сделать можно.
Спасибо.
[COLOR=red]общение через е-майл не приветствуется. (moderator)[/COLOR]
ну во первых вы не сказали каким компилятором пользуетесь
возможно есть предописанная
ну а если нет то несложно дописать
первое что в голову пришло
ps я пользовался предописанной в турбо паскале процедуре delete
возможно есть предописанная
ну а если нет то несложно дописать
первое что в голову пришло
Код:
ps я пользовался предописанной в турбо паскале процедуре delete
Я точно не помню, но посмотри, есть ли там функции:
LeftTriam - Удаление пробелов слева.
RungTriam - Удаление пробелов справа.
Triam - Удаление пробелов слева и справа.
LeftTriam - Удаление пробелов слева.
RungTriam - Удаление пробелов справа.
Triam - Удаление пробелов слева и справа.
Цитата: misha_turist
Я точно не помню, но посмотри, есть ли там функции:
LeftTriam - Удаление пробелов слева.
RungTriam - Удаление пробелов справа.
Triam - Удаление пробелов слева и справа.
LeftTriam - Удаление пробелов слева.
RungTriam - Удаление пробелов справа.
Triam - Удаление пробелов слева и справа.
Ну ты и понаписал:)
Вообще существует функция Trim().
В разных языках ее вариации выглядят по разному.
Ну, к примеру в C++(Builder 6.0):
Код:
s = s.Trim();
s = s.LeftTrim();
s = s.RightTrim();
s = s.LeftTrim();
s = s.RightTrim();
В VBA:
Код:
s = Trim(s);
s = LTrim(s);
s = RTrim(s);
s = LTrim(s);
s = RTrim(s);
Насчет Паскаля - не знаю - нужно смотреть!!
Цитата: koltaviy
Ну ты и понаписал:)
Вообще существует функция Trim().
Вообще существует функция Trim().
Согласен, ошибся в орфографии....
Цитата: misha_turist
орфографии....
брр - скажите лучше в синтаксисе
ps в турбе такого точно нет
если хотите напишите модуль в котором это будет
[COLOR=black]nilbog, misha_turist[/COLOR]
[COLOR=red]подобные разговоры только через приват плиз.(post #5, #6)[/COLOR]
[COLOR=red]подобные разговоры только через приват плиз.(post #5, #6)[/COLOR]