[serega6531]

Мне нужно сделать проверку на специальные символы. Подозреваю, что это делается как-то так:

Код:

If (Pos(['.'..'?'], Login) = 0) AND (Pos(['.'..'?'], Password) Then
{Всё нормально}
else
{Варнинг! Специальные символы детектед!}

Как же это сделать?

[Alegun]

Совсем просто, можно более извращённо

Код:

b:=1;
for i:= 1 to Length(Login) do
case Login[i] of
'a'..'z','A'..'Z': inc(b);
end;
if i = b then {Нету СС} else {Есть СС}

[serega6531]

Сообщение от Alegun

Совсем просто, можно более извращённо

Код:

b:=1;
for i:= 1 to Length(Login) do
case Login[i] of
'a'..'z','A'..'Z': inc(b);
end;
if i = b then {Нету СС} else {Есть СС}

Спасибо большое!

[Alegun]

Можно ещё так

Код:

function ssd(ds: string): boolean;
var
 i: integer;
begin
 Result:= true;
 for i:= 1 to Length(ds) do
  if Pos(ds[i], '_ #+-/\*)(.,<>@"'';%^?&' ) > 0  then
   Result:= false;
end;


// Использование
if (ssd(Login)) and (ssd(Password)) then {Всё нормально} else {Варнинг! Специальные символы детектед!}