Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.01;
Скачать: CL | DM;

Вниз

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

 
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
Ну извините что меня такая плохая память, что я не помнь как составлять алгоритмы!


 
Романов Р.В. ©   (2003-04-19 23:12) [10]

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


 
Юрий Зотов ©   (2003-04-19 23:55) [11]

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

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


 
app ©   (2003-04-20 11:26) [12]

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



Страницы: 1 вся ветка

Текущий архив: 2003.05.01;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.01 c
4-848
neodiX
2003-03-04 15:52
2003.05.01
BitBlt - иногда при копировании экрана в бмп получается


14-785
dlph
2003-04-15 17:44
2003.05.01
международный чат по db


14-772
konstb
2003-04-14 16:35
2003.05.01
Ищу компонент а-ля Object Inspector


3-482
Term
2003-04-14 17:08
2003.05.01
Файл-серверное приложение. Возникла такая проблема если открываю


14-708
paranoid
2003-04-12 20:10
2003.05.01
Помогите! Очень срочно! как отловить все, что пользователь вводит