Eigenes Objekt mit Random

joky · Hält's aus hier Beiträge: 9

Hi!!

Ich versuch mich grad weiter in die Tiefe von Delphi zu lesen.
Was ich nicht ganz hinkriege ist, wie ich einen Kronstructor basteln kann der das Random zwischen den Zahlen 1- 50 beinhaltet.
Was ich auch probier, es kommt nur Schrott raus??

Kann mir wer erklären, wie ich das am Besten angehen kann??

lg Tina

Udontknow · Beiträge: 2596 Win7 D2006 WIN32, .NET (C#)

Hallo.

Du hast da wohl was falsch verstanden. Ein Konstruktor ist die Methode, mit der ein Objekt initialisiert wird. Die Vorlage zu jedem Objekt ist die Klasse. In einer Klasse können z.B. mehrere Variablen definiert werden, und diese können in einem Konstruktor mit verschiedenen Werten belegt werden. Stichwörter sind OOP, Objektorientierte Programmierung.

Um zufällig Zahlen zu generieren, musst du aber keine Klassen oder Objekte nutzen:

markieren

Delphi-Quelltext

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

procedure Form1.Button1Click(Sender:TObject);
var i:integer;
begin
  i:=Random(10);
  ShowMessage(IntToStr(10));
end;

Cu,
Udontknow

joky · Hält's aus hier Beiträge: 9

Die Syntax die du geschrieben hast hab ich schon, das Programm funktioniert auch einwandfrei.
Was ich brauche ist, ich hab ein Programm, wo der Teil den du geschrieben hast mind 3 mal vorkommt. Da ich grad beim ausprobieren mit dem Delphi bin, soll ich zur Übung den kleinen Teil als Klasse machen, damit ich es danach nur mehr aufrufen brauch und nur 1 mal geschrieben habe.

lg Tina

fidionael · Verfasst: Fr 16.06.06 16:12

Öhm, ich bin mir nicht sicher ob ich weiß, was du meinst. Vielleicht sowas?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

interface

type
  TZufall = class(TObject)
  private
    zahl: Integer;
  public
    constructor Create;
    property Zufallszahl: Integer read zahl;
  end;

implementation

constructor TZufall.Create;
begin
  zahl:=Random(10);
end;

initialization
  Randomize;

Ich würde allerdings niemals auf die Idee kommen, Klassen wegen sowas zu misbrauchen

Für solche Anwendung gibt es ja schließlich die for-Schleife:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

var Zahl: Array[1..100] of Integer;
    i: Integer;
begin
  for i:=1 to 100 do Zahl[i]:=Random(10);
end;

joky · Hält's aus hier Beiträge: 9

Danke passt!!

Die Sache diente nur als Übung, damit ich den Konstruktor ein bisschen kennenlerne!! Ich hab das Ganze eh schön mit Schleifen gelöst!!

lg Tina

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme