работа с MEMO

[Dimarik]

b=a;
n - число символов в а
пишу прогу по работе со строками. переменные a и b определены и объявлены ранее вот цикл по кодеровке

   for(i=2;i<=n;i=i+2)
        {
                a[i]=a[i]-b[i-1];
        };

и вот по декодеровке

for(i=2;i<n+1;i=i+2)
        {
                a[i]=a[i]+b[i-1];
        };

в чём собственно вопрос. когда нужно закодировать текстс маленьким числом сиволов, то всё работает отлично, а когда же число символов велико, то получается какая-то ерунда.

[profi]

Что это за алгоритм шифровки такой? В качестве простого примера шифровки текста приведу код, который будет, шифровать текст посимвольно с помощью логического оператора или "^". Писал на коленках, за ошибки извените .

[MaTBeu]

Dimarik, вы можете написать в чем заключается задача? Я не понимаю, кому нужен этот флуд, который вы раскатали на 3 страницы, обсуждая, как лучше писать for в котором один оператор: со скобками или без. И как лучше преобразовать из AnsiString в int.

Скажу вам так. Не парьте мозги себе. У класса AnsiString есть функция преобразования к строке типа char *.

char *str = new char[128];
strcpy(str, Edit1->Text.c_str());

и дальше работаете с char массивом.

ПыСы: а алгоритм шифрования - это уже совершенно другой вопрос. Так что конкретизируйте задачу, иначе ваша тема пойдет под замок.

[Dimarik]

зашифровать текст. вот задача. то что я написал - алгоритм шифрования, который я хочу реализовать. вот пишу:

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString a,b;
int n,i;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormActivate(TObject *Sender)
{
        Memo1->Text="";
        Memo2->Text="";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        a=Memo1->Text;
        n=(a.Length());
        i=n;
        b=a;

        //изменение символов при помощи суммирования некоторых из них
        for(i=2;i<=n;i=i+2)
        {
                a[i]=a[i]-b[i-1];
        };
        Memo2->Text=a;



}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        a=Memo1->Text;
        n=(a.Length());
        b=a;
        //изменение символов при помощи суммирования некоторых из них
        for(i=2;i<n+1;i=i+2)
        {
                a[i]=a[i]+b[i-1];
        };

        Memo2->Text=a;

}

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

profi, тут проблема со скачиванием того файла, который ты залил. залей, пожалуйста, на www.slil.ru