ListBox & ASCII

ListBox1->Items->Add(0x4A); // Выводит 74 (номер (код) клавиши, а должно J)

ListBox1->Items->Add('#74'); // Выводит n-значное число

ListBox1->Items->Add((char)74); // это вам не паскалистый делфий

ListBox1->Items->Add(char((char)74 + 1));

UnicodeString str = "Строка";
  int i;
  wchar_t chr;
  for (i = 1; i < str.Length()+1; i++) {
    chr = str[i];
    ListBox1->Items->Add(chr);
  }

Add(char((char)74 + 1))

ListBox1->Items->Add((char)chr);

// наглядный пример
int chr;
chr = 74;
chr += 1;
ListBox1->Items->Add((char)chr);

ListBox1->Items->Add(char((char)74 + 1));

ListBox1->Items->Add((char)128); // это символ А

UnicodeString str = "Строка";
int i;
wchar_t chr;
for (i = 1; i <= str.Length(); i++) {
chr = str[i+1].c_str();
ListBox1->Items->Add(chr);
}

UnicodeString str = "Строка";
int i,j;
wchar_t chr;
for (i = 1; i <= str.Length(); i++) {
j = (int)str[i]; // узнаем числовое значение символа
j += 1; // меняем это значение
chr = (char)j; // узнаем, какой же символ получился
ListBox1->Items->Add(chr); // добавляем
}

UnicodeString str = ListBox1->Items->Strings[0];
int i,j;
wchar_t chr;
for (i = 1; i <= str.Length(); i++) {
j = (int)str[i]; // узнаем числовое значение символа
j += 1; // меняем это значение
chr = (wchar_t)j; // тут было просто char!)
ListBox1->Items->Add(chr); // добавляем
}

Edit->Text = Edit->Text+chr;

UnicodeString str,stmp;
str = "Строка";
int i,j;
wchar_t chr;
for (i = 1; i <= str.Length(); i++) {
j = (int)str[i]; // узнаем числовое значение символа
j += 1; // меняем это значение
chr = (wchar_t)j; // узнаем, какой это символ получился
stmp += chr; // stmp = stmp+chr; // 
ListBox1->Items->Add(stmp); // добавляем
}

UnicodeString str, stmp;
str = "Строка";
int i,j;
wchar_t chr;
for (i = 1; i <= str.Length(); i++) {
j = (int)str[i]; // узнаем числовое значение символа
j += 1; // меняем это значение
chr = (wchar_t)j; // узнаем, какой это символ получился
stmp += chr; // stmp = stmp+chr; //
}
ListBox1->Items->Add(stmp); // добавляем

...
stmp += chr; // stmp = stmp+chr; // 
}
ListBox1->Items->Add(stmp); // добавляем

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
ListBox2->Visible = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ListBox1->Items->LoadFromFile("Output.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
ShellExecute(Handle, L"open", L"Input.txt", 0, 0, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
ShellExecute(Handle, L"open", L"Output.txt", 0, 0, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
UnicodeString str, stmp;
for (int i = 0; i < ListBox1->Items->Count; i++)
{
str = ListBox1->Items->Strings[i];
int i,j;
wchar_t chr;
for (i = 1; i <= str.Length(); i++)
{
j = (int)str[i]; // узнаем числовое значение символа
j += 1; // меняем это значение
chr = (wchar_t)j; // узнаем, какой это символ получился
stmp += chr; // stmp = stmp+chr;
}
}
ListBox2->Items->Add(stmp); // добавляем
ListBox2->Items->SaveToFile("Input.txt");
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  ListBox2->Visible = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ListBox1->Items->LoadFromFile("Output.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  ShellExecute(Handle, L"open", L"Input.txt", 0, 0, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
  ShellExecute(Handle, L"open", L"Output.txt", 0, 0, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  UnicodeString str, stmp;
  for (int i = 0; i < ListBox1->Items->Count; i++) {
    str = ListBox1->Items->Strings[i];
    int i,j;
    wchar_t chr;
    for (i = 1; i <= str.Length(); i++) {
      j = (int)str[i]; // узнаем числовое значение символа
      j += 1; // меняем это значение
      chr = (wchar_t)j; // узнаем, какой это символ получился
      stmp += chr; // stmp = stmp+chr;
    }
  }
  ListBox2->Items->Add(stmp); // добавляем
  ListBox2->Items->SaveToFile("Input.txt");
}

ListBox2->Visible = false;

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  TStringList *list;
  list = new TStringList;
  UnicodeString str, stmp;
  for (int i = 0; i < ListBox1->Items->Count; i++) {
    str = ListBox1->Items->Strings[i];
    int i,j;
    wchar_t chr;
    for (i = 1; i <= str.Length(); i++) {
      j = (int)str[i]; // узнаем числовое значение символа
      j += 1; // меняем это значение
      chr = (wchar_t)j; // узнаем, какой это символ получился
      stmp += chr; // stmp = stmp+chr;
    }
  }
  list->Add(stmp); // добавляем
  list->SaveToFile("Input.txt");
  delete list;
  list = NULL;
}

j = j-1;