RichEdit

@Garic_ · Регистрация: 03.11.2009

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

\\Надо получить в одной строке два значения (№счёт и через пробел значение переменой х)
При нажатии Button2

C++
1
2
3
int i++;
int x = 100;
RichEdit1->Lines->Add(i.x);//Add(i.x) не знаю как правильно.

@gorin · 06.02.2010, 19:02

sh4d°_°ff, а что делать в етом случае

Добавлено через 2 минуты
sh4d°_°ff, может нужно оглашать едеты const float?

sh4d°_°ff · 06.02.2010, 19:27

нет, если я оказался прав, то наверно стоит или заменить пустое место на 0 или поставить условие при присваивании типа... мм...

C++
1
2
3
4
5
6
7
8
if (LabeledEdit1->Text!="")
{
float m=StrToFloat(LabeledEdit1->Text);
}
if (LabeledEdit2->Text!="")
{
float d=StrToFloat(LabeledEdit2->Text);
}

так же стоит, думаю, (но тебе виднее) запретить в эьти едиты нецифры код такой:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if ((Key >= '0') && (Key <= '9')) // öèôðû
{
return;
}
else if ((Key == '.') || (Key == ',')) // çàïÿòàÿ
        {
        if (((TEdit*)Sender)->Text.Pos(DecimalSeparator)!=0) // åñëè çàïÿòàÿ óæå åñòü
                Key = 0;
        else // åñëè åù¸ íåò
                Key = DecimalSeparator;
        }
else Key = 0; // íå öèôðà
}

это как, думаю ты понимаешь, втыкается на onKeyPress нужного Edit'a (в примере с Edit1)

@gorin · 06.02.2010, 19:34

sh4d°_°ff, У меня к тебе вопросик может ти знаеш как так можно зделать. Может ти знаеш как можно запрограмировать едети так чтоби я например вводил один ыз них какоето чесло а в остальних виводило результат остальних велечи. Вот чтото типа такого http://alpha-610.narod.ru/trance.html

sh4d°_°ff · 06.02.2010, 19:56

нуу... за тебя я писать не буду... но алгоритм прост... примерно такой как в приведенном тобой выше коде... все правильно.. смотри допустим для трех типов данных... условно.. во первых, если ты хочешь "как там", что было бы разумно, то на onClick для Edit'ов ставишь код типа

C++
1
2
3
4
5
void __fastcall TForm1::Edit1Click(TObject *Sender)
{
Edit2->Text=""; //обнуляем остальные
Edit3->Text="";
}

потом основное будет типа того:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float a1, a2, a3;
if (Edit1->Text!="")
{
a1=StrToFloat(Edit1->Text);
a2=a1*123123;
a3=a1*21222;
Edit1->Text=a1;
Edit2->Text=a2;
Edit3->Text=a3;
}
else if (Edit2->Text!="")
{
a2=StrToFloat(Edit2->Text);
a1=a2*123123;
a3=a2*21222;
Edit1->Text=a1;
Edit2->Text=a2;
Edit3->Text=a3;
}
else if (Edit3->Text!="")
{
a3=StrToFloat(Edit3->Text);
a2=a2*123123;
a1=a2*21222;
Edit1->Text=a1;
Edit2->Text=a2;
Edit3->Text=a3;
}
else ShowMessage("Введи число, злобный ахтунг!!!!");
}

ну думаю понятно.. домножаешь на нужное число и все... ну как типа в килограмме 1024гр, т.е если a1 - граммы, а a2 - килограммы то мы делаем a1=a2*1024... все просто, gorin, только нужно чуть чуть подумать))

@gorin · 07.02.2010, 12:39

sh4d°_°ff, Большое спасибо вишло так как я хотел!!!!!!

Добавлено через 15 часов 20 минут
Прива пацани, у меня такой вопрос можно както обекта Shape1 выбрать форму трикутника?
А то я там пересмотрел трикуника нету!!!!!

sh4d°_°ff · 07.02.2010, 13:14

если не ошибаюсь то нет

@gorin · 09.02.2010, 20:49

