Eigene Variablentypen

Fabian · Beiträge: 42

Hallo,
Gibt es eine Möglichkeit eigene Variablentypen zu definieren ?

wwerner · Beiträge: 185

Ja, z.B. records

_________________
Gruß

Wolfgang

----------
zu hause ist es doch am schönsten

b.brecht · Beiträge: 81

Jopp, hier ein Beispiel:

markieren

Delphi-Quelltext

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

procedure TForm1.FormCreate(Sender: TObject);
        type
                Schueler = record
        Name, Geburtsdatum: String;
        Alter: Integer;
        Geschlecht: Char;
        end;
var
Klasse:ARRAY[1..30] of Schueler;
begin
Klasse[1].Name:='Name, Vorname';
Klasse[1].Geburtsdatum:='XX.XX.XXXX';
Klasse[1].Alter:=00;
Klasse[1].Geschlecht:='m';
end;

Moderiert von Klabautermann: Code- durch Delphi-Tags ersetzt

Klabautermann · Verfasst: Mi 24.07.02 14:04

Hi,

eine weitere möglichkeit sind Aufzählungstypen:

markieren

Delphi-Quelltext

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

Type
  tKarten = (Karo, Kreuz, Piek, Herz);
Var
  Farbe : tKarten;
BEGIN
  Farbe := Kreuz;
[...]

Gruß
Klabautermann

Moderiert von Klabautermann: Code- durch Delphi-Tags ersetzt

Yogu · Verfasst: Mo 30.07.07 18:57

Hihi, vor 5 Jahren minus 6 Tage stellte user profile icon

Fabian die Frage, und ich möchte heute auch noch eine Lösung schreiben, vielleicht für andere, die sich diese Frage auch stellen:

type TRange = 3..6; definiert einen Typ, der Werte zwischen 3 und 6 aufnehmen kann

type TFileAttribute = (faReadOnly, faHidden, faSystem, faArchive); definiert einen Typ, der die Werte faReadOnly, faHidden, faSystem, faArchive aufnehmen kann

type TFileAttributes = set of TFileAttribute; definiert einen Typ, bei dem die einzelnen Werte faReadOnly, faHidden, faSystem, faArchive entweder aktiviert oder deaktiviert sein können.

type TText = String; definiert einen Typ, der genau dem Typ String gleicht.

Weitere Typen sind Records und Klassen:

markieren

Delphi-Quelltext

1:
2:
3:
4:

type TItem = record
  Name: String;
  Value: String;
end;

markieren

Delphi-Quelltext

1:
2:
3:
4:

type TRectange = class
  Rect: TRect;
  procedure Draw;
end;

Records können nur Eigenschaften enthalten, Klassen dagegen auch Methoden.

BenBE · Verfasst: Mo 30.07.07 19:37

Du hast noch einen kleinen Sonderfall vergessen:

markieren

Delphi-Quelltext

1:	type TAlmostButNotQuiteEntirelyUnlikeInteger = type Integer;

defines a type that is almost, but not quite, entirely unlike Integer.

Spaß bei Seite. Wenn man hinter dem =-Zeichen noch einmal Type schreibt erzeugt man eine Kopie eines bereits definierten Typen, für den explizite, vom Original-Typ unabhängige Typ-Informationen generiert werden, was dazu führt, dass die beiden Typen sich zwar gleich verhalten und auch zuweisungskompatibel bleiben, jedoch von der RTTI als zwei vollkommen unterschiedliche Typen zur Laufzeit behandelt werden. Eines der bekanntesten Beispiele für solch eine Definition ist der Typ TDateTime, der als Type TDateTime = Type Double; (D7) definiert ist (in System.pas).

Auch sollte hier der Vollständigkeit mal noch auf die Schlüsselwörter Object, Interface, DispInterface usw. hingewiesen werden ;-)

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

Yogu · Verfasst: Mo 30.07.07 19:59

Ich glaube, das gibt es in D3 nicht. Habs auf jeden Fall noch nicht gesehen.

BenBe, was ist mit deinem Delphi-BB-Codes? Die haben heute einen schlechten Tag...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme