Как Edit соединить с Мемо

[masluk]

Вот само задание: Создать на экране форму, поместить на неё компоненты Мемо и Edit. С помощью диалоговых компонентов загрузить из текстового файла текст в Memo, установить его шрифт и цвет. Удалить из него (автоматически, по нажатию на кнопку) все строки, начинающиеся буквой, введённой в Edit. Сохранить получившийся текст в новый файл.

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

#include <vcl.h>
#pragma hdrstop

#include "var7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
OpenDialog1->Filter="Текстовые файлы (*.txt)|*.txt|Все файлы (*.*)|*.*";   //Задаём фмльтр для ращирений файлов, показываемых в диалоговых окнах
SaveDialog1->Filter="Текстовые файлы (*.txt)|*.txt|Все файлы (*.*)|*.*";   //
SaveDialog1->DefaultExt="txt";
Memo1->Lines->Clear();
Memo1->Font->Size=12;
Memo1->Font->Color=clBlue;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
char i1, i2;

i1=OpenDialog1->Execute();  //Открываем диалоговое окно чтения файла
i2=FileExists(OpenDialog1->FileName); //  Если файл существует

if (i1 && i2)
        {
         Memo1->Lines->LoadFromFile(OpenDialog1->FileName);  //Загружаем из него текст
         };
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 char i1;
i1=SaveDialog1->Execute();   //Открываем диалоговое окно записи в файл
        if (i1)
        {
        Memo1->Lines->SaveToFile(SaveDialog1->FileName);  //Записываем текст в файл
        };
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
 char i1;
i1=FontDialog1->Execute();  //Изменяем шрифт и цвет текста
  if (i1)   {
  Memo1->Font=FontDialog1->Font;
  };
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
int i;


         for(i=0;i<Memo1->Lines->Count;i++)    //Перебираем все строки редактора
         {
                if (Memo1->Lines->Strings[i]!="")
                {
                  if (Memo1->Lines->Strings[i][1]=Edit1->Text) //Если первая буква в строке равна букве, введенной в Edit
                  {
                   Memo1->Lines->Delete(i);         //  удаляем строку
                   i--;
                  };
                };
          };

}

Не знаю как сделать, чтобы вводили букву в Edit1, нажимали кнопку и в Memo удалялись строки, которые начинаются с этой буквы. Всё остальное работает.




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

вижу только два явный косяка:
1) нужно цикл делать от конца мемо к началу (или не пользоваться циклом for )!
2) сравнение в C записывают ДВОЙНЫМ знаком равенства!

примерно так:

for(i=i<Memo1->Lines->Count-1;0;i--)    //Перебираем все строки редактора
         {
                if (Memo1->Lines->Strings[i]!="")
                {
                  if (Memo1->Lines->Strings[i][1]==Edit1->Text[1]) //Если первая буква в строке равна букве, введенной в Edit
                  {
                   Memo1->Lines->Delete(i);         //  удаляем строку
                  };
                };
          };