Изучаю Паскаль. Присоединяйтесь.

[Toth]

У меня тоже . PR_CONNECT_RESET_ERROR

[Аурипигмент]

Вообще, лучше для доступа использовать яндекс диск, нежели не понятные ресурсы.
А вот, как здесь на форуме обмениваться листингами программ? Если вставлять в код, то потом прога не хочет работать, с расширением .pas форум не проглотит, остаётся зиповать и вкладывать архив, но запарно паковать-распаковывать.
Надо ещё проверить: если переименовать .pas в .txt, то слетит ли форматирование.

[Toth]

А вот, как здесь на форуме обмениваться листингами программ? 
.. если переименовать .pas в .txt, то слетит ли форматирование.

Какое форматирование ? В смысле - красивые отступы ?
Ничего не полетит.
Можно просто копировать все , вставить в Блокнот, сохранить как txt файл. Его и выложить. Если большой код.
А если мелочь в десяток строк, то в посте [коде] .. [/коде]. Правда , иногда после копирования из поста пробелы неправильные, как я писал уже.

[Guy Fawkes II]

OK, ссылка на Яндекс-Диск:

https://disk.yandex.ru/d/WTr-OETe7H9rig

[Toth]

OK, ссылка на Яндекс-Диск

Вот, спасибо. Будем осваивать.
Только один баг - вы не подумали о том, что могут быть разные настройки ОС (язык и региональные параметры ), в частности десятичный разделитель . То есть 3,14 или 3.14. У меня - точка, мне так удобнее ( в частности работы на  Паскале ).
Поэтому у меня выскакивает - см. рис.
Поменял в ОС . на , - заработало.

То есть надо было в проге как-то это учесть с помощью глобальной переменной DecimalSeparator

[Аурипигмент]

А у меня Линукс. 
Надо как-то через вайн запускать.
По виду похоже на Старкалк, который то же на Паскале написан.

Попытался запустить через вайн, вылезла ошибка, что файла нет и пустая оболочка, но в оболочке всё переключалось.

[Toth]

Надо как-то через вайн запускать

Или можно скормить исходники для Дельфы Лазарусу.
Создайте проект в Лазарусе, в его папку вывалите все файлы, и компилируйте.
Я так делал. Брал то, что написал в Дельфы в Винде, компилировал в Лазарусе в Линуксе. Правда, давно уже, и проект был попроще.
Конечно могут быть какие-то проблемы, наверное связанные с файловыми операциями.

[Guy Fawkes II]

Было, притаскивал как-то это к коллегам в другом городе на работу, там так же оно не запустилось (такая же проблема с точкой и запятой), на новой Embarcadero Delphi оно уже не компилируется, хотел еще под Android переписать, но руки уже ни до чего не доходят, потому и выкладываю, чтобы вообще не пропало

[Проходящий Кот]

В Дельфи-7 нормально откомпилирована.

[Проходящий Кот]

Книги по Дельфи

Паскалю


программирование


Всё с торрентов.

[Toth]

В Дельфи-7 нормально откомпилирована.

У меня тоже 7, и тоже компилируется нормально.
Это уже при запуске .exe ( или готового, или свежескомпилированного ) - проблемы точка-запятая.
В файле defdir исправил 14,0 на 14.0 , но все равно где-то в других файлах есть запятые.

А в настройках ОС на запятую неохота переходить. Я не случайно на точку перешел. В Паскале ( да и с Си ) в цифровых константах - точка. Например, в константных массивах.

[Аурипигмент]

Создайте проект в Лазарусе, в его папку вывалите все файлы, и компилируйте.

Я ещё так не умею. Надо разбираться.

[Проходящий Кот]

Это лечится просто   --- вводятся буквы. цифры 0123456789 воспринимаются  как цифры, + - тоже изображают сами себя.
 Остальные  любые знаки воспринимаются как знак разделения.
E, e ---- отсечение текстовой степени



 type
     rex=extended;



function civrread(st:string):rex;
  var
   ct0,exponent:string;
   vids:boolean;
   i,j,k:byte;
   cifrs:rex;
   exponentC:longint;
begin
 ct0:=st;
  k:=1;J:=0;
  // отсечение текстовой степени
 for i:= length(st) downto 1 do
  if st in ['E','e'] then
         begin;
           j:=i;
           if st[i+1]='-' then
               begin;J:=j+1;K:=0; end;
           exponent:=copy(st,j+1,length(st));
           ct0:=copy(st,1,j);
           break;
         end;
  // преобразование степени в числовую форму
       exponentC:=0;
  if J>0 then
    begin;
     for i:= length (exponent) downto 1 do
   if not(exponent in ['0'..'9']) then
       Delete(exponent,i,1);
        exponentC:=strtoint( exponent);
        if k=0 then  exponentC:=- exponentC;
    end;


   // отсечение общего знака
  vids:=false;j:=0;
