Тема AnsiString не раскрыта=)

[chipset]

Решил освоить формы..раньше юзал только смд! Ситуация такова, на форме расположенны пять элементов Edit1, Label1, Label2, Label3, Button1:
Edit1 //ввод слов
Label1 //вывод количества встречаемых букв
Label2 //вывод всей суммы букв
Label3 //частота букв
В Button1 лежит следующий код:

double search(char *str, double size, char ch){
for(int i=0;i<size;i++)
if(str[i] == ch) return i;
return -1;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
char alpha[] = "абвгджзийклмнопрстуфхцчшщъыьэюя";
double*counters = new double [strlen(alpha)];

for(int i=0;i<strlen(alpha);i++)
counters[i] = 0;

int i,k,pos,ch;
double sum;
float f;

AnsiString cha=ch;
cha= Edit1->Text;

pos = search(alpha,strlen(alpha),ch);
if(pos>=0) counters[pos]++;

for(i=0;i<strlen(alpha);i++){
Label1->Caption=String(alpha[i])+"="+ String(counters[i]);
}
for(k=0,sum=0;k<strlen(alpha);k++){
sum+=counters[k];
}
Label2->Caption=String (sum);
Label3->Caption="a="+String (counters[0]/sum)+"; б="+(counters[1]/sum);
}

встретил проблему с ансистрингом, тут и стала программа..
кто знает пути обхода ансистринга?..

ЗЫ: Билдер 6.0..

[chipset]

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

Очень смешно. То есть, всем нужно догадаться, что там за проблема и куда надо обходить ансистринг? Тогда ждите, может кто и угадает.

мне нужно чтоб мне обьяснили/закрепили на примере..возьмем самый елементарный пример..ввод в Edit1 и вывод вLabel1, букавок..

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i;
char *ch;
AnsiString cha;
cha.printf("%i", ch);
cha= Edit1->Text;

for(i=0;i<strlen(ch);i++){
Label1->Caption=cha[i];
}
delete (ch);
}

чего этот код не работает?..

[B_N]

А с чего он должен заработать? Я вообще не понимаю, чего Вы там сделать пытаетесь. Зачем писать в консоль в целом виде нечто, находящееся по неинициализированному указателю, пытаться взять длину какой-то несуществующей строки, каким-то образом освобождать память по указателю, который указывает в никуда... Что это, вообще?

[chipset]

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

А с чего он должен заработать? Я вообще не понимаю, чего Вы там сделать пытаетесь. Зачем писать в консоль в целом виде нечто, находящееся по неинициализированному указателю, пытаться взять длину какой-то несуществующей строки, каким-то образом освобождать память по указателю, который указывает в никуда... Что это, вообще?

мне подсказали..вот я исправил!..теперь точно разобрались!=)..

double search(char *str, double size, AnsiString ch){
for(int i=0;i<size;i++)
if(str[i] == ch) return i;
return -1;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString ch,alpha = "абвгджзийклмнопрстуфхцчшщъыьэюя";
 char * alpha2 = alpha.c_str();
double*counters = new double [alpha.Length()];

for(int i=0;i<alpha.Length();i++){
counters[i] = 0;  }

int i,k,pos;
double sum;
ch =Edit1->Text.c_str();
pos = search (alpha,alpha.Length(),ch);
if(pos>=0) counters[pos]++;

for(i=0;i<alpha.Length();i++){
Label1->Caption = Label1->Caption + AnsiString(alpha[i])+"="+ AnsiString(counters[i]);
 }
 }

пишет => 'Could not convert variant of type (String) into type (Double)'
ктознает?..