[Electronic_Arts]

Не могу понять почему программа ругается когда его запускаешь в Windows7?? - параллельно в WindowsXP та же программа работает без проблем...в чем дело?

Код:

var
str: string;
begin
str:=IdEncoderMIME1.Encode(edit2.text+formatdatetime('yyyy', DateTimePicker2.Date)+'ENDOFLINE');
Delete(Str, Pos('==',Str), Length(Str)); //проблема в этой строке
...
...
RvProject1.SetParam('code', str);
RvProject1.Execute;
RvProject1.Close;
end;

[M.A.D.M.A.N.]

Каким образом ругается?
Наверное из-а юникода.

[Electronic_Arts]

При запуске выдает ошибку


но если убрать строку

Код:

Delete(Str, Pos('==',Str), Length(Str));

то рубит без проблем

[angvelem]

Согласен с M.A.D.M.A.N, похоже на проблему Юникода.

[Electronic_Arts]

На юникод не похож - потому что компилирую ничего не меняя работает - потом еще раз тоже самое компилирую а уже на Win7 не запускается
так выходит что проблема не в функции удаления а в чем то другом

[Electronic_Arts]

А вообще что вы имеете виду когда говорите что проблема в Юникоде - конкретно можно?