VPF::Цикл в Edit из txt-файла - Форум программистов

stat007

Дата 25.3.2010, 11:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 521
Регистрация: 9.10.2008

Репутация: нет
Всего: -4

Привет всем!
Возник такой вопрос, надеюсь на Вашу помощь!

На форме есть Edit1, Edit2, Label1 и Кнопка. Так же в папке с программой создано 2 текстовых файла, в которых хранятся построчно текст.
Например: в file1.txt написано следующее:

Цитата

я
ты
он
она

И в файле file2.txt написано следующее:

Цитата

I
you
hi
she

Нужно, что бы при каждом нажатии на кнопку, в Edit1 поочерёдно выводились слова из файла file1.txt, после чего вводится перевод этого слова в Edit2, который сравнивается со слова из файла file2.txt, и после чего в Label1 выводится слово "правильно", (если введённое слово в Edit2 совпало со словом в file2.txt) и если не совпало, то выводится слово "не правильно".

vikaz

Дата 25.3.2010, 11:54 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12

Что-то типо этого!

Код


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

#include <vcl.h>
#pragma hdrstop

#include "Main_Unit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int count;
TStringList *List_Original;
TStringList *List_Translation;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 count = 0;
 List_Original = new TStringList ();
 List_Translation = new TStringList ();
 List_Original->LoadFromFile("Original.txt");
 List_Translation->LoadFromFile("Translation.txt");
 if (List_Original->Count != List_Translation->Count)
 {
  MessageBox(0, "У файлов разное количество элементов!!!!", "Ошибка", MB_ICONSTOP|MB_OK);
  return;
 }
 Edit1->Text = List_Original->Strings[count];

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 if (List_Translation->Strings[count] != Edit2->Text)
 {
  Label1->Caption = "Не верно!!!";
  return;
 }
 else Label1->Caption = "ВЕРНО!!!";

 if (count <= List_Original->Count)
 {
  count ++;
  Edit1->Text = List_Original->Strings[count];
 }

}
//---------------------------------------------------------------------------

--------------------

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/

Domain

Дата 25.3.2010, 12:17 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 170
Регистрация: 11.3.2010

Репутация: нет
Всего: нет

ну вроде неплохая мысля

stat007

Дата 25.3.2010, 12:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 521
Регистрация: 9.10.2008

Репутация: нет
Всего: -4

vikaz, Отлично, спс огромное, но есть маленький нюансик. После того как слова заканчиваются в файле Translation.txt вылетает ошибка!
Как сделать так, что бы при последним нажатием на кнопку Button2 она становилась:

Код


 Button2->Active=false;

Где эту строку прописать??

Данкинг

Дата 25.3.2010, 12:41 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

"он" по-английски не "hi", а "he". smile

--------------------

There's nothing left but silent epitaphs.

stat007

Дата 25.3.2010, 12:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 521
Регистрация: 9.10.2008

Репутация: нет
Всего: -4

Данкинг, ага, точно)), но суть не в этом... smile

vikaz

Дата 25.3.2010, 13:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12

Код


void __fastcall TForm1::Button2Click(TObject *Sender)
{
 if (List_Translation->Strings[count] != Edit2->Text)
 {
  Label1->Caption = "Не верно!!!";
  return;
 }
 else Label1->Caption = "ВЕРНО!!!";

 if (count < List_Original->Count-1)
 {
  count ++;
  Edit1->Text = List_Original->Strings[count];
 }
  else Button2->Enabled = false;

}

--------------------

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/

stat007

Дата 25.3.2010, 13:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 521
Регистрация: 9.10.2008

Репутация: нет
Всего: -4

vikaz, Всё-равно выдаёт ту же ошибку..

Присоединённый файл ( Кол-во скачиваний: 10 )

________.JPG 237,72 Kb

vikaz

Дата 25.3.2010, 14:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12

Цитата(stat007 @ 25.3.2010, 15:45

)

vikaz, Всё-равно выдаёт ту же ошибку.. smile

Конечно, нужно быть внимательнее! smile

Код


...
if (count < List_Original->Count-1)
...

Когда Вам скидывают всю функцию, значит в ней были сделаны изменения! smile

Это сообщение отредактировал(а) vikaz - 25.3.2010, 14:05

--------------------

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/

stat007

Дата 25.3.2010, 23:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 521
Регистрация: 9.10.2008

Репутация: нет
Всего: -4

Блин точно, немного не внимателен.... спасибо за помощь!!! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »