ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Помогите написать функцию
3 сообщений из 3, страница 1 из 1
Помогите написать функцию
    #32167844
Игорь Вадимович
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Вадимович
Гость
Как написать функцию для работы со строками которая определяет наличие надопустимых символов в строке.То есть функция должна определять, состоит ли строка ТОЛЬКО из букв(русских или английских или украинских) или нет. Если есть нелопустимые символы - возвращает false, в противном случае - true.
Пишу так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
function Tform1.StrCorectCheck(var s:string):boolean;
var i: integer;
buf:boolean;
begin
buf := false;

trim(s);

 for i :=  1  to length(s) do
  begin
   if s[i]>='a' then
     if s[i]<='z' then
      buf := true
     else
      begin
       buf := false;
       break;
      end
    else
    begin
     buf := false;
     break;
    end;
   end;

StrCorectCheck:=buf;

end;

Тут проверяеться только нижний регистр только английских букв букв
Ещё нужно русские буквы и верхний регист...
Нельзя ли как-от попроще, а то слишком громоздко
...
Рейтинг: 0 / 0
24.05.2003, 12:29
| Ответить | Цитировать | Написать  
Помогите написать функцию
    #32167852
Gold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gold
Участник
Объявляеш множество (я их очень люблю :-) ) такого вида:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
function Tform1.StrCorectCheck(var s:string):boolean;
const
  Letters:set of char=['а'..'я','А'..'Я','a'..'z','A'..'Z'];
var 
  i: integer;
begin
  Result:=true;
  for i :=  1  to length(s) do
    if not (s[i] in Letters) then
    begin
       Result:=false;
       Exit
    end
end;

Я бы так сделал.
...
Рейтинг: 0 / 0
24.05.2003, 12:56
| Ответить | Цитировать | Написать  
Помогите написать функцию
    #32167854
Игорь Вадимович
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Вадимович
Гость
Да...
Всё гениально просто...
Спасибо
...
Рейтинг: 0 / 0
24.05.2003, 13:02
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Помогите написать функцию
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]