Игра в слова

[Peredoz]

День добрый. Уже весь мозг сломал, так толком ничего и не придумал. Пишу игру в слова, мне необходимо сравнить первую букву вводимого слова с последней предыдущего. Если на конце предыдущего твердый или мягкий знаки, или буква ы, то соответственно надо сравнивать с предпоследней буквой. Пишу в билдере, проверку по словарю и по уже введенным словам реализовал, а вот с этим запара дикая. У кого какие мысли?

[ILyaN]

Гуглил?
Искал что то подобное?

[Peredoz]

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

Гуглил?
Искал что то подобное?

Да конечно, нашел на делфи исходник, но тоже толком разобраться с ним не могу. Реализация функций иная совсем.

Спойлер про код:

if (boo == true) {
for (i=1; i <= Memo1->Lines->Count-1; i++) { //в memo лежит словарик, у меня ListBox
if (Edit1->Text == Memo1->Lines[i].Text) {
if (Pos(s[n],Edit1->Text) == 1) { //в Edit вводится слово
ListBox1->Items->Add(Edit1->Text); //в ListBox слова добавляются
Memo1->Lines->Delete(i);
s = Edit1->Text;
if (s.Pos('ъ') == s.Length() ||
s.Pos('ь') == s.Length() ||
s.Pos('ы') == s.Length()) {
s.Delete(s.Length(),1);
Button2->Enabled = false;
Button6->Enabled = true;
}}}}}

В таком виде тоже не работает

[Forbrak]

Приведи пример "не работы". Т.е. какие исходные данные и какой результат. Предложение поставить все условия в отдельные скобочки. (Т.е. (s.Pos('ъ') == s.Length())||(s.Pos('ь') == s.Length()).... )

[ILyaN]

Не работа ля в билдере, не понимаю даже малость, но я бы как то внес четность букв, задать неразрешимость букв, и ввести действие -1.
Как то так

[Peredoz]

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

Приведи пример "не работы". Т.е. какие исходные данные и какой результат. Предложение поставить все условия в отдельные скобочки. (Т.е. (s.Pos('ъ') == s.Length())||(s.Pos('ь') == s.Length()).... )

Не помогает такой танец. Не при нажатии на кнопку ничего не происходит. Точнее, он чего-то там думает, но не добавляет слово. Ошибок никаких нет, ни во время компиляции, ни во время работы

Спойлер про Полный мой код:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i,l,n;
n = s.Length();
for (i=1; i <= Vocabulary->Items->Count-1; i++) {
if (Word->Text == Vocabulary->Items->Strings[i]) {
if (Pos(s[n],Word->Text) == 1) {
WordBox->Items->Add(Word->Text);
Vocabulary->Items->Delete(i);
s = Word->Text;
if (s.Pos('ъ') == s.Length() ||
s.Pos('ь') == s.Length() ||
s.Pos('ы') == s.Length()) {
s.Delete(s.Length(),1);
}
}
}
}
}

вот такой у меня код