1:

Bruch := StrToBruch('0.5');					

1:
2:
3:

45 67/23
-- -- --
1. 2. 3.					

1:
2:
3:
4:
5:
6:
7:
8:

var
  aBruch: TBruch;
  aBruchG: TBruchG;
begin
  aBruch := StrToBruch(edit1.text);
  aBruchG := BruchToBruchG(aBruch);
  edit2.text := inttostr(aBruchG.Zahl) + ' ' + BruchToStr(ToBruch(aBruchG.Zaehler, aBruchG.Nenner));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

    public int ggT(int a, int b)
    {
      if ((a == 0) || (b == 0))
        return 0;
      int r;
      do
      {
        r = b;
        b = a % b;
        a = r;
      }
      while (b != 0);
      return a;
    }					

1:
2:
3:
4:
5:
6:

function ToBruch(Ganze,Zaehler,Nenner:int64) : TBruch; // natürlich mit "overload"
begin
  if Nenner=0 then raise Exception.Create('Der Nenner darf nicht null sein.');
  result.Zaehler := Ganze*Nenner + Zaehler;
  result.Nenner := Nenner;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

function StrToBruch(const s:string; eps:extended=0.0) : TBruch;
var
  p : integer;
  b1,b2,b3 : TBruch;

  function Get(var z : TBruch) : boolean;
  var
    tmp : string;
  begin
    tmp := '';
    while (p <= Length(s)) and (s[p] = ' ') do inc(p);
    while (p<=Length(s)) and (not (s[p] in [' ', '/'])) do begin
      tmp := tmp + s[p];
      inc(p);
    end;
    while (p <= Length(s)) and (s[p] = ' ') do inc(p);
    if tmp=''
      then result := false
    else begin
      if eps=0.0
        then z := FloatToBruch(StrToFloat(tmp))
        else z := FloatToBruch(StrToFloat(tmp), eps);
      result := true;
    end;
  end;

begin
  p := 1;
  if Get(b1) then begin
    if (p>Length(s)) then
      result := b1
    else
    if s[p]='/' then begin
      inc(p);
      if Get(b2) then
        result := p_Div(b1, b2)
      else
        raise Exception.Create('Syntax-Fehler');  // keine weitere Zahl hinter dem "/"
    end else begin
      if Get(b2) then begin
        if s[p]='/' then begin
          inc(p);
          if Get(b3) then
            result := p_Add(b1, p_Div(b2,b3))
          else
            raise Exception.Create('Syntax-Fehler'); // s.o.
        end else
          raise Exception.Create('Syntax-Fehler');
      end else
        result := b1;
    end;
  end else
    raise Exception.Create('Syntax-Fehler');   // Hier fehlt der Nenner.
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function Ganze(bruch:TBruch) : int64;
begin
  result := Bruch.Zaehler div Bruch.Nenner;
end;

function Zaehler(bruch:TBruch) : int64;
begin
  result := Bruch.Zaehler mod Bruch.Nenner;
end;

function Nenner(Bruch:TBruch) : int64;
begin
  result := Bruch.Nenner;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function BruchToNiceStr(Bruch:TBruch) : string;
// Spaltet den Ganzteil ab, aber nur wenn vorhanden. Das Ergebnis ist ein "schöner" Bruch.
var
  g,z,n : int64;
begin
  Bruch := p_Kuerzen(Bruch);
  g := Ganze(Bruch);
  z := Zaehler(Bruch);
  n := Nenner(Bruch);
  if (g<>0) then begin
    if (n<>1) then result := Format('%d %d/%d', [g,z,n])
    else result := Format('%d', [g])
  end else
  if (n<>1)
    then result := Format('%d/%d', [z, n])
    else result := Format('%d', [z]);
end;