[mego4el]

Разобрался!

Еще вопрос

Бралось из исходников на C#, и тут какое-то значение маски:

this.StartConf.Mask = "&&&&&&&&&&+2*0-&&&&&&&&&&";
Для последующего
this.StartConf.Text = "//////////3///////";

Как это преобразовать на C++? Подскажите пожалуйста :wacko

И еще один:

Сейчас программа запускается, но выдает ошибку Violation при нажатии кнопки расчета.
Сделал преобразование из string в UnicodeString, но не пойму что же ему не нравится =\



В коде вот что:

Unit1.h

Код:

class TuringMachine
{
	short state; // состояние q
	char * tape; // = new char[512] длина ленты
	int pointer; // головка, или указатель позиции на ленте

	public:
	TuringMachine(string _configuration)
	{
		tape = new char[512]; // выделяем память, задаем начальную конфигурацию
		pointer = 250; //256
		for (short i = 0; i < _configuration.length(); i++)
		{
			// собираем начальную конфигурацию(опускаем пробелы)
			if (_configuration[i] != 32)
			{
				tape[pointer++] = _configuration[i];
			}
		}
		// переводим обратно в нач состояние, после сборки
		pointer = 250;
		//tb = new RichTextBox(); -- Memo2
	}

	void WriteLog()
	{
		//string str = new string('_',2);
		string str(2,'_');
		for (int i = 220; i < 330; i++)
			if (tape[i] != '\0')
			{
				if (i == pointer)
					str += (char)94; // записываем ^
				str += tape[i];
			}
		str += "__\n";
		// tb.Text += str;
		//AnsiString anstr = str.c_str();

		UnicodeString unstr = str.c_str();
		Memo2->Lines->Add(unstr);
	}
//...
//...

Unit1.cpp

Код:

TForm1 *Form1;
TMemo *Memo1;
TMemo *Memo2;
using namespace std;
TuringMachine machine("//////////3///////"); //startconf
////////////+2*3-///////
//this.StartConf.Mask = "&&&&&&&&&&+2*0-&&&&&&&&&&";

// ---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
	Memo1->Lines->Clear();
	Memo1->Lines->Add("1..9 : десятичные цифры");
	Memo1->Lines->Add("/ : унарная цифра");
	Memo1->Lines->Add("+ : сложение");
	Memo1->Lines->Add("^ : местонахождение головки");
	Memo1->Lines->Add("* : умножение");
	Memo1->Lines->Add("- : урезанная разница");
	Memo2->Text="";
}
// ---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	machine.DecimalToUnary();
	machine.UnaryToDecimal();
	//richTextBox1.Text = machine.tb.Text;
	//Memo2->Text = machine.Read();
}