Wo finde ich die System Unit?

[Muetze1]

Zitat von lbccaleb:

hast denn schon mal einfach nach der datei gesucht???
windows suche ist dort eigentlich ganz fix vor allem die von vista

Und zum 5. mal in diesem Thread: In der PE sind die Quellen nicht mit bei. Er kann noch soviel auf seinem Rechner suchen, er wird sie nicht finden...

Zitat von Tommy1988:

kann mir den Code denn jemand posten?

Das würde gegen die Lizenzbestimmungen verstoßen.

[Tommy1988]

Ach verdammt..

Delphi-Quellcode:

function Frac(X: Extended): Extended;
begin
result := X - Int(X);
end;

Das habe ich im Internet gefunden, doch leider ergibt sich daraus NICHT das selbe wie bei der echten FracFunktion.


Edit:

Delphi-Quellcode:

function FracF(X: Extended): Extended;
begin
result := X - IntF(X); // Markierung
end;
function IntF(X: Extended): Extended;
begin
result := X - FracF(X);
end;

Funktioniert nämlich nicht, denn dann ist bei der Markierung IntF undefiniert.

[mkinzler]

Und warum nicht?

[Gausi]

Aber bei Turbo Delphi sind die dabei. Wenns nur darum geht, sich den Code einiger Funkionen mal ansehen zu wollen, sollte das ausreichen.

[s-off]

Zitat von Gausi:

Aber bei Turbo Delphi sind die dabei. Wenns nur darum geht, sich den Code einiger Funkionen mal ansehen zu wollen, sollte das ausreichen.

In der Explorer-Version? Dann wäre CG aber ganz schön

Edit:
Die Frac-Funktion aus der System-Unit ist übrigens in ASM geschrieben; dürfte also nicht das sein, was Du gefunden hast.

Edit2:
Für Int gilt das Gleiche.

[jbg]

Zitat von s-off:

In der Explorer-Version? Dann wäre CG aber ganz schön

Klar sind die da dabei. Die Explorer ist nur eine eingeschränkte Pro.

[Tommy1988]

Das bringt mich nur leider nicht weiter

[mkinzler]

Zitat von Tommy1988:

Das bringt mich nur leider nicht weiter

Und wenn du TDE herunterlädst?

[Tommy1988]

Ich habe jetzt mal
function IntF(X: Extended): Extended;
und
function FracF(X: Extended): Extended;

deklariert. Aber Ich erhalte einen Fehler, wenn FracF IntF aufrufen will. (IntF steht unter FracF)

[mkinzler]

Mach ne forward Deklarartion