Mercury13

На то она и файловая система, что скрывает от пользователя, как устроен диск и есть ли вообще диск: может быть сетевая файловая система, могут быть устройства как файлы, а может быть RAID какой-нибудь, когда одни данные на двух дисках.

Насколько мне известно, ни один файловый API не позволяет перейти от высокоуровневого дескриптора до низкоуровневых штучек — во-первых, неуниверсально. Во-вторых, опасно для пользовательских данных, если программа уверена, что знает, а она не знает (например, на диске MyCoolFS 3.15, а программа работает с 3.14). Все программы, работающие с файловой системой как таковой, начинают с разделов диска.

Такая конструкция хотя бы ставит надёжные стены между пользовательскими программами (которые портят данные в крайне редких случаях — скажем, когда выключили комп во время записи) и сервисными утилитами (которые по определению опасны, используйте на свой риск).

Этот компонент позволяет отобразить всё, что можно нарисовать программно: картинки, тексты, списки, формулы и прочее. Форма — это не только рисование, но и размещение объекта со своим оконным дескриптором, так что отпадает. «Вычисления» — это слишком общий термин, но если придумаешь, как нарисовать схему/формулу вычислений, то пожалуйста. А остальное катит.

Это символ не Delphi, а Win32. Как налаживается горячая клавиша в других ОС — я не в курсе, но в Qt под всеми ОС горячая клавиша задаётся точно так же, амперсандом. В текстовой системе Turbo Vision было ~H~otkey.
Никакого особого смысла эти символы в окнах Win32 не несут. Но могут нести где-то в других местах, сами понимаете:
• на некоторых сайтах #hashtag или @user
• в строках типа printf процент — это символ подстановки типа «Привет, %s»
• а какой смысл несут все эти символы в Паскале — вы и так должна знать.

Связывает визуальные элементы навигации по БД с невизуальным источником данных.
Устанавливает заголовок формы (у вас кодировка глючит).
Запускает форму в модальном режиме.

longclaps написал, как всё это дело должно выглядеть внешне.
Внутренне это реализуется просто.
1. В OnPaint какого-нибудь компонента (PaintBox, скажем) при определённых условиях выводим визуализацию.
2. Блокируем весь пользовательский интерфейс (кроме какой-нибудь кнопки «Стоп»).
3. Каждый раз, когда надо что-то увидеть, делаем paintBox.Repaint, Application.ProcessMessages и небольшую задержку.
4. При нажатии кнопки «Стоп» ставим какую-то переменную в true. Сортировка реагирует на эту переменную и останавливает цикл: либо простым Exit, либо аварией Abort и последующей реакцией на EAbort.

Если есть желание сравнить несколько алгоритмов сортировки, стоит сделать функцию типа DoSwap(i, j : integer), которая меняет местами элементы, устанавливает всё, что надо для визуализации, инициирует перерисовку и делает задержку.

Попробуйте Brush.Color := $FF000000 or clBlue;. Велика вероятность, что механизмы работы с 32-битными изображениями тут слабоваты.

var // ну или const
masMask: array[1..3, 1..3] of string = (
  ( '11', '12', '13' ), ( '21', '22', '23' ), ( '31', '32', '33' )
);

ВНИМАНИЕ! Я не проверял, как оно работает, когда это локальная переменная (var).

UPD. Проверил, нельзя. Var работает только если массив глобальный. Const, разумеется, работает всегда, ибо создаёт глобальный массив и запрещает туда писать. Если же нужно инициализировать локальный var, надо объявить тип
type TSomeTable = array[1..3, 1..3] of string;
создать какую-то константу

const masStart: TSomeTable = …;
var masMask : TSomeTable;

а затем в начале masMask := masStart;

UPD2. Для чего объявить тип? Читайте правила эквивалентности типов в Паскале, они жёстче, чем в Си. И тот учебник, по которому я учил Паскаль (Зуев), особо упоминает, что два одинаковых array не эквивалентны.

UPD3.

months = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec);

 — это не массив! Это перечисляемый тип. Кстати, из-за правил пересечения идентификаторов очень не советую писать типы и перечисляемые константы без венгерской записи, к тому же название months сбивает с толку. Лучше будет TMonth = (monJan, monFeb, …);.

Число в отрицательную степень или отрицательное число в степень?
Отрицательное число можно возводить только в целую степень (уже с рациональной ни фига не понятно, а как мы получили понятие «действительная степень»? — дополнили рациональную по непрерывности).
Тут вам надо возвести −1 в степень n, и проще всего
IfThen(Odd(n), -1, 1)

Для этого ряда так подходит. Но если перед нами ряд для синуса, который вычисляется рекуррентно, то

x2 := Sqr(x);
...
yNew := -yOld * x2 / ((n - 1) * n);

Итак, надо решить такую задачу.
x^b = a, a > 0, или x^b — a = 0

