Что нужно знать (сделать), что бы прога запускалась в Виндос 7 и Виста

[marina15056]

В родной ХР всё работает нормально, но вот на ноутбук установила Виндос 7 (специально, что бы проверить прогу), и программа не видит текстовых файлов. Какие еще сюрпризы предвидятся? Насколько велика разница, и сколько придется переделать, что бы прога могла работать, и в ХР, и Висте, и 7. И где можно почитать статьи на эту тему?

Просто, может быть, я смогу свою прогу продать другой школе, но тогда всё должно работать.

[ex.cluz]

На чем программа написана? Мы ж не телепаты.

[marina15056]

Сообщение от ex.cluz

На чем программа написана? Мы ж не телепаты.

На Делфи 7.
Сорри

[ex.cluz]

Может, на Delphi 2010 перекомпиллировать, если есть возможность?

программа не видит текстовых файлов

А вот с таким поведением не сталкивался. А каким образом она их "видеть" должна?

[artemavd]

Я пишу прогу сейчас на Delphi 7 Enterprise в Windows 7 Расширенной. Сегодня проверил ее на Windows XP - работает и там и там.

[marina15056]

Сообщение от ex.cluz

Может, на Delphi 2010 перекомпиллировать, если есть возможность?

Если найду где скачать, то попробую, если это залог отсутствия проблем.

Сообщение от ex.cluz

А вот с таким поведением не сталкивался. А каким образом она их "видеть" должна?

В ХР в Едит вводишь номер урока, нажимаешь кнопочку и всё нормально

procedure TForm1.ButtonJinRuClick(Sender: TObject);
var i,j:integer;
begin
if EditMima1.Text = EditMima2.Text then
  if fileExists(EditKeHao.Text) then
    begin
    uuu:= EditKeHao.Text;
    AssignFile(urok, uuu);
    Reset(urok);
    while not Eof(urok) do
      begin
      inc(kolvoSlov);

      setlength(Word_,kolvoSlov,2);
      ReadLn(urok, text);

      Word_[kolvoSlov-1,0]:=Trim(copy(text,1, ansipos('|',text)-1));
      Word_[kolvoSlov-1,1]:=Trim(copy(text, ansipos('|',text)+1, maxint));
      end;
    CloseFile(urok);


    j:=0;
    setlength(RodVib_,RV,2);
    for i:= NachRV to (NachRV+RV)-1 do
      begin
      RodVib_[j,0]:=Word_[i,0];
      RodVib_[j,1]:=Word_[i,1];
      inc(j);
      end;

    EditMima1.Text:='';
    EditMima2.Text:='';
    PanelHuangying.Hide;
    PanelKaoDanCi.Show;
    mima:=EditMima1.Text;
    KaiShi:= Now;
    KaoZiHao:=0;
    LabelKDC_KaoHZ.Caption:=RodVib_[KaoZiHao,1];
    EditKDC_KaoYU.SetFocus;
    LabelKDC_1.Caption:=EditKeHao.Text;
    case TrackBarSuDu.Position of
    1: TimerKaoDanCi.Interval:=30000;
    2: TimerKaoDanCi.Interval:=5000;
    end
    end
  else
    begin
    showmessage('Нет такого урока');
    EditKeHao.SetFocus;
    end
else
  begin
  showmessage('код неверен');
  EditMima1.Text:='';
  EditMima2.Text:='';
  EditMima1.SetFocus;
  end
end;

а на 7 выдает сообщение Нет такого урока

[ex.cluz]

Писал прогу на 2007 под вистой, потом доделывал под вин7, глюков никаких. Под ХР полезли глюки работы с памятью. Оказалось, что пути к файлам, которые лежали в одной папке с программой и использовались ей, нельзя записывать в "коротком" виде. Только полные пути.
Больше ничего такого не было. У вас, видимо, таже проблема.

[marina15056]

Сообщение от ex.cluz

Писал прогу на 2007 под вистой, потом доделывал под вин7, глюков никаких. Под ХР полезли глюки работы с памятью. Оказалось, что пути к файлам, которые лежали в одной папке с программой и использовались ей, нельзя записывать в "коротком" виде. Только полные пути.
Больше ничего такого не было.

Точно, путь короткий. Может из-за этого? Сейчас попробую с длинным.

[ex.cluz]

Делать так:

ExtractFilePath(Application.ExeName)+[имя открываемого файла]

[marina15056]

Сообщение от ex.cluz

Делать так:

ExtractFilePath(Application.ExeName)+[имя открываемого файла]

Спасибо. Я думала, что проблем будет намного больше, что-то типа написания сайта для разных браузеров. Но если проблем быть не должно, значит их не будет.

А пока проверить не могу, почему-то 7 не разрешает даже открыть прогу, хотя вчера она открылась и только застряла с выбором урока. Я в шоке