Forum: Object-Pascal / Delphi-Language
Delphi
by Maya,
16. Jun 2011
Die Idee, Höhe und Breite anzugeben, finde ich trotzdem gut und werde sie umsetzten. ;)
Forum: Object-Pascal / Delphi-Language
Delphi
by Maya,
16. Jun 2011
Dachte ich mir auch schon und hab deswegen das hier gebastelt.
procedure TForm1.bbtn_ErzeugenClick(Sender: TObject);
var Anzahl, i, j, k: Integer;
Ergebnis: real;
Help: String;
begin
if (lbledt_Anzahl.Text='') then Showmessage('Bitte geben Sie eine Zahl ein!')
Forum: Object-Pascal / Delphi-Language
Delphi
by Maya,
16. Jun 2011
Mh, bei 20 könnte man ja auch 2x10 rechnen. Deswegen ist es mMn nicht einfach nur 'ne simple Division. Wie sag ich dem also, dass ich lieber 4x5 haben möchte, anstatt 2x10? Ich glaube, das meinst du auch da mit dem Faktor, oder verstehe ich das jetzt falsch?
Forum: Object-Pascal / Delphi-Language
Delphi
by Maya,
16. Jun 2011
So, ich stoße mal wieder an meine Grenzen.
Problem, ich möchte dynamisch viele Edit-Felder erzeugen, um das Gitternetz herzustellen. Das Erzeugen an sich ist nicht das Problem, aber der Nutzer soll über ein Edit-Feld eingeben, wieviele Zellen er haben möchte. Wenn also der Spieler jetzt sagt, er möchte 25 Zellen, würde man ja ein 5x5-Feld basteln. Aber wenn er jetzt z.B. 20 Zellen möchte,...
Forum: Object-Pascal / Delphi-Language
Delphi
by Maya,
15. Jun 2011
Ich lese in ein Array (Zellen) die ganzen Informationen ein, also ob das Feld schwarz ist (also lebt) oder weiß ist (tot).
Danach lese ich in der Funktion ja aus, wie viele Nachbarn die Zelle hat, das speichere ich in der Temp-Variable. D.h. das Array nutze ich eigentlich nur, um zu speichern, ob die Zelle lebendig ist oder nicht und am Ende um es immer wieder auszulesen.
Forum: Object-Pascal / Delphi-Language
Delphi
by Maya,
15. Jun 2011
Das dachte ich mir schon, als ich den Hinweis von DeddyH las.
Ich hab deswegen die Funktion jetzt wie folgt umgebaut.
function GameOfLife(x,y: Integer): Integer;
var Temp: Integer;
begin
Temp:=0;
if (x>1) and (y>1) and (Zellen=1) then Temp:=Temp+1;
if (y>1) and (Zellen=1) then Temp:=Temp+1;
Forum: Object-Pascal / Delphi-Language
Delphi
by Maya,
15. Jun 2011
*Head meets desk* Natürlich!
Danke für die schnelle Antwort! *Stirn mit der Hand reib*
Forum: Object-Pascal / Delphi-Language
Delphi
by Maya,
15. Jun 2011
Hallo ihr Lieben,
da ich kein neues Topic aufmachen wollte und fand, dass das bisher besprochene hier ganz gut zu meinen Problem passt, dachte ich mir, ich nutze einfach mal den Thread hier.
Wie ihr euch sicherlich denken könnt, bastel ich mir gerade mein eigenes GoL zusammen. Es gelten bei mir die typischen 23/3-Regeln, bei dem die Ränder grundsätzlich tot sein sollen.
Damit ich mich...