Delphi - операции со строкой

[Sianessa]

Охх, сколько доводов - спасибо за всё!
Только вот с переводом в 16-тиричную у меня прблемка небольшая, ему не нравится мой оператор 'else' - пишет ошибку...
Подскажите пожалуйста, в чём дело?
Он ведь переводит только цифры в 16-тиричную, а когда в строке только слова, то нужно сделать, чтобы в текстовом поле отображалось "числа нет".

procedure TForm1.Button2Click(Sender: TObject);
var
  d,i,len:integer;
  s:string;
begin
  s:=edit1.Text;
  if (s[i]='$') and (i<=len) then
  begin
  d:= StrToInt('$' + s);
  edit4.Text:=intTostr(d)+'; ';
    end;
  else
  begin
  d:=StrToInt('Нет числа');
  end;
 end;
end.

[IT-man]

if (s[i]='$') and (i<=len) then

- а вот это вам зачем??? а проверять надо на отсутствие других символов кроме цифр от 1 до 9 и букв от A до F если есть другие символы то числа нет!

flag:=false;
for i :=1 to length(s) do  
if not (s[i] in ['0'..'9','a'..'f','A'..'F']) then flag:=true;
if flag then showmessage('Тут цифров нету!!!')
else  begin
  d:= StrToInt('$' + s);
  edit4.Text:=intTostr(d)+'; ';
    end;

- вот как то так

[Sianessa]

Проверять на отсутчтвие??? Это как???

[IT-man]

я выше написал!!!!!!!!!!!!!

[__STDC__]

ему не нравится мой оператор 'else' - пишет ошибку...

Потому что перед else ";" никогда не ставится...

[Sianessa]

IT-man, спасибо, но ток терь оно почему-то всё время пишет, что цифр нету, где надо и где не надо =__=. Что делать?

__STDC__, знаю, но отсутствие точки с запятой мне тоже не помогло =__=

[IT-man]

код получившийся выложите и входные данные если не трудно

[Sianessa]

procedure TForm1.Button2Click(Sender: TObject);
var
  d,i,len:integer;
  s:string;
  flag:boolean;
begin
for i :=1 to length(s) do
if not (s[i] in ['0'..'9','a'..'f','A'..'F']) then flag:=true;
if flag then
showmessage('Тут цифров нету!!!')
else  begin
  d:= StrToInt('$' + s);
  edit4.Text:=intTostr(d)+'; ';
    end;

  end;
end.

Вот. И ещё желательно чтобы в то же текстовое поле сообщение об отсутствии цифр выводилось. Я пыталась сама сделать, но почему то сразу куча ошибок вываливается...

[IT-man]

А кто в s будет значение из едита передавать?

[Sianessa]

IT-man, я уже заметила, передала, не поверите, но это не помогло =___= хоть чё ввожу, и число в 16-ричном виде, вё равно пишет что цыфр нет.