Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.014 c