if st[1]='-' then ct0:=copy(st,2,length (st));
ct0:='00'+ct0+'.00';
    // преобразование числа к длинному целому


  CIFRS:=0;
  for i:=1  to length (ct0) do
   if ct0 in ['0'..'9'] then
 begin;inc(j);
  cifrs:=10*cifrs+strtoint(ct0);
   end
  else
 if not vids then
    begin;
     vids:=true;
     j:=0;
    end;


// точное определение степени числа
     exponentC:= exponentC-j;
// отрицательная степень
     if  exponentC <0 then
 for i:=1 to abs(exponentC) do
    cifrs:=cifrs/10;
// положительная степень
      if  exponentC >0 then
 for i:=1 to abs(exponentC) do
    cifrs:=cifrs*10;
// добавление знака числа
 if st[1]='-' then cifrs:=-cifrs;
 civrread:= cifrs;
end;

Вариант без экспоненты


function civrread(st:string):rex;
  var
   ct1,ct2:string;
   vids:boolean;
   i,j:byte;
   siv1,siv2:integer;
   znak:string;
   cifrs:rex;
begin
  st:=st+'.00';
 znak:='+';ct1:=st;ct2:='';
  vids:=false;j:=0;
if st[1]='-' then begin;ct1:=copy(st,2,length (st));znak:='-';end;
ct1:='00'+ct1;
for i:=1  to length (ct1) do
   if ct1 in ['0'..'9'] then
 begin;inc(j);
   ct2:=ct2+ct1;end
  else
 if not vids then
    begin;
     vids:=true;
     siv1:=strtoint(ct2);
     ct2:='';j:=0;
    end;
 siv2:=strtoint(ct2);
 cifrs:=siv2;
   for i:=1 to j do
 cifrs:=cifrs/10;
 cifrs:=cifrs+siv1;
 if st[1]='-' then cifrs:=-cifrs;
 civrread:= cifrs;
end;

[Guy Fawkes II]

Там читаются сами каталоги Bright Star и ASCC и при каждом обращении используется эта запятая через StrToFloat, придется потом действительно этим заняться.

Книги - благодарю!

[Toth]

Можно так.
Создаем глобальную переменную в модуле главной формы например.

Код: [Выделить]

var  DecSepOS:char;
В начале, например в событии FormCreate :

Код: [Выделить]

DecSepOS:=DecimalSeparator;  // запоминаем разделитель ОС
DecimalSeparator:=',';       // устанавливаем свой

В конце, например в FormClose:

Код: [Выделить]

DecimalSeparator:=DecSepOS; // восстанавливаем, как было в ОС
Хотя, может и не надо восстанавливать, при закрытии проги может и само восст.

PS Сейчас сделал это в smp1.pas - все ОК.

[eabrega]

А вот, как здесь на форуме обмениваться листингами программ? Если вставлять в код, то потом прога не хочет работать, с расширением .pas форум не проглотит, остаётся зиповать и вкладывать архив, но запарно паковать-распаковывать.

Github индустриальный стандарт для размещения исходных кодов.

[Toth]

Github индустриальный стандарт

Это для профи, или весьма продвинутых любителей.
Но если скачивать - то конечно оттуда.

[byFelix]

Можно так.
Создаем глобальную переменную в модуле главной формы например.
...
В начале, например в событии FormCreate :
...
В конце, например в FormClose:

Не надо так делать. Добавляем в главную форму секции Initialization и Finalization. В Initialization читаем DecimalSeparator и меняем его. В Finalization восстанавливаем.

[CyberManiac]

Можно так.
Создаем глобальную переменную в модуле главной формы например.
...
В начале, например в событии FormCreate :
...
В конце, например в FormClose:

Не надо так делать. Добавляем в главную форму секции Initialization и Finalization. В Initialization читаем DecimalSeparator и меняем его. В Finalization восстанавливаем.

И так тоже делать не надо. Для преобразования строки в число с незапамятных времён есть процедура Val, у которой десятичный разделитель всегда точка, плюс есть возможность отлавливать нечисловые значения по коду ошибки.

[ma][im]

Товарищи программисты, не знаю куда вопрос задать - попробую тут поинтересоваться, раз были разговоры про TLE.
А есть ли возможность узнать TLE МКС не актуальные данные, а на определенную дату (несколько месяцев назад), может где-то хранится история изменений TLE?
зы вопрос решен, сайт space-track.org