Регситр букв

[Syltan]

С консолью подружился, тут попробовал на билдере,использовать тот же консоль только с эдитами, и уже не работает.
Что я хочу сделать? Я хочу вводить в Эдит1 слово, при нажатии на кнопку, выдавать в Эдит 2 такой резульат. Если буква с маленькой заменить на большую, а если большая, заменить на маленькую. Например, я ввожу слово "Собака" в Edit1, при нажатии на батон1, получить в Edit2 слово "сОБАКА".


Пробывал,валять это в билдере, не получается.

[Stilet]

Пробывал,валять это в билдере, не получается.

Ну хвастайся. Код в студию - а там посмотрим.

[Syltan]

Знаю только как на студии в консоле, а на билдере не вкурсе:

#include <iostream>
#include <ctype.h>
using namespace std;
 
int main()
{
setlocale(0,"");
char *p;
int i;
char str[80] = "Собака";
p = str;
for(i = 0; p[i]; i++) {
if(isupper(p[i]))
p[i] = tolower(p[i]);
else
if(islower(p[i]))
p[i] = toupper(p[i]);
}
 
 
cout<<"Результат\n"<<str;
cin.get();
}

Вроде Edit1->Text нужно использовать, но не очень знаю как сделать. В какие компоненты пихать.

[Stilet]

Ок. Могу предложить такое:

//---------------------------------------------------------------------------

#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::Edit1Change(TObject *Sender)
{
 AnsiString s=Edit1->Text,e="";
 for (int i = 1; i <=s.Length(); i++) {
  char c=s[i];
  e+=(isupper(c))?(LowerCase(c)):(UpperCase(c));
 }
 Edit2->Text=e;
}
//---------------------------------------------------------------------------

Код требует оптимизации но в целом идея должне быть ясна.

[Syltan]

Вот, где-то насдыбал, вот такое:

Edit2->Text = Edit1->Text.SubString(1,1).LowerCase() + Edit1->Text.SubString(2,Edit1->Text.Length()).UpperCase();

LowerCase() - по ходу функциякоторая делает буквы маленькими,
UpperCase(); - большими. Не в курсе что такое SubString(2
Мне это вариант что-то более нравится. Не могли б вы сказать, что делает SubString(1,1). Зачем идут прибавления.
Пару строк, если кто может по этому коду.

[Stilet]

Эта функция аналог copy. получает набор символов из позиции длинной указанной во втором параметре.
Помоему такой вариант не лучше... Впрочем если ты его на ноги поставишь пройдет.

[Syltan]

Попробовал ваш код, немного не так, у вас сразу отображается при вводе во 2 эдите, а мне нужно чтоб отобразилось при нажатии кнопки изменения во втором эдите. И работает только если вести один раз слово. Как изменить ваш код,чтобь был наподобии, того, который я нашёл?

[Stilet]

Syltan

Что мешает делать это в событии OnKeyPress и проверять if (key==13) {Делаем}

[Syltan]

Вот сделал такой вариант,мне его проще всех понять:

 char *p;
int i;
  p = Edit1->Text.c_str();
  for(i = 0; p[i]; i++)
  {
    if(isupper(p[i]))
      p[i] = tolower(p[i]);
    else
      if(islower(p[i]))
        p[i] = toupper(p[i]);
  }
  Edit2->Text=p;

c_str(); - это функция преоброзования строки в символьный тип.
Вроде так как я хотел, но дело в том,что программа ,скомпилится, но при вводе "Я", в маленькую "я", не преобразует. Может подскажите,преобразователь в unsigned char ?При преобразовании в этот тип всё выводит нормально,как в консольном варианте.
Ещё, программа работает только один раз, при вводе 2-ой раз в Эдит, слова, и нажатии кнопки батон, программа просто выводит всё то,что я ввёл в Эдит1, то и выводит в Эдит2 без изменения.