перевод из одного типа в другой и по combobox

@REALIST07 · Регистрация: 11.06.2010

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток!У меня два вопроса:
1)как перевести из Extended в integer и наоборот,может есть функция стандартная?(наподобии inttostr)
2)Есть кнопка и combobox,где 13 строчек в items и на каждой действие назначено,надо сделать так что когда жмешь на кнопку строчки переключаются по кругу,спасибо за внимание!

@abiprofi · 11.08.2010, 23:39

Что значит весь проект не работает? Твой проект в архиве https://www.cyberforum.ru/atta... 1281335417 , уже не рабочий!

1. В секцию объявления класса формы добавляешь следующее:

Delphi
1
2
3
private
{ Private declarations }
formshow: boolean;

2. В метод FormCreate

Delphi
1
2
begin
formshow := false;//форма не видна

3. В метод VisClick следующее:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.VisClick(Sender: TObject);
begin
if  vis.Checked then
begin
formshow := true;//видна форма 2
vis.Font.Style:=[fsbold];
form2.show;end
else
begin
formshow := false;//не видна форма 2
form2.close;
vis.Font.Style:=[];
end;
end;

4. В метод PaintBox3Click

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.PaintBox3Click(Sender: TObject);
begin
 //Сначала необходимо показать модальную форму!!!!
 if formshow = true then
 begin
 Form2.ComboBox1.ItemIndex := itemscount;
 itemscount := itemscount+1;
 if itemscount = Form2.ComboBox1.Items.Count then
   itemscount := 0;
 end
end;

На этом всё!

@REALIST07 · 11.08.2010, 23:59 **[ТС]**

работает но проблема в другом

Добавлено через 3 минуты

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm2.ComboBox1Change(Sender: TObject); 
begin case ComboBox1.ItemIndex of 0: AnalyzeMode(atNone);
 1: AnalyzeMode(atSpectrum);
 2: AnalyzeMode(atSpectrumPixel); 
3: AnalyzeMode(atSpectrumMirror); 
4: AnalyzeMode(atWave); 
5: AnalyzeMode(atWavePixel);
 6: AnalyzeMode(atWaveStereo);
 7: AnalyzeMode(atWaveMono);
 8: AnalyzeMode(atVUMeter); 
9: AnalyzeMode(atVUPixel); 
10: AnalyzeMode(atVUMirror); 
11: AnalyzeMode(atCircle); 
12: AnalyzeMode(atCircleStereo); 
13: AnalyzeMode(atCircleMono); end;

Проблема в чем?вроде все работает но по идее должны меняться в пайнт боксе спектрограммы а они не меняются

__PION__ · 12.08.2010, 00:13

в условии сказано что дейтсвия происходят при нажатии на кнопку. не пойму зачем ты используешь изменение СВ

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

procedure TForm2.ComboBox1Change(Sender: TObject);

@abiprofi · 12.08.2010, 00:33

REALIST07,брось рабочий проект, покажу как!!!

@REALIST07 · 12.08.2010, 00:42 **[ТС]**

abiprofi,так он же есть смотри выше

@abiprofi · 12.08.2010, 01:31

Вы читаете, что я пишу?

Что значит весь проект не работает? Твой проект в архиве https://www.cyberforum.ru/attachment....5&d=1281335417 , уже не рабочий!

@REALIST07 · 12.08.2010, 09:36 **[ТС]**

Вот рабочий

@REALIST07 · 12.08.2010, 22:19 **[ТС]**

че совсем никто не в силах помочь?

@abiprofi · 12.08.2010, 23:00

Код не меняйте. Куда делась вот эта строка? Код Delphi
1
2
//Сначала необходимо показать модальную форму!!!! if formshow = true then

Необходимо добавить в процедуру весь код без изменений:

Код Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.PaintBox3Click(Sender: TObject); begin //Сначала необходимо показать модальную форму!!!! if formshow = true then begin Form2.ComboBox1.ItemIndex := itemscount; itemscount := itemscount+1; if itemscount = Form2.ComboBox1.Items.Count then itemscount := 0; Form2.ComboBox1Change(Sender);//Вот эта строка и отвечает за выполнение!!! end end;

Большое спасибо моим преподавателям!!!

Лучше членам форума!

@REALIST07 · 13.08.2010, 00:27 **[ТС]**

Да я так тысячу раз сделал,но спектограммы не меняются

@abiprofi · 13.08.2010, 00:34

ВЫ выложили код в https://www.cyberforum.ru/atta... 1281591363, я сужу по нему ничего Вы там не сделали из того что здесь рекомендовалось!!!
Ваш код у меня не работает,

Ошибка файл не загружен!

Проверить не могу! В обработчик PaintBox3Click необходимо добавить следующее:
[QUOTE]Form2.ComboBox1Change(Sender);//эта строка заставить выполниться код изменения отображения из Unit2.pas[/DELPHI]

Не понимаю, зачем просить о помощи и не слушать что отвечают!

1. В секцию объявления класса формы добавляешь следующее:...

Где эти четыре пункта? Без них работать не будет.

Резюмируя: Необходим Ваш рабочий проект или выполнение советов!!!

@REALIST07 · 13.08.2010, 00:44 **[ТС]**

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

Form2.ComboBox1Change(Sender);//эта строка заставить выполниться код изменения отображения из Unit2.pas

вот чего не хватало!!!!спасибо

Новые блоги и статьи Все статьи Все блоги /
Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .

@REALIST07 Автор FAQ 644 / 199 / 21 Регистрация: 11.06.2010 Сообщений: 1,024

	перевод из одного типа в другой и по combobox 08.08.2010, 16:04. Показов 10626. Ответов 31 Метки нет (Все метки) Всем доброго времени суток!У меня два вопроса: 1)как перевести из Extended в integer и наоборот,может есть функция стандартная?(наподобии inttostr) 2)Есть кнопка и combobox,где 13 строчек в items и на каждой действие назначено,надо сделать так что когда жмешь на кнопку строчки переключаются по кругу,спасибо за внимание! 0

@abiprofi 48 / 48 / 7 Регистрация: 04.08.2010 Сообщений: 110
	12.08.2010, 00:33
	REALIST07,брось рабочий проект, покажу как!!! 0

@REALIST07 Автор FAQ 644 / 199 / 21 Регистрация: 11.06.2010 Сообщений: 1,024
	12.08.2010, 00:42 [ТС]
	abiprofi,так он же есть смотри выше 0

@REALIST07 Автор FAQ 644 / 199 / 21 Регистрация: 11.06.2010 Сообщений: 1,024
	12.08.2010, 22:19 [ТС]
	че совсем никто не в силах помочь? 0

@REALIST07 Автор FAQ 644 / 199 / 21 Регистрация: 11.06.2010 Сообщений: 1,024
	13.08.2010, 00:27 [ТС]
	Да я так тысячу раз сделал,но спектограммы не меняются 0