из AnsiString в char*

[Psayker]

помогите пожалуйста! В программе нужно распечатать столбцами слова из текста заканчивающиеся на согласную букву и на гласную букву.
вот что сделал я:

AnsiString str1, str2, str3;
 int i;
 str1 = Memo1->Lines->GetText();
 str1 = str1.LowerCase();
 str1 = str1 + " ";
 i = str1.Pos(" ");
 while (i!=0){
  str3 = str1.SubString(1,i-1);
  str1.Delete(1,i);
  if (str3[i-1]=='а'||str3[i-1]=='е'||str3[i-1]=='ё'||str3[i-1]=='и'||str3[i-1]=='о'||str3[i-1]=='у'||str3[i-1]=='э'||str3[i-1]=='ю'||str3[i-1]=='я') ListBox1->Items->Add(str3);
  else if (str3[i-1]=='б'||str3[i-1]=='в'||str3[i-1]=='г'||str3[i-1]=='д'||str3[i-1]=='ж'||str3[i-1]=='з'||str3[i-1]=='к'||str3[i-1]=='л'||str3[i-1]=='м'||str3[i-1]=='н'||str3[i-1]=='п'||str3[i-1]=='р'||str3[i-1]=='с'||str3[i-1]=='т'||str3[i-1]=='ф'||str3[i-1]=='х'||str3[i-1]=='ц'||str3[i-1]=='ч'||str3[i-1]=='ш'||str3[i-1]=='щ'||str3[i-1]=='ь')ListBox2->Items->Add(str3);
  else ;
  i = str1.Pos(" ");

как вот сделать не AnsiString'ом,а Char*?

[Smitt&Wesson]

Чем Вам AnsiString не нравится? Если делать с char, код вырастет раза в три.
Для неопределённых по размеру строк, придётся использовать динамические массивы, возиться с выделением память. В общем наживёте себе геморроя.
А, вот с оператором if, Вы перемудрили. Это делается так:

AnsiString litter = "аеёиоуэюя";
for(int j=1; j<litter.Length(); j++)
{
  if(str3[i-1]==litter[j]) 
  {
    ListBox1->Items->Add(str3);
    break;
  }
}

Но лучше организовать это дело в функцию:

AnsiString __fastcall TForm1::Word(const int index, const AnsiString str, const AnsiString litter)
{
  AnsiString st = str;
  for(int j=1; j<litter.Length(); j++) if(st[index]==litter[j]) return st;
  st = "";
  return st;
}

[Guy]

AnsiString str("XAM");
char* temp = str.c_str();

нет ?

[Smitt&Wesson]

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

AnsiString str("XAM");
char* temp = str.c_str();

нет ?

Оно самое, но сложности начнутся в циклах. И при выделении слов из предложения.

[Guy]

Прочитал не верно я...

А так это как я понял не реализуемо. Так как в типе "char" нету русских букв...