[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]

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

[angvelem]

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

[Electronic_Arts]

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

[Electronic_Arts]

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

Код:

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 файл даю до открытия

Код:

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

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

Код:

...
RvProject1.SetParam('valid', formatdatetime('dd/mm/yyyy', DateTimePicker1.Date));
...
RvProject1.SetParam('birth', formatdatetime('dd/mm/yyyy', DateTimePicker2.Date));
...

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

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