mit function arbeiten (Anfängerfrage)

[maveric]

Hallo,

bitte nicht lachen.

Die Theorie ist ja ganz nett und verständlich, mein Problem ist das umsetzen im Quelltext.

Kann mit jemand ma ein ganz simplen Quelltext geben (mit Anwendung von functions) zum kürzen eines Bruchs (biite komplett, ink. dekalrisation)??

Zähler = z
Nenner = n

Bitte in der Form :

Type
.....
Puplic
....
private
....
implementation
....
procedure TForm1.FormCreate(Sender: TObject);

...



Danke