функция hor

[fize]

Нет, не хватает составного оператора.

да что за оператор?

[Arigato]

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

да что за оператор?

begin...end

[fize]

procedure checksum(strInp : string; var rE, rO : byte);
var i, i1 : integer;
begin
rE := 0;
rO := 0;
i1 := length(strInp);
For i:=0 to i1 do
if i mod 2 = 1 then
rE := rE XOR ord(strInp[i]);
begin
rO := rO XOR ord(strInp[i])
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
strInp:string;
begin
strInp := '1E0010230034000801';
checksum(strInp,rE,rO );
Label1.Caption:=IntToStr(rE);
Label2.Caption:=IntToStr(rO);
end;

и все равно неверно работает

[Arigato]

А если подумать, где нужен begin и end?

[fize]

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

А если подумать, где нужен begin и end?

ну подскажите я уже повсякому перепробовал

[Arigato]

Вы не методом тыка пробуйте, а попытайтесь разобраться самостоятельно.

[fize]

procedure checksum(strInp : string; var rE, rO : byte);
var i, i1 : integer;
begin
rE := 0;
rO := 0;
i1 := length(strInp);
For i:=0 to i1 do
if i mod 2 = 1 then
begin
rE := rE XOR ord(strInp[i]);

rO := rO XOR ord(strInp[i])
end;
end;

вот так надо но все равно не верно работает

[Arigato]

Символы в строке нумеруются с единицы.

[fize]

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

Символы в строке нумеруются с единицы.

пробовал ставить единицу но это не помогает

[Arigato]

Приведите, что у Вас в конечном итоге получилось.