Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.12.2010, 20:23   #1
Лия92
 
Регистрация: 01.12.2010
Сообщений: 4
Восклицание Не работают вместе..

Я пишу програмку - игрушку "Виселица". Из файла открываю словарик и рандомно выбираю одно из слов, которое будет в игре. По идее, при нажатии Новая игра, программа должна открывать словарь, находить слово, записывать его в Edit и StringGrid. Если разделить его на 2 части, то работает нормально, то есть если запись в StringGrid приписать отдельной кнопкe. А если их в одно действие делать, то не хочет. В чем может быть проблема??
Вот код:

void __fastcall TForm1::N4Click(TObject *Sender)
{
FILE *fp;
char S[1000];
AnsiString x;
int a;
randomize();
if((fp=fopen("Словарь.txt","r"))==N ULL)
{ ShowMessage("He могу открыть файл");
return;
}
for(;
{
fgets(S, 1000, fp);
if (feof(fp)) return;

Memo2->Lines->Add(S);
a=random(37);
x=Memo2->Lines->Strings[a];
Edit2->Text=x; }

fclose(fp);
}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int w=Edit2->Text.Length();
StringGrid1->ColCount = w-1;

StringGrid2->ColCount = w-1;
StringGrid2->Width = 22.6*(w-1);
for (int i=0;i<w;i++)
StringGrid1->Cells[i][0]=(Edit2->Text)[i+1];
}
Лия92 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Загрузить библиотеку вместе сразу вместе с программой Anekdot Общие вопросы Delphi 4 26.01.2010 23:14
Год вместе... NITRO2025 Свободное общение 14 23.01.2010 15:24
Завершение приложения, вместе с ОС John_chek Общие вопросы Delphi 5 08.06.2007 16:00