Как можно разделить ввод цифр и букв

hah01

Здравствуйте, у меня такой вопрос можно ли имея один EDIT, два ListBox и один Button cделать так что бы прив вводи текста в EDIT и нажатии Button он попадал в ListBox1, а при вводе цифр они попадали в ListBox2.
4 ответа

hah01

Можно проверить введенную строку на число и в зависимости от результата писать куда нужно. Не помню как правильно в Делфи, но можно и так
var s:string;
     t,c:integer;
......................
s:=Edit1.text;
val(s,t,c);
if c=0 then в  в ListBox2
else  в ListBox1


hah01

Вот мой вариант
var
  s:String;
  s1:Real;
  f:Integer;
begin
  s:=Edit1.Text;
  Try
    s1:=StrToFloat(s);
    f:=1;
  Except
    f:=0;
  end;
  If f=1 Then ListBox1.Items.Add(s) else ListBox2.Items.Add(s);
end;


hah01

Еще есть что-то типа StrtofloatDef();


hah01

Еще есть что-то типа StrtofloatDef();
Это лучший вариант... Мой пойдет как наглядное пособие по обходу "исключительных ошибок"