Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Extended mit mehr als 18 Stellen (https://www.delphipraxis.net/56126-extended-mit-mehr-als-18-stellen.html)

ripper8472 1. Nov 2005 11:29

Re: Extended mit mehr als 18 Stellen
 
klassen schreiben und operatoren ueberladen reicht schon.

Flocke 1. Nov 2005 11:29

Re: Extended mit mehr als 18 Stellen
 
Ich habe auch gerade mal in der Delphi-Hilfe nachgeschlagen - ich denke mal, denen ist der Dezimalpunkt abhanden gekommen :roll:

Es sollte sein: 64 Bits geben log10(2^64) = 19,27 signifikante Stellen.

3_of_8 1. Nov 2005 11:30

Re: Extended mit mehr als 18 Stellen
 
Äh, ja. Beispiel?

Also einfache Records und Typen, Klassen etc. habe ich ja schon geschrieben, aber einen Zahlentyp, mit dem man rechnen kann?

Khabarakh 1. Nov 2005 11:30

Re: Extended mit mehr als 18 Stellen
 
Zitat:

Zitat von 3_of_8
Kurze Zwischenfrage eines Dummen: Wie schreibt man einen neuen Typ?

Einen einfachen Typen? Gar nicht. Das geht nur über Klassen/Interfaces.

ripper8472 1. Nov 2005 11:31

Re: Extended mit mehr als 18 Stellen
 
oder auch etwas anders geschrieben: 64 * ln(2) / ln(10)

ichbins 1. Nov 2005 11:31

Re: Extended mit mehr als 18 Stellen
 
langsamheit macht nix, so was hab ich schon immer gesucht !!! :bounce1: :-D :-D :-D :-D

zum Thema wie schreibt man eine Typ? Seeeeeeeehr kompliziert. In Type einen Typ deklarieren:

Delphi-Quellcode:
type
  tzahl=class
    protected
      {Versteckte Variablen / Funktionen / Prozeduren / Propertys}
      x:integer;
      function getwertvonx:integer;
      procedure setx(setxto:integer);
    public
      {In anderen Units sichtbare Variablen/Fs/Ps/props}
      property wertvonx read getwertvonx write setx;
  end;

  [...]

procedure tzahl.setx(setxto:integer);
begin
  x:=setxto;
  //Aktion wenn X geschrieben wird (labels verändern etc)
end;  

function tzahl.getwertvonx:integer;
begin
  result:=x;
  //Aktion wenn x ausgelesen wird
end;

3_of_8 1. Nov 2005 11:32

Re: Extended mit mehr als 18 Stellen
 
OK, ich gebs auf. Bin halt noch ein Newbie.

ichbins 1. Nov 2005 11:35

Re: Extended mit mehr als 18 Stellen
 
Gib niemals auf!!!

Aufgeben hat keinen Sinn. Besser ein Tutorial durchlesen und du weisst absofort, wie man Typen schreibt.

manchmal sogar mehr von nutzen als aufzugeben.

3_of_8 1. Nov 2005 11:37

Re: Extended mit mehr als 18 Stellen
 
Naja, eigentlich muss es ja nicht sein. Ich brauche es momentan nicht und versuche mich besser wieder an OpenGL und meinen zig unbeendeten Projekten.

Welches tutorial eigentlich?

ichbins 1. Nov 2005 11:38

Re: Extended mit mehr als 18 Stellen
 
Eines von 10000000000000 Tutorials die du überall in Google verstreut und vielleicht auch sogar in der DP findest. Ich hab selber mal so eins geschrieben, aber das find ich gerade nicht :oops: Erst gestern oder vorgestern hat Luckie hier eins gepostet...


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:04 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz