работа с MEMO

[Dimarik]

Добрый вечер! разбирал программу, есть 2 однотипных вопроса. как сделать так, чотбы появились функции: void __fastcall TForm1::FormActivate(TObject *Sender) и void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)

---------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}

// Событие Activate происходит сразу после того,
// как окно появится на экране
void __fastcall TForm1::FormActivate(TObject *Sender)
{
  // загрузить в компонент Memo1 текст из файла
  try
  {
	  Memo1->Lines->LoadFromFile("kurs.txt");
  } catch (EFOpenError &e) {
	  ShowMessage(e.Message);
  }
}

// Щелчок на кнопке Закрыть (в заголовке окна) - НЕ ПОЛУЧИЛОСЬ. ФОРМА ПРОСТО ЗАКРЫЛАСЬ
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
  // Если присвоить значение false переменной CanClose,
  // то окно не будет закрыто. По умолчанию значение
  // CanClose равно true.

  int r; // идентификатор кнопки, нажатой
		 // пользователем, в окне сообщения

  if (Memo1->Modified)
  {
	 // содержимое поля редактирования изменено
	 r = MessageDlg("Сохранить изменения?", mtWarning,
					TMsgDlgButtons() << mbYes << mbNo << mbCancel,0);

	 switch ( r )
	 {
	   case mrYes:  // записать текст в файл
					Memo1->Lines->SaveToFile("kurs.txt");
					break;
	   case mrCancel: // продолжить работу с программой
				 CanClose = false;
	 }
  }

}

[psycho-coder]

1. Выделить форму
2. Перейти на вкладку Events в Object Inspector (Это такая штука слева, где можно менять свойства)
3. Два раза кликнуть по пункту OnCloseQuery и OnActivate

ЗЫ. только при чем тут Memo?

[Dimarik]

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate (TObject *Sender)//как это получилось?
//я это вводил вручную
{
        try
        {
        Memo1->Lines->LoadFromFile("kurs.txt");
        }
        catch(EFOpenError &e)
        {
        ShowMessage(e.Message);
        }
}

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{            CanClose=false;

  // Если присвоить значение false переменной CanClose,
  // то окно не будет закрыто. По умолчанию значение
  // CanClose равно true.

  int r; // идентификатор кнопки, нажатой
		 // пользователем, в окне сообщения

  if (Memo1->Modified)
  {
	 // содержимое поля редактирования изменено
	 r = MessageDlg("Сохранить изменения?", mtWarning,
					TMsgDlgButtons() << mbYes << mbNo << mbCancel,0);

	 switch ( r )
	 {
	   case mrYes:  // записать текст в файл
					Memo1->Lines->SaveToFile("kurs.txt");
					break;
	   case mrCancel: // продолжить работу с программой
				 CanClose = false;
	 }
  }

}

выдало ошибку
[Linker Error] Unresolved external 'TForm1::' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\C+ + BUILDER\САМОУЧИТЕЛЬ\MEMO (СТР.95)\MEMO.OBJ

[psycho-coder]

Даже не знаю что сказать.
В аттаче пример (я его слегка дополнил. Вы легко найдете разницу).
Внимательно его изучите

[Dimarik]

В поле МЕМО данные представляются в виде массива строк. Но при работе с этим полем в виду специфичности создания программы мне необходимо получить доступ к каждому символу. Мне надо перегнать в массив символов? или как? Как мне получить доступ к каждому символу?

[psycho-coder]

Memo1->Text[1];

первый элемент будет 1.
Например в Memo есть текст "hello world".
то

Memo1->Text[1];

вернет букву "h".

[Dimarik]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int n;
        n=(Memo1->Text.Length());
        Memo2->Text=n;
        Memo2->Text=Memo1->Text;
        int i=n;
        AnsiString a,b;
        b=a;
        a[i-1]=a[i];//Когда использую в квадратных скобках переменную, возникает ошибка при выполнении
        a=Memo1->Text;
}

почему возникает ошибка при выполнении при переменной? а при числе этого нет?
мне необходимо использовать именно переменную
как избежать ошибки? использовать динамическое выделение памяти?

[psycho-coder]

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

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int n;
n=(Memo1->Text.Length());
Memo2->Text=n;
Memo2->Text=Memo1->Text;
int i=n;
AnsiString a,b;
b=a;
a[i-1]=a[i];//Когда использую в квадратных скобках переменную, возникает ошибка при выполнении
a=Memo1->Text;



}
почему возникает ошибка при выполнении при переменной? а при числе этого нет?
мне необходимо использовать именно переменную
как избежать ошибки? использовать динамическое выделение памяти?

Еще бы она не возникала.
Вы в "пустоту" кладете "пустоту"

        AnsiString a,b;
        b=a;

А т.к. переменные не инициализированы, то и индексов нет, поэтому при обращении ошибка

 int n;
        n=(Memo1->Text.Length());
//        Memo2->Text=n; /* Это лишнее */
        Memo2->Text=Memo1->Text;
//        int i=n; /* Это тоже */
        AnsiString a,b;
//        b=a; /* что тут вы хотите сделать? */
        a=Memo1->Text;
        a[n-1]=a[n]; /* Зачем это? */

Лучше напишите свою задачу, что Вы хотите сделать, что бы знать в куда Вас направить.

[Dimarik]

поменять местами символы я хочу.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int n;
        n=(Memo1->Text.Length());
        int i=n;
        char* a=(Memo1->Text).c_str();//êîïèðóåì äàííûå
        char* b=a;//êîïèðóåì äàííûå

                a[i]=a[i-1];

        Memo2->Text=a[i-1];

}

так работает, нопочему-то у char* i-ый символ другой, чем у AnsiString

подскажи, пожалуйста, почему iй символ у char* это (i+1)-ый символ у AnsiString. Это потому что у char* в конце ввода добавляется '\0', а у ансистринга его нет??
и как написать то, что я хочу, чтобы менялись символы местами без использования указателей. через ансистринг?

[lennon]

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

так работает, нопочему-то у char* i-ый символ другой, чем у AnsiString

потому что счет начингаеться с нуля, в классе AnsiString начинаеться с 1, незнаю почему в биледере хотели отличиться... кхм

int n;
n=(Memo1->Text.Length());
Memo2->Text=n;
Memo2->Text=Memo1->Text;
int i=n;
AnsiString a,b; //Классы объявлены но не инициализированы в памяти
b=a;
a[i-1]=a[i]; //Поэтому здесь ошибка, ведь данного элемента в памяти не существует
a=Memo1->Text;