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


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