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

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

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