Вставка первого символа

@Sasha · Регистрация: 05.06.2008

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

Доброе утро!

Помогите разобратся с проблемой. Хочу чтобы в едит вводился первый символ S, если он там есть то вводить не надо, если нет, то надо

C++
1
2
3
4
5
6
void __fastcall TMainForm::Edit2Click(TObject *Sender)
{
LoadKeyboardLayout("00000409", KLF_ACTIVATE);
if (Edit2->Text[1] != 'S');
   {Edit2->Text[1] = 'S';}
}

Выскакивает ошибка
Что я делаю не правильно?

Заранее благодарен за ответ

@Airhand · 15.07.2009, 12:01

А зачем ты загружаешь Layout ?
Попробуй закоментить эту строку и всё в проце, чтобы убедиться, что ошибка происходит в проце.

@Sasha · 15.07.2009, 12:20 **[ТС]**

Закоментил. Всё равно выскакивает эта ошибка......

@mirso · 15.07.2009, 12:22

Sasha,

C++
1
2
3
4
5
if (Edit2->Text[1] != 'S')
    {
        ShowMessage("Не найден 'S'\nБудет произведена замена!");
        Edit2->Text = "S";
    }

@Airhand · 15.07.2009, 12:34

Что закоментил: строку или всю процу. Если закоментил всю процу, то ошибка не тут.

@Sasha · 15.07.2009, 12:48 **[ТС]**

if (Edit2->Text[1] != 'S')
{
ShowMessage("Не найден 'S'\nБудет произведена замена!");
Edit2->Text = "S";
}

Не помогло всё равно пишит ошибку туже самую

Добавлено через 49 секунд
Airhand, что ты имееешь под словом ПРОЦА

@mirso · 15.07.2009, 12:52

Sasha,
оставь только это

C++
1
2
3
4
void __fastcall TMainForm::Edit2Click(TObject *Sender)
{
    //
}

тоже ошибка?!

@Sasha · 15.07.2009, 12:57 **[ТС]**

Нет так ошибки нет, вводит всё нормально.

@mirso · 15.07.2009, 13:06

Sasha,
а ты можешь скопировать всё тело функции отсюдова?

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::Edit2Click(TObject *Sender)
{
    LoadKeyboardLayout("00000409", KLF_ACTIVATE);
    //----------------------------------------------------------
    if (Edit2->Text[1] != 'S')
    {
        ShowMessage("Не найден 'S'\nБудет произведена замена!");
        Edit2->Text = "S";
    }
}
//---------------------------------------------------------------------------

у меня ошибку не выдает.

@Sasha · 15.07.2009, 13:29 **[ТС]**

Скопировал я полностью, скомпилировал запустилась программа, только мышью ставлю курсор в едит как опять ошибка.

Прям не знаю, что и делать?

@mirso · 15.07.2009, 13:35

Sasha, Sasha,
у тебя вот такое есть?

C++
1
2
3
4
5
6
void __fastcall TForm1::Edit2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    //error
}
//---------------------------------------------------------------------------

@Sasha · 15.07.2009, 13:40 **[ТС]**

есть

Добавлено через 1 минуту 5 секунд
есть, оно уже забито кодом

@mirso · 15.07.2009, 13:41

выкидывай!

Добавлено через 39 секунд
т.е закоментируй!

@Sasha · 15.07.2009, 13:43 **[ТС]**

Закоментировал, всё равно ошибка

@mirso · 15.07.2009, 13:49

Тогда,
сделай еще один TEdit
допустим Edit222

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::Edit222Click(TObject *Sender)
{
    LoadKeyboardLayout("00000409", KLF_ACTIVATE);
    //----------------------------------------------------------
    if (Edit222->Text[1] != 'S')
    {
        ShowMessage("Не найден 'S'\nБудет произведена замена!");
        Edit222->Text = "S";
    }
}
//---------------------------------------------------------------------------

и проверь!
Если он работает - одной проблэмой меньше!

@Sasha · 15.07.2009, 13:58 **[ТС]**

Урааааааааааааааааааааааааа
Работаеттттттттттттттттттттттттт!!!!!!!! !!!!!!!!!!

Спасибо.

Тогда, что с моим старым едитом?

@mirso · 15.07.2009, 14:06

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

*
void __fastcall TForm1::Edit2MouseDown(TObject *Sender,
* * * TMouseButton Button, TShiftState Shift, int X, int Y)
{
* * //error
}
//---------------------------------------------------------------------------

Искать ошибку!

Но это уже новая тема!

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Airhand 537 / 459 / 3 Регистрация: 08.07.2009 Сообщений: 2,625
	15.07.2009, 12:01
	А зачем ты загружаешь Layout ? Попробуй закоментить эту строку и всё в проце, чтобы убедиться, что ошибка происходит в проце. 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	15.07.2009, 12:20 [ТС]
	Закоментил. Всё равно выскакивает эта ошибка...... 0

@Airhand 537 / 459 / 3 Регистрация: 08.07.2009 Сообщений: 2,625
	15.07.2009, 12:34
	Что закоментил: строку или всю процу. Если закоментил всю процу, то ошибка не тут. 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	15.07.2009, 12:57 [ТС]
	Нет так ошибки нет, вводит всё нормально. 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	15.07.2009, 13:29 [ТС]
	Скопировал я полностью, скомпилировал запустилась программа, только мышью ставлю курсор в едит как опять ошибка. Прям не знаю, что и делать? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	15.07.2009, 13:40 [ТС]
	есть Добавлено через 1 минуту 5 секунд есть, оно уже забито кодом 0

@mirso 562 / 373 / 55 Регистрация: 05.04.2009 Сообщений: 767
	15.07.2009, 13:41
	выкидывай! Добавлено через 39 секунд т.е закоментируй! 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	15.07.2009, 13:43 [ТС]
	Закоментировал, всё равно ошибка 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	15.07.2009, 13:58 [ТС]
	Урааааааааааааааааааааааааа Работаеттттттттттттттттттттттттт!!!!!!!! !!!!!!!!!! Спасибо. Тогда, что с моим старым едитом? 0