Ребята как можно написать бота к игре крестикам-ноликам?
Вот код игры крестики нолики я хочу запрогамировать туда типа проверки чтобы комп играл со мной (штучный интелект)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
void __fastcall TForm1::a1Click(TObject *Sender)
{
int diya=1;
dynamic_cast<TSpeedButton*>(Sender)->Enabled=false;
if ((diya%1==0)&&(diya%2==0)){
dynamic_cast<TSpeedButton*>(Sender)->Caption="O";
dynamic_cast<TSpeedButton*>(Sender)->Tag=2;}
else{
dynamic_cast<TSpeedButton*>(Sender)->Caption="X";
dynamic_cast<TSpeedButton*>(Sender)->Tag=1;}
diya++;
AnsiString name=dynamic_cast<TSpeedButton*>(Sender)->Name;
if(name=="a1"||name=="a2"||name=="a3"){
if((a1->Tag==a2->Tag)&&(a2->Tag==a3->Tag))
Image1->Visible=true;}
if(name=="a4"||name=="a5"||name=="a6"){
if((a4->Tag==a5->Tag)&&(a5->Tag==a6->Tag))
Image1->Visible=true;}
if(name=="a7"||name=="a8"||name=="a9"){
if((a7->Tag==a8->Tag)&&(a8->Tag==a9->Tag))
Image1->Visible=true;}
if(name=="a1"||name=="a4"||name=="a7"){
if((a1->Tag==a4->Tag)&&(a4->Tag==a7->Tag))
Image1->Visible=true;}
if(name=="a2"||name=="a5"||name=="a8"){
if((a2->Tag==a5->Tag)&&(a5->Tag==a8->Tag))
Image1->Visible=true;}
if(name=="a3"||name=="a6"||name=="a9"){
if((a3->Tag==a6->Tag)&&(a6->Tag==a9->Tag))
Image1->Visible=true;}
if(name=="a1"||name=="a5"||name=="a9"){
if((a1->Tag==a5->Tag)&&(a5->Tag==a9->Tag))
Image1->Visible=true;}
if(name=="a3"||name=="a5"||name=="a7"){
if((a3->Tag==a5->Tag)&&(a5->Tag==a7->Tag))
Image1->Visible=true;}
}

@gorin · 12.02.2010, 19:36

sh4d°_°ff, Привет подскажи как можно чтоби комп ставил свой ход!! А то чтото не как додуматса не могу!!!

sh4d°_°ff · 13.02.2010, 07:36

gorin, я тебе код кинуть не могу (т.к. нету и писать некогда и лень).. но ссылочкой поделюсь:

http://ru.wikipedia.org/wiki/%... 0%BA%D0%B8

алгоритм реализуется через if else... короче все очень просто =)
кстати вот тебе кресты с тупым АИ.. мб пригодятся:

@gorin · 17.02.2010, 20:09

sh4d°_°ff, прива, спасибо за ссылку и за архив.

Добавлено через 5 минут
sh4d°_°ff, Слышеш может ты знаеш книжки где там есть игра Крестики нолики на С Builder 6?

sh4d°_°ff · 17.02.2010, 20:13

неа.. у меня таких книжек нет.. в интернете полно всякого видел.. а так не знаю

@gorin · 17.02.2010, 20:16

sh4d°_°ff, Мне нужно розобратса как именно бот пишетса, и у меня же крестики нолики с кнопками, а чтобы нормально розобратса нужно чтобы хтото обяснил или просто литературу почетать!!!

@gorin · 26.02.2010, 22:53

Пответ всем, у меня проблемка одна есть!!! Я пишу прогу про фигури алгибротческие. Круг и квадрат. Для того чтобы написать эту прогу я использую Обекти Image. Также я использую еще 3 обекта ComboBox, SpeedButton и LabeledEdit. Прога у меня работает только с одной функцией Ресует Квадрат в круге, а когда я вставляю второй обект Image только в него вставляю вторую картинку чтобы рисовало Круг в квадрате. При компиляции ошибки нету, а когда идет самий процес рисования второго Image выбивает ошибку!!!

Добавлено через 14 минут
Вот код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
const float a=StrToFloat(LabeledEdit2->Text);
const float r=StrToFloat(LabeledEdit1->Text);
switch(ComboBox1->ItemIndex) {
case 0:
Image1->Visible=true;
Image1->Width=r*2;
Image1->Height=r*2;
break;
case 1:
Image2->Visible=true;
Image2->Width=a;
Image2->Height=a;
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
switch(ComboBox1->ItemIndex){
case 0:
LabeledEdit1->Visible=true;
break;
case 1:
LabeledEdit2->Visible=true;
break;
}
}
//---------------------------------------------------------------------------

Добавлено через 1 минуту
sh4d°_°ff, Я уже ту прогу дописал учень круто вышло, могу кинуть посмотриш!!!!! (Конвектор валют, растояния и обьема)

Добавлено через 6 минут
Вота ошибка:
<img str="http://p23a.at.ua/ZTK_P33-A/14554.png">

Добавлено через 2 минуты
Вот ошыбка:
<IMG SRC="http://p23a.at.ua/ZTK_P33-A/14554.png">

