Работа С Символьной Информацией

  • Автор темы Guest
  • Дата начала
G

Guest

#1
Доброго времени суток) Я полгода назад перешла с С++ на VBA и сейчас не могу решить простейшую задачку(( : "Заданы 2 строки символов. Определить самое длинное слово и что это за слово" Текст надо написать на С++. Заранее спасибо))

Вот то, что я сделала. Помогите исправить ошибку)) :

void __fastcall TForm1::Button1Click(TObject *Sender)
{AnsiString str1, str2, str3, str4;
int i, n, j, m;
str1=Edit1->Text;
str2=Edit2->Text;
n=0;
m=0;
i=str1.Pos(" ");
while (i!=0)
{str3=str1.SubString(1,i-1);
n=str3.Length();}
if(str3.Length() > n)
n=str3.Length();
j=str2.Pos(" ");
while (j!=0)
{str4=str2.SubString(1,j-1);
m=str4.Length();}
if(str4.Length() > m)
m=str4.Length();
if (n>m)
Label1->Caption=str3+" "+"n="+IntToStr(n);
if (n<m)
Label1->Caption=str4+" "+"m="+IntToStr(m);
else
Label1->Caption="равные";