проверка на символы...

[Nlegion]

мне нужно сделать так чтобы в эдите могли находиться только определенные символы, типа латиница, нижнее подчеркивание.

пробовал два варианта... но оба у меня вызывают ошибку range check error во время работы проги.

вариант 1)

if (Edit6->Text !=("q")||("w")||("8")||("9")||("0"))
   {ShowMessage ("Некорректные символы.");
	  Edit6->Text="";
		Edit6->SetFocus();}
		 else

в дальнейшем if повторяется несколько раз, т.к. проверить нужно еще 6 эдитов.

вариант 2)

for(f=0; f<StrToInt(Edit6->Text.Length()); f++)
if (e2[f]>=65&&e2[f]<=90||e2[f]>=97&&e2[f]<=122||e2[f]==StrToInt('_'))
{ Edit6->Text="";
   Edit6->SetFocus(); }
else {("Некорректные символы."); }

так же пробовал подпихнуть в первый вариант цикл for

e2=Edit6->Text; 
for(f=0; f<StrToInt(Edit6->Text.Length()); f++)
if (e2[f] !=("q")||("w")||("8")||("9")||("0"))
   {ShowMessage ("Некорректные символы.");
	  Edit6->Text="";
		Edit6->SetFocus();}
		 else

результатов тоже не особо....
поможите разобраться плз...

[D@rkD@iver]

procedure TForm2.Edit1Change(Sender: TObject);
var
  i: integer;
  s: string;
begin
  s:= Edit1.Text;
  for i:= 1 to length(s) do
  begin
    if not ((s[i]>='A') and (s[i]<='Z')) then
      Delete(s, i, 1);
  end;
  Edit1.Text:= s;
end;

ну потом в усовие напиши какие символы разрешены и все

код на паскале, ну думаю на С++ переведешь...
смысел один и тот же

[Stilet]

Лучше так:

for(int i=1;i<strlen(Edit6->Text);i++)
 if( (Edit6->Text[i]<'A')||(Edit6->Text[i]>'z')&&(Edit6->Text[i]!='_') ){
  ShowMessage ("Некорректные символы.");
  break;
 }

p.s. не проверял.

А еще лучше проверять вводимый символ в параметр Key события OnKeyPress и если тот не такой как нужно key=0;
Или взять MaskEdit и не париться.

[Korben5E]

Вообще-то это делается в событии OnKeyPress
проверка делается рангом или тупо - массивом.

[NiCola999]

AnsiString tmp;
for(int i=1; i < Edit6->Text.Length(); i++){
        tmp = Edit6->Text[i];
        if( tmp != '_' && (tmp < 'a' || tmp > 'z' || tmp < 'A' || tmp > 'Z' )) {
          ShowMessage("Некорректные символы.");
          break;
        }
}

тоже не проверял =)

[Nlegion]

у меня была кэпская ошибка...
я в цикл начинал с 0... видимо в эдит все начинается с 1...
не знал...

[netrino]

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

у меня была кэпская ошибка...
я в цикл начинал с 0... видимо в эдит все начинается с 1...
не знал...

Не именно в эдит, а в String, для совмести с Delphi )

[Nlegion]

итак.. заработало...
выглядит вот так вот:

for(int f=1; f <= StrToInt(e1.Length()); f++){
if( (e1[f]<'0')||(e1[f]>'9')&&(e1[f]!='_') )
{Edit1->SetFocus();
ShowMessage ("Некорректные символы в номере столбца.Вводите только цифры,вместо пробела вводится нижняя черта.");
break; }

трудность теперь в следующем:
break он прекращает действия оператора, и передает действие на оператор, следующий за законченным, то биш на for получается что break бесполезен и прога многократно выводит предупреждение замес одного... как эт поправить?

[mrChester]

Можно создать булеву переменную, добавить ее в в условие цикла и при показе сообщения изменить ее значение на противоположное.
Можно вместо break использовать goto и переходить дальше