Добавлено через 13 секунд
Вот ошыбка:
[IMG SRC="http://p23a.at.ua/ZTK_P33-A/14554.png"]

Добавлено через 15 секунд
Вот ошыбка:
http://p23a.at.ua/ZTK_P33-A/14554.png

Добавлено через 3 минуты
А вот скриншот проги:
http://p23a.at.ua/ZTK_P33-A/32354.png

Добавлено через 4 минуты
http://p23a.at.ua/ZTK_P33-A/345410.png

@NiTan · 27.02.2010, 11:21

Ошибка вот здесь:

C++
1
const float a=StrToFloat(LabeledEdit2->Text);

Скорее всего в LabeledEdit2->Text записанно не число, и поэтому StrToFloat() не может конвертировать текст в число. А судя по ошибке в LabeledEdit2->Text вообще нет текста.

@gorin · 27.02.2010, 17:34

А что тогда делать, как устранить ошибку?

@NiTan · 27.02.2010, 18:10

Сделать так, чтобы в LabeledEdit2->Text было записанно число.

@gorin · 27.02.2010, 18:19

Я вот програмировал з одним Image у меня ошибок не выбивало. Вот например я ставлю на форму LabeledEdit1 Кнопку="Нарисовать" и Image з картинкой Круг в квадрате. И просто забираю значение из LabeledEdit1 которое равно а, и програмирую так чтобы это число размери Image. Вот такойто принцып. С одним Image работает ну когда я всталяю второй Image ну чтоби уже рисовало квадрат в круге при этом задавая радиус круга, и у меня выбивает ошибка, ошибка привидена выше.......

@mik-a-el · 27.02.2010, 18:21

Каждому вопросу - отдельная тема.

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	06.02.2010, 19:02
	sh4d°_°ff, а что делать в етом случае Добавлено через 2 минуты sh4d°_°ff, может нужно оглашать едеты const float? 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	06.02.2010, 19:34
	sh4d°_°ff, У меня к тебе вопросик может ти знаеш как так можно зделать. Может ти знаеш как можно запрограмировать едети так чтоби я например вводил один ыз них какоето чесло а в остальних виводило результат остальних велечи. Вот чтото типа такого http://alpha-610.narod.ru/trance.html 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	07.02.2010, 12:39
	sh4d°_°ff, Большое спасибо вишло так как я хотел!!!!!! Добавлено через 15 часов 20 минут Прива пацани, у меня такой вопрос можно както обекта Shape1 выбрать форму трикутника? А то я там пересмотрел трикуника нету!!!!! 0

sh4d°_°ff говнокодер 1273 / 297 / 35 Регистрация: 31.10.2009 Сообщений: 1,432
	07.02.2010, 13:14
	если не ошибаюсь то нет 1

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	12.02.2010, 19:36
	sh4d°_°ff, Привет подскажи как можно чтоби комп ставил свой ход!! А то чтото не как додуматса не могу!!! 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	17.02.2010, 20:09
	sh4d°_°ff, прива, спасибо за ссылку и за архив. Добавлено через 5 минут sh4d°_°ff, Слышеш может ты знаеш книжки где там есть игра Крестики нолики на С Builder 6? 0

sh4d°_°ff говнокодер 1273 / 297 / 35 Регистрация: 31.10.2009 Сообщений: 1,432
	17.02.2010, 20:13
	неа.. у меня таких книжек нет.. в интернете полно всякого видел.. а так не знаю 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	17.02.2010, 20:16
	sh4d°_°ff, Мне нужно розобратса как именно бот пишетса, и у меня же крестики нолики с кнопками, а чтобы нормально розобратса нужно чтобы хтото обяснил или просто литературу почетать!!! 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	27.02.2010, 17:34
	А что тогда делать, как устранить ошибку? 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	27.02.2010, 18:10
	Сделать так, чтобы в LabeledEdit2->Text было записанно число. 1

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	27.02.2010, 18:19
	Я вот програмировал з одним Image у меня ошибок не выбивало. Вот например я ставлю на форму LabeledEdit1 Кнопку="Нарисовать" и Image з картинкой Круг в квадрате. И просто забираю значение из LabeledEdit1 которое равно а, и програмирую так чтобы это число размери Image. Вот такойто принцып. С одним Image работает ну когда я всталяю второй Image ну чтоби уже рисовало квадрат в круге при этом задавая радиус круга, и у меня выбивает ошибка, ошибка привидена выше....... 0

@mik-a-el Администратор 87982 / 53303 / 249 Регистрация: 10.04.2006 Сообщений: 13,783
	27.02.2010, 18:21
	Каждому вопросу - отдельная тема. 1