35 lines
890 B
C++
35 lines
890 B
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "mchecksum.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma resource "*.dfm"
|
|
TForm3 *Form3;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TForm3::TForm3(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
void __fastcall TForm3::Edit1Change(TObject *Sender)
|
|
{
|
|
char *cadena;
|
|
cadena = Edit1->Text.c_str();
|
|
int CHK, i;
|
|
CHK = 0;
|
|
for ( i=0; cadena[i] != NULL; i++ )
|
|
{
|
|
CHK += cadena[i];
|
|
}
|
|
|
|
Edit2->Text = AnsiString( ( CHK - ( (CHK / 10000)*10000 ) ) );
|
|
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|