Autor Beitrag
wunsiedler
ontopic starontopic starhalf ontopic starofftopic starofftopic starofftopic starofftopic starofftopic star
Beiträge: 506
Erhaltene Danke: 4

Win7

BeitragVerfasst: Fr 22.10.04 14:22 
Hallo,

warum bringt der mir hier ne Fehlermeldung. Definiere eine class. In der class will ich ein Record und ein paar andere Variablen anlegen. Aber es geht nicht. Fehlermeldung bleibt gleich hinter dem record-TYPE stehen.
Hier mal der Code:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
// Klasse anlegen
Type TAdresse = class

  // Hier wird das Record angelegt
  type TDaten    : Record
   id            :               integer;
   Firma         :               string[50];
   Vorname       :               string[50];
   Nachname      :               string[50];
  end;

 daten           :               Tdaten;

End;

var Adresse : TAdresse;


Moderiert von user profile iconChristian S.: Code- durch Delphi-Tags ersetzt.
jasocul
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 6393
Erhaltene Danke: 147

Windows 7 + Windows 10
Sydney Prof + CE
BeitragVerfasst: Fr 22.10.04 14:28 
wunsiedler hat folgendes geschrieben:
Hallo,

warum bringt der mir hier ne Fehlermeldung. Definiere eine class. In der class will ich ein Record und ein paar andere Variablen anlegen. Aber es geht nicht. Fehlermeldung bleibt gleich hinter dem record-TYPE stehen.
Hier mal der Code:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
// Klasse anlegen
Type TAdresse = class

  // Hier wird das Record angelegt
  type TDaten    : Record
   id            :               integer;
   Firma         :               string[50];
   Vorname       :               string[50];
   Nachname      :               string[50];
  end;

 daten           :               Tdaten;

End;

var Adresse : TAdresse;



ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
// Klasse anlegen
Type
  TDaten    : Record
   id            :               integer;
   Firma         :               string[50];
   Vorname       :               string[50];
   Nachname      :               string[50];
  end;
TAdresse = class

 daten           :               Tdaten;

End;


So sollte es funzen

Moderiert von user profile iconChristian S.: Code- durch Delphi-Tags ersetzt.
wunsiedler Threadstarter
ontopic starontopic starhalf ontopic starofftopic starofftopic starofftopic starofftopic starofftopic star
Beiträge: 506
Erhaltene Danke: 4

Win7

BeitragVerfasst: Fr 22.10.04 14:35 
Man muss also das Record seperat definieren und dann in die Klasse einbinden, OK funktioniert. danke.