Надо сложить первый символ со вторым в edit

[CyberDemon324]

Задача такова - есть эдит(edit1), в который можно вписать 12 символов (цифр), мне необходимо что бы при сложении первого и второго значение = последнему. т.е. - 123456789103, как видим 1+2=3, если все ок выводим сообщение "Вася выдыхай, вася че ты ржешь ", ну это пример. Очень прошу о помощи...

[Arigato]

Edit1.Text[1] - 1-й символ
Edit1.Text[2] - 2-й символ
Edit1.Text[Length(Edit1.Text)] - последний символ
StrToInt - перевод из строки в число

[raxp]

мне необходимо что бы при сложении первого и второго значение = последнему. т.е. - 123456789103, как видим 1+2=3

- переформулируйте

[Serge_Bliznykov]

var s :String;
...
s := Edit1.Text;
if (StrtToInt(Copy(s,1,1))+StrToInt(Copy(s,2,1))) <> 
  StrToInt(Copy(s,Length(s),1)) then
Application.MessageBox('Вася выдыхай, вася че ты ржешь...', 'Ошибка', MB_ICONERROR or MB_OK);

p.s. сумма двух цифр вполне может быть двухзначным числом.
тогда нужно проверять последние две цифры
StrToInt(Copy(s,Length(s)-1,2))

[artemavd]

Сложить первый и второй символ в Edit-е можно так:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit2.Text:=IntToStr(StrToInt(Edit1.Text[1]) + StrToInt(Edit1.Text[2]));
end;

[CyberDemon324]

begin
if Edit1.text[1]+Edit1.text[2]=Edit1.text[length(edit1.Text)] then
begin
Button1.Enabled:=true;
end
else
begin
showmessage('Fuck you');
end;
end;

вот так может понятнее будет? но почему то вылетает ошибка что они не равны...

[Arigato]

CyberDemon324
А кто будет в число переводить? У вас не сложение а конкатенация строк.

[CyberDemon324]

А кто будет в число переводить? У вас не сложение а конкатенация строк.

как это сделать... прошу прощение за незнание... видимо это очень легко...

[Arigato]

Сообщение от CyberDemon324

как это сделать... прошу прощение за незнание... видимо это очень легко...

Я же уже написал: http://programmersforum.ru/showpost....04&postcount=2

[CyberDemon324]

if IntToStr(StrToInt(Edit1.Text[1]) + StrToInt(Edit1.Text[2]))=Edit1.Text[Length(Edit1.Text)

ругается:

']' expected but 'then' found