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

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

Вернуться   Форум программистов > C/C++ программирование > C/C++ Базы данных
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.11.2011, 23:57   #1
Stenly
 
Регистрация: 18.11.2010
Сообщений: 3
По умолчанию добавление информации в тестовый файл

Посмотрите, пожалуйста, правильно ли написана программа добавления информации в тестовый файл.


// добавление в тестовый файл данных
//конструктор формы

public:
Form1(void)
{
InitializeComponent();
button1->Enabled=false;


}

// нажатие клавиши в поле редактирования
private:System::Void textBox1_KeyPress(System::Object^
sender, System::Windows::Forms::KeyPressEve ntArgs^ e)

{
if ((e->KeyChar>='0')&& e->KeyChar<= '9'))
return;

if (e->KeyChar=='.')
e->KeyChar = ',';
if (e->KeyChar==',')
{
if ((textBox->Text->IndexOf(',')!=-1 ||
(textBox->Text->Lengtn==0
{e->Handled=true;
}
return;
}
if (Char::IsControl(e->KeyChar))
{
if (e->KeyChar==(char)Keys::Enter)
// установить курсор на кнопку ОК
button1->Focus();
return;
}
e->Handled=true;
}

//изменилось содержимое поля редактирование
private:System::Void button1_Click(System::Object^ sender, System::EventArgs^ e)

{
double data;
DateTime date;

date = dateTimePicker1->Value;
data=System::Convert::ToDouble(text Box1->Text);
//получить информацию о файле
System::IOFileInfo^ fi=
gcnew System::IO::FileInfo(
Application::StartupPath+"\\data.tx t");
//поток для записи
System::IO::StreamWriter^ sw;
if(fi->Exists)
sw=fi->AppendText();
else
sw=fi->CreateText();
//запись в файл
sw->WriteLine(date.ToShortDateString() );
sw->WriteLine(kurs.ToString("N"));
//закрыть поток
sw->Close();

button1->Enabled=false;
textBox1->Enabled=false;

}
private:System::Void
dateTimePicker1_ValueChanged(System ::Object^ sender, System::EventArgs^ e)

(
textBox1->Enabled=true;
textBox1->Clear();

textBox1->Focus();

)
Stenly вне форума Ответить с цитированием
Старый 24.11.2011, 00:06   #2
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,964
По умолчанию

Это что? Ребус "найдите ошибку". С какой радости кто-то будет разбираться в Вашем коде и тратить своё время, когда Вы даже не удосужились локализовать ошибку.
Шагом марш во-фриланс. Или подробнее, что не получается.
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder
Smitt&Wesson вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
тестовый файл thevisl Помощь студентам 2 30.06.2011 08:46
Тестовый файл с целыми числами Crabobass Помощь студентам 2 29.04.2011 09:57
Добавление в БД информации о песне nastya2612 БД в Delphi 1 28.02.2011 15:32
Тестовый файл. Найти сумму всех чисел, входящих в этот файл. (Паскаль) Homeros Помощь студентам 1 26.01.2011 14:05
ввод информации с клавиутуры в двумерный масив, запись информации с масива в файл x_omega_x Помощь студентам 1 29.12.2008 02:30