Метод Ньютона говорит:
x_n+1 = x_n − f(x) / f′(x)
x_n+1 = x_n − (x_n^b — a) / (b·x_n^b−1) = (x_n − a/(x_n^b−1))/b
Поскольку функция возрастает и выпукла вниз, x₁ лучше брать завышенный. Идеал — хаки с дробными числами (например, заполучить порядок и взять начальным приближением 2^[ord/b] для отрицательного порядка и 2^{[ord/b] + 1} для неотрицательного.

[x] — усечение дробного числа, при целом b [ord/b] = ord div b. Чтобы заполучить порядок, похимичить с ним и снова собрать в машинное дробное, можно воспользоваться функциями Delphi Frexp и Ldexp, они очень быстры.

Заканчивать когда |x_n+1 − x_n| меньше e. Поскольку у метода сходимость квадратичная, почти гарантированно получим нужную нам точность.

Поскольку для проверки точности нам нужны два приближения, n и n+1, их и храним.

И последнее. Поверь мне, прекрасная леди, никто не будет решать тебе учебную задачу до конца.

Можно загуглить NativeExcel — он распространялся с исходниками, и вполне найдётся хакнутая версия.
Есть, правда, несколько не слишком удачных вещей в NativeExcel, и если модуль приглянется, спросите меня, что в нём можно улучшить. Вкратце.
1. Портирование WideString → UnicodeString.
2. Портирование Delphi ZLib port → Embarcadero Zlib interface.
3. Разглючка для Zip’ов LOo.
4. Разглючка для XML LOo.
5. Разглючка с цветами XLSX. LOo тут, как ни странно, ни к чему, но однажды попадался такой XLSX.
6. Разглючка с распознаванием bool (тоже LOo).

UPD. Сам NativeExcel три года как брошенный, его домен с недавних пор ничей — надеюсь, автор коммерческой библиотеки будет не сильно против.

UPD2. Запомните уж, рисование на форме надо делать только в OnPaint. Сверни-разверни окно — линия исчезнет Код будет примерно такой.

TForm1 = class(TForm)
   ...
  private
    MyLabel,MyLabel2:TLabel;  // тут они занулятся автоматически, да и фэншуйнее
    ...
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
...
MyLabel2.Caption:='3';
Invalidate;   // Запросить перерисовку
end;

procedure TForm1.FormPaint(Sender: TObject);  // Событие OnPaint
begin
  if MyLabel <> nil then
    with Canvas do begin
      Pen.Color:=clRed;
      MoveTo(MyLabel.left,MyLabel.top+(MyLabel.Font.Size+MyLabel.Font.Size div 2) div 2);
      LineTo(MyLabel2.left,MyLabel2.top+(MyLabel2.Font.Size+MyLabel2.Font.Size div 2) div 2);
    end;
end;

А для расчёта ваших выносок вариантов несколько.
1. Нарисовать цифру во внеэкранный буфер и рассчитать размеры реально закрашенной части.
2. Получить метрику шрифта, по ней прикинуть размеры типичной «заглавной» цифры. Справа убрать пиксель межбуквенного пространства, плюс внести какую-то поправку на «узкую» единичку.

UPD3. В чём было дело? А в том, что TGraphicControl (к коим относится и TLabel) — это абстракция Delphi, не имеющая аналога в Windows. Он просто берёт тот TWinControl, на котором находится, в случае Transparent рисует фон под собой через WM_PAINT, а затем рисует себя. При этом чёрточка, нарисованная НЕ через OnPaint, стирается.

UPD4. Полный порядок, рисование через OnPaint — это всё, что надо было. TGraphicControl умный и обходится без лишних перерисовок.

Ну и наконец «хорошие качества» вашего кода.

MyLabel := TLabel.Create(Form1);
MyLabel.Parent := Form1;

Лучше использовать Self, а не Form1.

Form1: TForm1;
   p,c,z,j:integer;

Если бы эти переменные были нужны, лучше было бы их внести в Form1. Если бы…

function rez(p:integer): integer;
   begin
   c:=p+20;

   end;

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

UPD. Это только макет и будет глючить на высоких DPI. Пожалуйста, если хотите такое широкой публике — усложните расчёты.

Я добавлю к Александр .
В отличие от Си, где условие цикла каждый раз вычисляется полностью, в Паскале вторая граница for вычисляется один раз и запоминается.
Потому длина строки меняется, а мы ходим до самой первой.

К тому же вы неправильно решаете задачу. Никакой там не одной строкой. В ответе сервера концы строк LF, а надо CR+LF. Вот функция (крайне неоптимизированная), которая приводит концы строк к единому виду независимо от того, какие там стоят.

function NormalizeEol(const s : string) : string;
begin
  Result := StringReplace(s, #13#10, #10, [rfReplaceAll]);
  Result := StringReplace(Result, #13, #10, [rfReplaceAll]);
  Result := StringReplace(Result, #10, #13#10, [rfReplaceAll]);
end;

Многие библиотеки OpenSSL требуют какие-то свои DLL (например, MSVC). Если программа внутренняя, это не так важно, а вот если её распространять… Особенно когда программа написана на чём-то другом, кроме MSVC: например, MinGW или Delphi.
Я накопал вот такие сборки — они выполнены устаревшей версией MSVC и не требуют ничего особенного.
https://indy.fulgan.com/SSL/
(Сам я использую MinGW, и поскольку OpenSSL вызывается через cURL, который тоже не мой, без бутылки не поймёшь, кто виноват и что делать.)