перевести с строкого типа в char

[Алиса Ростова]

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
AnsiString* strSplit(AnsiString buf, char delim, int &n)
{
n = 1;
for (int i = 1; i <= buf.Length(); i++)
if (buf[i] == delim) // считаем число символов delim
n++;
AnsiString* res = new AnsiString[n];

for (int j = 0; j < n; j++)
{
int p = buf.Pos(delim);

if (p == 0)
p = buf.Length()+1;

res[j] = buf.SubString(1,p - 1);
buf.Delete(1, p);
}
return res;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int num = 0;
int n;

if (RadioButton1->Checked)
{
AnsiString abc = "йцк";
AnsiString s = Memo1->Text;

AnsiString* str = strSplit(s, ' ', n); // получаем массив слов
for (int j = 0; j < n; j++)
for (int k = 1; k <= abc.Length(); k++)
if (str[j][1] == abc[k])
{
num++;
break;
}
delete [] str;
}
if (RadioButton2->Checked)
{
AnsiString abc = "нгш";
AnsiString s = Memo1->Text;

AnsiString* str = strSplit(s, ' ', n); // получаем массив слов
for (int j = 0; j < n; j++)
for (int k = 1; k <= abc.Length(); k++)
if (str[j][1] == abc[k])
{
num++;
break;
}
delete [] str;
}

ShowMessage("Найдено слов: " + IntToStr(num));
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
int num = 0;
int n;

AnsiString abc = "йцк";
AnsiString s = Memo1->Text;

AnsiString* str = strSplit(s, ' ', n); // получаем массив слов
for (int j = 0; j < n; j++)
for (int k = 1; k <= abc.Length(); k++)
if (str[j][1] == abc[k])
{
num++;
break;
}
delete [] str;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{

int num = 0;
int n;

AnsiString abc = "нгш";
AnsiString s = Memo1->Text;

AnsiString* str = strSplit(s, ' ', n); // получаем массив слов
for (int j = 0; j < n; j++)
for (int k = 1; k <= abc.Length(); k++)
if (str[j][1] == abc[k])
{
num++;
break;
}
delete [] str;
}

заранее спасибо))

[Smitt&Wesson]

Что перевести? Куда перевести? Зачем перевести?

char x;
AnsiString str;
x = str.c_str();

Так пойдёт?

[Алиса Ростова]

да, так...а можно точнее)))буду очень благодарна))

[Smitt&Wesson]

Сообщение от Алиса Ростова

да, так...а можно точнее)))буду очень благодарна))

Да куда уж точнее-то?
Алиса. Я конечно экстрасенс неплохой, но не до такой же степени. Если сформулировать не можете, чего хотите, дайте хотя-бы точный адрес где Вы находитесь. Я уж постараюсь прочитать Ваши мысли .

[Blade]

Сообщение от Smitt&Wesson

Что перевести? Куда перевести? Зачем перевести?

char x;
AnsiString str;
x = str.c_str();

Так пойдёт?

Не пойдет, так будет ошибка.