[Electronic_Arts]

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

Код:

1 2 3 4 5 6 7 8 9 10 11

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]

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


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

Код:

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

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

[angvelem]

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

[Electronic_Arts]

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

[Electronic_Arts]

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

[angvelem]

В количестве символов на букву.

[Electronic_Arts]

в таком случае программа должна ругаться всегда - а тут ругается не всегда - просто берешь компилируешь - работает - потом для прикола еще раз тоже самое компилирую - уже не работает..

[Electronic_Arts]

Ребята полностью проверил и нашел в чем проблема - вот в этой части программы

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

RvProject1.Open; RvProject1.SelectReport('Report1', false); RvProject1.SetParam('Name', edit1.Text); RvProject1.SetParam('Number', edit2.Text); RvProject1.SetParam('Fei', edit3.Text); RvProject1.SetParam('issuing', edit4.Text); RvProject1.SetParam('original', edit5.Text); RvProject1.SetParam('ueln', edit6.Text); RvProject1.SetParam('micro', edit7.Text); RvProject1.SetParam('valid', formatdatetime('dd/mm/yyyy', DateTimePicker1.Date)); RvProject1.SetParam('adres1', edit8.Text); RvProject1.SetParam('adres2', edit9.Text); RvProject1.SetParam('serial', edit10.Text); RvProject1.SetParam('date', datetostr(now)); RvProject1.SetParam('birth', formatdatetime('dd/mm/yyyy', DateTimePicker2.Date)); RvProject1.SetParam('country', Combobox1.Text); RvProject1.SetParam('sex', edit12.Text); RvProject1.SetParam('color', edit13.Text); RvProject1.SetParam('studbook', edit14.Text); RvProject1.SetParam('breed', edit15.Text); RvProject1.SetParam('sir', edit16.Text); RvProject1.SetParam('da', edit17.Text); RvProject1.SetParam('so', edit18.Text); RvProject1.SetParam('cod', str); RvProject1.Execute; RvProject1.Close;

Вот что не так не пойму...

[GriLab]

Ошибка в этом коде? RvProject1 не битая ссылка в памяти?

[Electronic_Arts]

Как проверить что она битая или нет вить на WinXP же все работает а ссылку - на .sav файл даю до открытия

Код:

1 2 3

Path:=ExtractFileDir(Application.ExeName); RvProject1.ProjectFile:=path+'\Print.rav'; RvProject1.Open;

Но убей себя на Win7 выдает одну и туже ошибку - проверил и на рабочем компе и на ноуте даже на виртуальной машине VMware

[Electronic_Arts]

Ребята помогите решить проблему...может Rave Report старый иза этого ?? стоит версия 7.06BE 2008 года..

[Electronic_Arts]

Проблема была в самом Rave report - видать версия была старой...
установил Embarcadero RAD Studio XE и новый Rave report 9.0BE и проблема решилась...

[icWasya]

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

Ребята полностью проверил и нашел в чем проблема - вот в этой части программы

Код:

Вот что не так не пойму...

Скорее всего в formatdatetime.
Символ / в формате заменяется на указанный в региональных установках.
Скорее всего надо так
formatdatetime('dd''/''mm''/''yyyy', DateTime...