CPP_Builder/CAP
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

first commit (2002-04-24)

Browse Source
This commit is contained in:
José David Guillén
2021-09-01 18:53:06 +02:00
commit 4d943d773d
252 changed files with 17433 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
checksum_gen/mchecksum.cpp Normal file
View File

@ -0,0 +1,34 @@
//---------------------------------------------------------------------------
#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 ) ) );
}
//---------------------------------------------------------------------------