Добрий день панове! Допоможіть оптимізувати код.
Є ось такий уривок коду, який дуже багато раз в коді повторюється (ЗА ВИНЯТКОМ НАЗВИ ФОРМУЛИ) 'Густина речовини ρmV5.jpg'
Pict := TPicture.Create;
try
Pict.LoadFromFile('Формули\Густина речовини ρmV5.jpg');
Clipboard.Assign(Pict);
RichEdit1.PasteFromClipboard;
finally
Pict.Free;
end;
Підкажіть як зробити це функцією чи процедурою щоб я зміг в коді викликати це назвою процедури чи функції з параметром назви формули.
Спробував написати процедуру, але при виклику її видає помилку
Procedure Formula(var a:string);
var
Pict: TPicture;
begin
Pict := TPicture.Create;
try
Pict.LoadFromFile('Формули\' +a);
Clipboard.Assign(Pict);
RichEdit1.PasteFromClipboard;
finally
Pict.Free;
end;
end;
виклик дає помилку: Постійний об'єкт не може бути переданий як параметр var
Formula('Об’єм трикутної призми.jpg');