SQL процедура вместо перебора записей

[XPAiN]

Доброго времени суток.
Суть моей проблемы такова: имеется база Access и ADO.
Имеется поле в котором хранится номер дома. Данные получаю туда из другой базы (на которую я не могу повлиять и что то там изменить). Добрые разработчики той базы сделали его текстовым. В общем пользователь вбивает туда, что его душе угодно (слова, буквы).
Мне нужно отделить цифры если они идут в начале в отдельное поле. Написал следующую процедуру:

procedure TFrm_convert.Button4Click(Sender: TObject);
var str,str1:string;
i,j:integer;
begin

For j:=1 to DataModule1.Flat.RecordCount do
begin

str:=DataModule1.Flat.fieldByName('Home_number').AsString;
str1:='';
For i:=1 to length(str) do
if str[i] in ['1','2','3','4','5','6','7','8','9','0'] then
str1:=str1+str[i]
else break;

DataModule1.Flat.Edit;

if str1='' then DataModule1.Flat.fieldByName('Home_number_filter').AsInteger:=0
else DataModule1.Flat.fieldByName('Home_number_filter').AsInteger:=strtoint(str1);
DataModule1.Flat.Post;

DataModule1.Flat.Next;
end;

end;

Но эта процедура не устраивает по скорости работы, т.к. записей в базе около 14 000. Возможно ли написать какой-либо подобный SQL запрос?

[evg_m]

а если номер дома 3А 4-Б или еще что

можно попробовать переписать вот так
k:=0;
For i:=1 to length(str) do
if str[i] in ['1','2','3','4','5','6','7','8','9' ,'0'] then
k:=k+1 //Inc(k); вместо многократного копирования строк считаем число цифр
else break; //закончить цикл как только не цифра
s:=copy(s,1,k); //копирование строки только один раз

[XPAiN]

Нужно все откинуть кроме числа, остаток я потом переписываю в коментарий.

evg_m за идею спасибо

[mihali4]

Все верно, только если вспомнить определение множества, то строка
if str[i] in ['1','2','3','4','5','6','7','8','9' ,'0'] then
запишется как
if str[i] in ['0'..'9'] then
Правда, так короче?

[XPAiN]

Спасибо вы действительно правы

[Serge_Bliznykov]

я бы ещё проверил, может чуть-чуть быстрее (ВНИМАНИЕ! НЕ ФАКТ! ТРЕБУЕТ ПРОВЕРКИ!) будет, если использовать не операции с множеством, а банальное сравнение:
if (str[i]>='0') and (str[i]<'9') then ...

и ещё. посмотрел я вчера в поиске на SQL.ru
бедненький SQL у Вашего Access'а... на Oracle действительно можно было состряпать запрос по получению начальных цифр из поля.
Кстати, не знаю, насколько это будет эффективно, но в Access можно написать свою функцию, которую можно использовать в SQL запросах... и последнее, если возможно с точки зрения задачи, я бы добавил в таблицу ещё два поля, куда и записал разделённые данные... а потом в запросе брал эти поля...