AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Array Of Record?

Ein Thema von cyberkiller0072001 · begonnen am 26. Feb 2004 · letzter Beitrag vom 26. Feb 2004
Antwort Antwort
cyberkiller0072001

Registriert seit: 5. Jan 2004
Ort: Netz
68 Beiträge
 
Delphi 5 Professional
 
#1

Array Of Record?

  Alt 26. Feb 2004, 18:15
Ich möchte in einer class(Tobject)
ein Array of TReason erstellen:

Delphi-Quellcode:
  TReason = record
   Targetx, targety, points: integer;
   why:(away, attack);
  end;
Aber dass will nicht...
Er würgte eine Klapperschlang' bis das ihr Klappern schlapper klang
  Mit Zitat antworten Zitat
Markus K.

Registriert seit: 26. Jan 2004
Ort: Halle
346 Beiträge
 
Delphi 2005 Personal
 
#2

Re: Array Of Record?

  Alt 26. Feb 2004, 18:21
Hallo cyberkiller0072001,
du kannst es ja mal folgend versuchen.

Delphi-Quellcode:
type TReason = Record
     ...
     end;

var Reason: Array[1..n] of TReason;
Hoffe das es funzt.

Tschüß Markus
  Mit Zitat antworten Zitat
cyberkiller0072001

Registriert seit: 5. Jan 2004
Ort: Netz
68 Beiträge
 
Delphi 5 Professional
 
#3

Re: Array Of Record?

  Alt 26. Feb 2004, 18:40
Irgendwie läuft hier gar nix:
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

  TReason = record
   Targetx, targety, points: integer;
   why:(aways, attacks);
  end;

  TFigurtyp =(K,D,S,L,T,B,E);
  TPlayercolor =(clwhite,clblack);


  TFigur = class(Tobject)
  private
    Fx: integer;
    Fcolor: TPlayercolor;
    Falive: boolean;
    FAengste: integer;
    Fy: integer;
    Fvalue: integer;
    Fkind: TFigurtyp;
    procedure Setx(const Value: integer);
    procedure SetAengste(const Value: integer);
    procedure Setalive(const Value: boolean);
    procedure Setcolor(const Value: TPlayercolor);
    procedure Setkind(const Value: TFigurtyp);
    procedure Setvalue(const Value: integer);
    procedure Sety(const Value: integer);
  private
  public
  TReasons:record
     Targetx, targety, points: integer;
     why:(away, attack);
    end;
    property color: TPlayercolor read Fcolor write Setcolor;
    property x: integer read Fx write Setx;
    property y:integer read Fy write Sety;
    property kind: TFigurtyp read Fkind write Setkind;
    property alive:boolean read Falive write Setalive;
    property Aengste: integer read FAengste write SetAengste;
    property value: integer read Fvalue write Setvalue;
    constructor create(aowner: tobject);//override;
  end;
 

var
  Form1: TForm1;
  Figuren: Array[0..64] of TFigur;
implementation

{$R *.DFM}

{ TFigur }

constructor TFigur.create(Aowner: Tobject);
begin
inherited create{(Aowner)};
end;

procedure TFigur.SetAengste(const Value: integer);
begin
  FAengste := Value;
end;

procedure TFigur.Setalive(const Value: boolean);
begin
  Falive := Value;
end;

procedure TFigur.Setcolor(const Value: Tplayercolor);
begin
  Fcolor := Value;
end;

procedure TFigur.Setkind(const Value: TFigurtyp);
begin
  Fkind := Value;
end;

procedure TFigur.Setvalue(const Value: integer);
begin
  Fvalue := Value;
end;



procedure TFigur.Setx(const Value: integer);
begin
  Fx := Value;
end;

procedure TFigur.Sety(const Value: integer);
begin
  Fy := Value;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin

for i:=0 to 31 do figuren[i].create(form1);
showmessage(inttostr(i));
end;

end.
Weiß irgendjemand warum ich immer ne Fehlermeldung bekomme, wenn ich eine Figur erzeugen will...?
Vielen Dank im vorraus! Gruß Daniel
Er würgte eine Klapperschlang' bis das ihr Klappern schlapper klang
  Mit Zitat antworten Zitat
Markus K.

Registriert seit: 26. Jan 2004
Ort: Halle
346 Beiträge
 
Delphi 2005 Personal
 
#4

Re: Array Of Record?

  Alt 26. Feb 2004, 18:47
Was kommt denn für Fehlermeldung?
  Mit Zitat antworten Zitat
Benutzerbild von Jens Schumann
Jens Schumann

Registriert seit: 27. Apr 2003
Ort: Bad Honnef
1.644 Beiträge
 
Delphi 2009 Professional
 
#5

Re: Array Of Record?

  Alt 26. Feb 2004, 18:54
Zitat von cyberkiller0072001:
Irgendwie läuft hier gar nix:
Delphi-Quellcode:
...
  public
  TReasons:record
     Targetx, targety, points: integer;
     why:(away, attack);
    end;
    property color: TPlayercolor read Fcolor write Setcolor;
    property x: integer read Fx write Setx;
    property y:integer read Fy write Sety;
    property kind: TFigurtyp read Fkind write Setkind;
...
Warum steht da eine Typendeklaration mitten in einer Klassendeklaration ??
Mich wundert, dass D7 keinen Fehler meldet.

Zitat von cyberkiller0072001:
Irgendwie läuft hier gar nix:
Delphi-Quellcode:
    property Aengste: integer read FAengste write SetAengste;
    property value: integer read Fvalue write Setvalue;
    constructor create(aowner: tobject);//override;
  end;
...
constructoren, destructoren und methoden sollten vor den properties stehen.
Zitat von cyberkiller0072001:
Irgendwie läuft hier gar nix:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin

for i:=0 to 31 do
  begin
  figuren[i]:=TFigur.create(form1); // Hier war Dein Fehler
  showmessage(inttostr(i));
  end
end;

end.
...
I come from outer space to save the human race
  Mit Zitat antworten Zitat
cyberkiller0072001

Registriert seit: 5. Jan 2004
Ort: Netz
68 Beiträge
 
Delphi 5 Professional
 
#6

Re: Array Of Record?

  Alt 26. Feb 2004, 19:23
Is ja schon mal nicht schlecht...hab gestern erst mal mit klassen angefangen aber hierfür brauch ich die halt! Vielen Dank
Er würgte eine Klapperschlang' bis das ihr Klappern schlapper klang
  Mit Zitat antworten Zitat
cyberkiller0072001

Registriert seit: 5. Jan 2004
Ort: Netz
68 Beiträge
 
Delphi 5 Professional
 
#7

Re: Array Of Record?

  Alt 26. Feb 2004, 19:32
property Willweg: Array of TReason; bringt mir aber immer nur ein
Zitat:
[Fehler] [Fehler] Unit1.pas(45): Bezeichner erwartet, aber 'ARRAY' gefunden
sonst nix... wie soll das sonst gehen?
Er würgte eine Klapperschlang' bis das ihr Klappern schlapper klang
  Mit Zitat antworten Zitat
Benutzerbild von Jens Schumann
Jens Schumann

Registriert seit: 27. Apr 2003
Ort: Bad Honnef
1.644 Beiträge
 
Delphi 2009 Professional
 
#8

Re: Array Of Record?

  Alt 26. Feb 2004, 19:35
Hallo cyberkiller0072001
such mal in der OH nach dem Stichwort Array Eigenschaften
I come from outer space to save the human race
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:52 Uhr.
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