|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.12.2010, 20:23 | #1 |
Регистрация: 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]; } |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Загрузить библиотеку вместе сразу вместе с программой | Anekdot | Общие вопросы Delphi | 4 | 26.01.2010 23:14 |
Год вместе... | NITRO2025 | Свободное общение | 14 | 23.01.2010 15:24 |
Завершение приложения, вместе с ОС | John_chek | Общие вопросы Delphi | 5 | 08.06.2007 16:00 |