Переменные, Много...Много переменных Опции

[-Александр-]

Возможно ли сделать так, чтобы в TP7 не было ограничений по количеству переменных?

P.S.Написал программу по моделированию движения тел под действие гравитационных сил, а максимум тел которые могу рассматривать всего лишь 140, а очень хочеться больше.

[klem4]

у меня возникают проблемы при работе с файлами

Это какие например ? Ты бы поконкретней.

[-Александр-]

Это какие например ? Ты бы поконкретней.

Например в обычном TP7 вот эта простенькая программка работает спокойно, а вот во FreePascal'е пишит вот такую ошибку

RunTime error 2 at 0*0040105E
0*0040105E
0*004020F5

Сама программка

uses crt;
var a:longint;
begin
assign(input,'Y.txt');
reset(input);
readln(a);
writeln(a);
readkey;
end.

Что может быть не так7

[andriano]

Например в обычном TP7 вот эта простенькая программка работает спокойно, а вот во FreePascal'е пишит вот такую ошибку

Это неправильная программа. Она не должна работать. Если она работат в ТР, то это ошибка ТР и ничего больше.


Добавлено через 2 мин.

Все проблема решена.

Но появился новый вопрос. Возможно ли сделать так чтобы когда активируется графический режим и рисуется графика, а мне к примеру нужно чтобы я в это время нажал любую кнопку, то для этого должна быть активна(лежать поверх графического окна)консоль, что естественно портит весь вид, вопрос заключаеться в том как сделать так чтобы можно было нажимать клавиши а при этом консоли на экране не было?

Для обработки клавиатуры консоль не нужна.

[Александр-7300]

Это неправильная программа. Она не должна работать. Если она работат в ТР, то это ошибка ТР и ничего больше.
Добавлено через 2 мин.

Для обработки клавиатуры консоль не нужна.

Тогда почему я могу использовать клавиатуру только тогда когда на экране весит консоль Смотри принскрин

Сообщение отредактировано: Александр-7300 - 21.06.2008 10:22

[andriano]

Тогда почему я могу использовать клавиатуру только тогда когда на экране весит консоль Смотри принскрин

Потому, что твоя программа специально так написана.
Написана, вероятнее всего, не тобой, а автором тех модулей, что ты используешь для визуализации.

[Александр-7300]

Потому, что твоя программа специально так написана.
Написана, вероятнее всего, не тобой, а автором тех модулей, что ты используешь для визуализации.

Чего не знаешь, того не говори, если хочешь могу выложить исходники(если хочешь могу за комментировать каждую строчку!!!).

Как тогда сделать так что бы консоль во время работы не появлялась?

[andriano]

Как тогда сделать так что бы консоль во время работы не появлялась?

Не подключать лишних модулей (которые не знаешь, как работают).

Вот простенький пример.

uses  Crt, Dos, Graph;

var
  x,y : integer;
  c : char;
  InGraphicsMode : boolean; { Flags initialization of graphics mode }
  PathToDriver   : string;  { Stores the DOS path to *.BGI & *.CHR }
  GraphDriver : integer;  { The Graphics device driver }
  GraphMode   : integer;  { The Graphics mode value }
  ErrorCode   : integer;  { Reports any graphics errors }
begin
  DirectVideo := False;
  PathToDriver := '';
  GraphDriver := Detect;                { use autodetection }
  InitGraph(GraphDriver, GraphMode, PathToDriver);
  ErrorCode := GraphResult;             { preserve error return }
  x := 320;
  y := 240;
  repeat
    c := #0;
    setcolor(12);
    circle(x,y,30);
    if keypressed then
      c := readkey;
    delay(10);
    setcolor(0);
    circle(x,y,30);
    case c of
      #72 : if y > 35 then dec(y,5);
      #75 : if x > 35 then dec(x,5);
      #77 : if x < 605 then inc(x,5);
      #80 : if y < 445 then inc(y,5);
    end;
  until c = #27;
  while keypressed do readkey;
  CloseGraph;
end.

Сообщение отредактировано: andriano - 21.06.2008 19:37