|
Вопрос # 4 369/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
ПОМОГИТЕ СОЗДАТЬ ПРОГРАММА =) НА ФОРМЕ АХОДИТСЯ 3, КОМПОНЕНТА edit.combobOx. И КНОПКА ,Я ВВОЖУ ДАННЫЕ В ПОЕ EDIT ВЫБИРАЮ ЗНАЧЕНИЕ ИЗ COMBOBOXA И ПРИ НАЖАТИ НА КНОПКУ У МЕНЯ ВЫВОДИТСЯ РЕЗУЛЬТАТ В МЕТКУ ПОМОГИТЕ КТО ЧЕМ МОЖЕТ ПОЖАЛУЙСТА=))
 |
Вопрос задал: Руслан Сергеевич (статус: Посетитель)
Вопрос отправлен: 30 июня 2010, 19:55
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Кириченко Сергей
Здравствуйте, Руслан Сергеевич!
Достаточно сложно ответить на такой вопрос так как не понятна сама задача поэтому вот такой ответ
Выбранное значение в Combobox можно получить так:
Str:=Combobox1.Items[Combobox1.ItemIndex]
Введенное в Edit значение можно получить так:
Str:=Edit1.Text;
Записать в Label:
Label1.Caption:=Str;
Преобразовать строку в целое число:
Int:=StrToInt(Str);
Преобразовать целое число в строку:
Str:=IntToStr;
Преобразовать натуральное число в строку:
Str:=FloatToStr(Rel);
Преобразовать строку в натуральное число:
Rel:=StrToFloat(Str);
Где переменные :
var
Str:string;
Int:integer;
Rel:real;
Пример в приложении
Приложение: Переключить в обычный режим- procedure TForm1.Button1Click(Sender: TObject);
- var
- SditStr,ComboStr:string;
- Int:integer;
- begin
- ComboStr:=Combobox1.Items[Combobox1.ItemIndex];
- EditStr:=Edit1.Text;
-
- Label.Caption:=ComboStr+EditStr;
-
- Int:=StrToInt(ComboStr)+StrToInt(EditStr);
- Label.Caption:=IntToStr(Int);
- end;
 |
Ответ отправил: Кириченко Сергей (статус: 1-ый класс)
Время отправки: 1 июля 2010, 04:31
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 18; последнее сообщение — 1 июля 2010, 12:54; участников в обсуждении: 4.
|
min@y™ (статус: Доктор наук), 30 июня 2010, 20:06 [#1]:
5 баллов!
Это лучший вопрос месяца, 1600 кг!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Мережников Андрей (статус: Абитуриент), 30 июня 2010, 20:23 [#2]:
На клавиатуре залипли клавиши? По человечески внятно написать можно? Такое впечатление, что при написании вопроса часть пива пролили на клавиатуру. И в чем собственно вопрос?
|
|
padonak (статус: Посетитель), 30 июня 2010, 21:19 [#3]:
на англицком он без ошибок печатает... )))
Русик, кидай сюда код, попробуем разобраться...
|
|
|
Мережников Андрей (статус: Абитуриент), 30 июня 2010, 21:31 [#4]:
компонент edit.combobox - это что?
|
|
|
Руслан Сергеевич (статус: Посетитель), 30 июня 2010, 23:16 [#5]:
Мережников Андрей: это как было описано выше залипание там не '.' а ','
и есчё нужно чтоб при нажатии кнопки разные результаты выдавало а не один =)
|
|
|
padonak (статус: Посетитель), 1 июля 2010, 00:34 [#6]:
Руслан: или ты кинешь код, или те здесь никто не поможет...
это опять из той оперы: "у тебя ошибка в 17 строке!!!"...
|
|
|
Руслан Сергеевич (статус: Посетитель), 1 июля 2010, 00:37 [#7]:
padonak: честно говоря мне вот сам код и нужен на эту программу =))))
|
|
|
padonak (статус: Посетитель), 1 июля 2010, 02:28 [#8]:
ладно, тогда так... что ты вводишь в edit и что выбираешь в combobox? ну и какой должен быть результат? просто непонятно какие действия нужно выполнять...
|
|
|
padonak (статус: Посетитель), 1 июля 2010, 10:49 [#10]:
действительно сложно ответить на такой вопрос... Русик, вот один из моих первых проектов - http://files.mail.ru/UR9OKW. я надеюсь ты сможешь отредактировать как тебе нужно...
эксперты, прошу не судить строго... 
|
|
|
min@y™ (статус: Доктор наук), 1 июля 2010, 12:06 [#13]:
Цитата (Руслан Сергеевич):
пишет не найдена страница
Копируй ссылку без точки в конце.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 1 июля 2010, 12:32 [#15]:
Почему "северный олень"?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Руслан Сергеевич (статус: Посетитель), 1 июля 2010, 12:42 [#16]:
там при скачивании пишет файл получен от северного оленя
|
|
|
min@y™ (статус: Доктор наук), 1 июля 2010, 12:46 [#17]:
Цитата (Руслан Сергеевич):
там при скачивании пишет файл получен от северного оленя
Но это же не значит, что файл выложил я!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
