Форум: "Основная";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];
Вниз
Фильтр букв Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c
