Регулярное выражение

[Serge_Bliznykov]

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

Спасибо, но чет не работает

ну дык, я же прямо тут писал, в браузере.
поэтому и написал "примерно"...

ладно.
пробуйте так:

function InCorrectUserString(S : string):boolean;
var i  : integer;
  isNoDigits : boolean;
begin
    InCorrectUserString := false;
    isNoDigits := true;
    for i:=1 to Length(S) do
      if not (S[i] in ['a'..'z', 'A'..'Z', '0'..'9']) Then Exit
      else
         if  isNoDigits and (S[i] in ['0'..'9']) then isNoDigits := false;

    if isNoDigits then Exit;
    InCorrectUserString  := true
end;

[Black Fregat]

Сообщение от Black Fregat

Может /^[A-Za-z]+[0-9][A-Za-z0-9]+$/

/^[A-Za-z]*[0-9][A-Za-z0-9]*$/
Спросонья перепутал плюс и звёздочку

[Serge_Bliznykov]

Сообщение от Black Fregat

/^[A-Za-z]*[0-9][A-Za-z0-9]*$/
Спросонья перепутал плюс и звёздочку

вот, другое дело!
Теперь, на мой взгляд - всё работает как надо!

[Smagulov85]

Спасибо Black Fregat и Serge_Bliznykov