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

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

Новые блоги и статьи Все статьи Все блоги /
Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .	Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .
Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .	Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .	сукцессия 15 неявная схема anaschu 29.06.2026 Алиса Калибровка параметров симбиотической модели: технический обзор Содержание: Введение Постановка проблемы Технические аспекты реализации Процесс внедрения изменений

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