The following example demonstrates a technique based on equations originally solved by Euclid in approx. 300 B.C. :

Example:

function GetFracStr(Num : integer; Num2 : integer) : string; var N : integer; N2 : integer; Tmp : integer; begin if Num < Num2 then begin N := Num ; N2 := Num2; end else begin N := Num2; N2 := Num ; end; Tmp := N2 mod N ; while Tmp <> 0 do begin N2 := N ; N := Tmp; Tmp := N2 mod N ; end; result := IntToStr(Num div N ) + '/' + IntToStr(Num2 div N ); end;

procedure TForm .Button Click(Sender: TObject); begin Memo .Lines.Add(GetFracStr(2, 64)); end; 7/ 6/98 4:3 :28 PM