Hi, i' m a newbie in pascal programing. I have need for measurement converter in Pascal to use in Subtitle Workshop as pascal script.
Found some codes online for other converters, but can't figure out how to do it for example miles to kilometres.
Can someone help me to do it.
This is the pascal script.
unit units;
interface
uses
Classes,
Controls,
Dialogs,
Forms,
StrUtils,
SysUtils,
Variants,
Windows;
begin
function MilesToKillometres(MyNumber: variant): string;
function InchesToCentimetres(MyNumber: variant): string;
function FeetToCentrimetres(MyTens: variant): string;
function GalonsToLitres(MyDigit: variant): string;
implementation
function MilesToKillometres(MyNumber: variant): string;
var
Temp: string;
Miles, Killometres, Words: string;
km, iCount: string;
begin
//Find any number before miles
Words:= (MyNumber + 'miles');
end;
begin
//Convert Miles
Temp := LeftStr((MyNumber + 'miles') * 1,6);
km := ' and ' + ConvertMiles(Temp) + ' km';
end;
end.