Є в Делфі така чудова команда, як StringReplace. Вона бере рядок, і заміняє в ньому деякі слова іншими: http://www.delphibasics.co.uk/RTL.asp?N … ingReplace
У вашому випадку буде приблизно так:

function FormulaInd(AFormula: String; AIndex: Integer): String;
begin
  Result := Format(AFormula, [AIndex]);
  if AIndex = 0 then
    Result := StringReplace(Result, '0', '', [rfReplaceAll]);
end;

Колись пан topprogrammer склав функцію:

const
    FloatFmt10:String = '0.##########';
    FloatFmt25:String = '0.#########################';
    FloatNum:String = '%.25g'; //тут символи замість яких буде виводитись число

function VarToString(format: string; const a: array of extended): string;
var
 i, j: integer;
 s: string;
 x: extended;
begin
   s:=format;
   for i := Low(a) to High(a) do
   begin
     j := Pos(FloatNum, s);
     Delete(s, j, Length(FloatNum));
     x := a[i];
     if x>1e18 then
       Insert(FloatToStrF(x, ffFixed, 50, 0), s, j)
     else
       if x<1e-10 then
         Insert(FormatFloat(FloatFmt25, x), s, j)
       else
         Insert(FormatFloat(FloatFmt10, x), s, j)
   end;

   VarToString:=s;
end;

виклик її ось такий

RichEdit1.Lines.Add (VarToString('Fтяж%.25g = m%.25g * g%.25g',
                       [PVI, PVI, PVI]));

В принципі можна користуватися і нею, але коли PVI := 0 то мені виводить Fтяж0 = m0*g0 а потрібно щоб нуль пропускало і виводило просто Fтяж = m*g. Якимось чином її можна переробити.

Ця функція чим вигідна що тут можна вводити будь яку кількість фізичних величин з певним індексом 1, 2, .... і так далі. І все було б чудово якби індекс 0 вона пропускала.

Дякую пане Torbins за підказку в правильному напрямку! Я функцію доробив для PVI > 0 все чудово працює.

function FormulaInd(Formula: String; Index: Integer): String;
var
 s: string;
begin
  s := IntToStr(Index);
  if Index = 0 then
   Result := StringReplace(Formula, '#', '', [rfReplaceAll])
  else
   Result := StringReplace(Formula, '#', s, [rfReplaceAll]);
end;

Виклик функції має вигляд:

RichEdit1.Lines.Add(FormulaInd('Fтяж# = m#*g#',PVI));

Дякую!

Бібліотека DLL (або LIB) і програма EXE відрізняються тим, що в EXE є так звана "точка входу", це звичайна функція, в якої ім'я і параметри задані так, щоб ОС змогла її знайти і викликати.

Основна відмінність у першій літері. Модулі (unit) збираються у .exe-файл статично - коли все зібрано до купи, вже не розбереш. DLL - динамічно(!) зв'язувані бібліотеки, їх можна міняти окремо від решти програми. Зокрема, кілька програм можуть використовувати один .DLL файл, бо всі будуть до нього підключатися динамічно, під час виконання.

А те, що ви питаєте, зветься "ресурсами", ресурси можна і в .EXE додавати.  В Delphi є досить зручні функції, щоб це все додавати (прямо в IDE) і витягати, на кшталт TBitMap.LoadFromResourceName. Боюся, більше по конкретно вашій версії Delphi не підкажу.

Дякую пане koala! Версія Delphi в мене Embarcadero RAD Studio 10.3.0. Справа в тому що я зараз видаляю код з основного модуля в своїй програмі та переношу його в додаткові модулі Mathematical.pas, Physics.pas, Sounds.pas. Подивившись відео про DLL вирішив що краще цей код переносити в динамічні бібліотеки. Так як в майбутньому їх можна легко доповнювати та оновлювати. В відео вісі кажуть що в цих бібліотеках можна зберігати не тільки код, а навіть якісь файли, та ніде не має відео як це робити.

Наприклад в компонента Image1 є властивість Picture, там нажавши на три крапочки вискакує діалогове вікно за допомогою якого я можу завантажити файл (ресурс) .jpg в компонент. Після того як я скомпілюю програму, я можу файл (ресурс) фізично стерти з жорсткого диску та в програмі він всерівно залишиться. Я не знаю де він там зберігається, але в програмі він є.

От в мене і питання: в бібліотеку DLL можливо так само загрузити файл (ресурс) в форматі .mp3 чи .jpg, як і в компонент "Image1." щоб після компіляції програми я міг видалити всі .mp3 та .jpg з жорсткого диска, які зараз в мене розміщені в різних папках??? Чи це просто контейнер для коду і фізично файлів (ресурсів) він зберігати не може?

В YouTube кажуть що там можливо зберігати навіть звуки, та ніхто не наводить прикладу як це робити.

Вибачайте за багато питань, але краще спочатку розібратися ніж потім знову щось переписувати.

Добре, Якщо можна коротенький код як вкласти в EXE - ресурс, та як потім передати це в MediaPlayer1. Наприклад в мене є файл Атмосферний тиск.mp3.

Що мені далі робити? Напишіть хоч пару прикладів. Щоб побачити яку інформацію далі шукати в інтернеті.
В принципі ці процедури та функції мають вкладати ресурс і в DLL, я так розумію.

ProgramBandera
Ресурси можна використовувати отак: http://mirsovetov.net/delphi-res.html (російською). Але mp3 напряму з ресурсів стандартним медіаплеєром відтворити не можна, треба буде зберігати у тимчасовий файл. Інший варіант класти у ресурси не mp3, а wav. Цей тип файлу може містити як не стиснуте аудіо у форматі PCM, так і стиснуте у форматі MP3. Як правильно зробити конвертацію, я сподіваюсь, ви самі знайдете інформацію. Відтворення з ресурсів виглядає приблизно так:

PlaySound('<назва русурсу wav>', 0, SND_RESOURCE or SND_ASYNC);

Добрий вечір панове! І ще одне питання по ресурсах.

Я можу створити наприклад три файли зі звуковими ресурсами PhysicsSound.res, GeometrySound.res, MathematicalSound.res та підключити їх в основний модуль? Чи в мене можливий якийсь конфлікт в цій ситуації, і потрібно всі файли .WAV зберігати в одному файлі ресурсу, наприклад Sound.res,?