cm til fod (feet) og tommer (inches)

cm := feet * 30.48 + inches * 2.54;

og

feet := trunc(cm/30.48);
inches := (cm - feet*30.48) / 2.54;

skulle goere det.

Hvis du vil have inches med 1/2 1/4 1/8 1/16 etc. saa er det lidt mere tricky.

Ved ikke rigtigt så meget om hvordan man plejer at måle højde/længde i feet inches :\ det var bare en request til programmet ;)
men mange tak, får nok først kigget på det i løbet af næste uge :/

Jeg har lige testet og følgende ser ud til at virke:

procedure us2metric(feet, inches : double; var cm : double);

begin
  cm := feet * 30.48 + inches * 2.54;
end;

procedure metric2us(cm : double; var feet, inches : double);

begin
  feet := trunc(cm/30.48);
  inches := (cm - feet*30.48) / 2.54;
end;

Og hvis du vil have det med brøker (ned til 256'ende dele) så:

procedure us2metric(feet, inches, inches1, inches2 : integer; var cm : double);

begin
  cm := feet * 30.48 + (inches + inches1 / inches2) * 2.54;
end;

procedure metric2us(cm : double; var feet, inches, inches1, inches2 : integer);

var
  tmp : double;

begin
  feet := trunc(cm/30.48);
  tmp := (cm - feet*30.48) / 2.54;
  inches := trunc(tmp);
  tmp := tmp - inches;
  inches1 := trunc(256 * tmp);
  inches2 := 256;
  while (inches2 > 1) and (inches1 mod 2 = 0) and (inches2 mod 2 = 0) do begin
    inches1 := inches1 div 2;
    inches2 := inches2 div 2;
  end;
end;

mange tak for hjælpen, et helvede at få det til at køre sammen med det andet xD men nu virker det :D
så smid et svar, så skal du få dine point :)

svar

Man kunne vælge at bruge det konveterings frame work der følger med delphi :

Hvis du  bruger Delphi 2007 ligger demoen her :
C:\Documents and Settings\All Users\Dokumenter\RAD Studio\5.0\Demos\Delphi.Net\VCL\ConvertIt

Og for Delphi finder du demoen her :
C:\Programmer\Borland\Delphi7\Demos\ConvertIt

Men helt generelt skal du bruge unit'en ConvUtils.pas, som ligger her :{$Delphi}\source\Win32\rtl\common

Jens B