Фильтр букв

← →
BIG BROTHER (2003-04-19 22:26) [0]

Отсылаю на устройство(не важно какое) запрос серийного номера. Приходит ответ типа: S/N: 1234567890 этот номер потом будет записан как Label1.Caption; НО в надписе нужно вывести ТОЛЬКО ЦИФРЫ(1234567890), которые приходят в ответ, игнорируя буквы(S/N:).
Думал сделать это так: данные приходят не сразу в Label1.Caption;, а в другое место(TEdit, TMemo), там фильтруются, и потом идут в надпись.
Вот КАК это сделать, я уже не додумался. Или же моя идея бредовая?
Мастера, выручайте!!!!

← →
Palladin © (2003-04-19 22:43) [1]

2 TINY BROTHER
подрости и сначала садись за бейсик, что бы научится составлять простейшие алгоритмы, а не занимайся конструктором для дядей постарше...

← →
Sheng © (2003-04-19 22:44) [2]

Можно и так (то, что на ум пришло):

i:=1;
while not(Pos(Edit1.Text)[i] in ["0".."9"]) do Inc(i);
Label1.Caption:=Copy(Edit1.Text,i,Length(Edit1.Text)-i);

← →
Sheng © (2003-04-19 22:46) [3]

Ой. Не так. Вот так:

i:=1;
while not(Edit1.Text[i] in ["0".."9"]) do Inc(i);
Label1.Caption:=Copy(Edit1.Text,i,Length(Edit1.Text)-i);

← →
BIG BROTHER (2003-04-19 22:48) [4]

хотя бы навидите на мысль дальше я сам а по бейсику я еще в школе экзамен сдал, но что ворошить прошлое и вспоминать что-то, легче делфи сейчас изучить. А книжки по нему оч. мало времени читать!!!

← →
Sheng © (2003-04-19 22:50) [5]

Дык, енто (19.04.03 22:46) што, не работает??

← →
Palladin © (2003-04-19 22:51) [6]

экзамен по бэйсику это глупость несусветная
нужно здавать экзамен на составление алгоритмов и на умение думать

в твоем вопросе нет ничего относящегося конкретно к делфи.

← →
BIG BROTHER (2003-04-19 22:52) [7]

Энто 19.04.03 22:46 я прочитал ПОСЛЕ напивания сообщения я щя энто пробую

← →
BIG BROTHER (2003-04-19 22:55) [8]

РАБОТАЕТ!!!
ОГРОМНОЕ СПАСИБО Sheng © !!!

← →
BIG BROTHER (2003-04-19 22:58) [9]

2 Palladin
Ну извините что меня такая плохая память, что я не помнь как составлять алгоритмы!

пройти всю строку в цикле и выкинуть символы которые не являются цыфрами

Известная проблема - книжки читать некогда, надо программы писать.

А Вы задумайтесь - что выгоднее с точки зрения хотя бы той же экономии времени? Уж не говоря о качестве программ.

Думать некогда, надо программы писать :-)

Фильтр букв Найти похожие ветки