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

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

Новые блоги и статьи Все статьи Все блоги /
20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.
Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .

@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 Администратор 87942 / 53263 / 249 Регистрация: 10.04.2006 Сообщений: 13,781
	27.02.2010, 18:21
	Каждому вопросу - отдельная тема. 1