сложить число из edit1+edit1, потом удалить последние 3 символа (Поиск ошибки)

[UKRtortik]

Нужно сложить число из edit1+edit1, потом удалить последние 3 символа зашифровать в md5 и сохранить в файл.

var
f:System.Text;
A,C:Integer;
x,b,z:string;
begin
A:=StrToInt(edit1.text);
C:=A+A;
z:=IntToStr(C);
showmessage (z);
b:=copy(z,1,length(z)-3);
x:=md5(b);
AssignFile(f,edit1.Text+'.txt');
Rewrite(f);
Write(f,x);
CloseFile(f);
end;

[STRELOK-2007]

Судя по скриншоту, выходит число больше чем 2147483647. Наверное это и причина. Ибо больше integer вместить не может.

Если надо 4 байтовое число - используй Cardinal или лучше NativeUINT. Если не важно количество байт - int64.

NativeUINT кстати автоматически при 64битной компиляции станет 8 байтным.

[UKRtortik]

А как тут отнять последние 3 символа от SerialNum

var
SerialNum:Dword;
begin
//Тут отнять
keys:=(IntToStr(SerialNum+SerialNum));

[denis76560]

А как тут отнять последние 3 символа от SerialNum

var
SerialNum:Dword;
begin
keys:=(IntToStr(SerialNum+SerialNum ));
keys:=copy(keys,0,length(keys)-3)

[UKRtortik]

мне сначало надо отнять от SerialNum 3 последних символа, а потом только сложить.

[BDA]

SerialNum:=SerialNum div 1000;
keys:=(IntToStr(SerialNum+SerialNum));