Помогите,пожалуйста,с довольно простенькой программой(Delphi) - Помощь студентам

o_O · 27.05.2008, 01:17

Суть такова: в Lable написаны буквенные и числовые символы, при нажатии на Button должно посчитать только числовые.Понимаю что задача простенькая, но биться с ней уже не могу

Заранее благодарен

Шаман · 27.05.2008, 02:43

Объясни поконкретней суть задачи...

yourself · 27.05.2008, 04:45

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i,c:integer;  s:string;
begin
c:=0;
label2.Caption:='';
s:=Label1.Caption;
for i:=0 to length(label1.Caption) do
if (ord(s[i])>=48) and (ord(s[i])<=57) then
inc(c);
label2.Caption:=IntToStr(c)
end;

SERG1980 · 27.05.2008, 08:09

Цитата:

Сообщение от yourself

if (ord(s[i])>=48) and (ord(s[i])<=57) then

или так

Код:

if s[i] in['0'..'9'] then

o_O · 27.05.2008, 11:35

yourself,SERG1980 спасибо большое очень выручили

27.05.2008, 01:17	#1
o_O Новичок Джуниор Регистрация: 27.05.2008 Сообщений: 2	Множества(Delphi) Суть такова: в Lable написаны буквенные и числовые символы, при нажатии на Button должно посчитать только числовые.Понимаю что задача простенькая, но биться с ней уже не могуЗаранее благодарен Последний раз редактировалось o_O; 27.05.2008 в 01:28.

27.05.2008, 02:43	#2
Шаман Пользователь Регистрация: 01.03.2008 Сообщений: 25	Объясни поконкретней суть задачи... Плюс 1

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
ГОРИТ ДИПЛОМ!!!! пожалуйста помогите разобраться с программой	alexs2141	Фриланс	6	03.06.2008 20:30
помогите пожалуйста с программой Assembler	Norma	Помощь студентам	3	08.12.2007 12:18

27.05.2008, 11:35	#5
o_O Новичок Джуниор Регистрация: 27.05.2008 Сообщений: 2	yourself,SERG1980 спасибо большое очень выручили