Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Michelle,
23. Apr 2011
Wow, ihr habt meine über 100 Zeilen gerade auf 5 reduziert :) Ich muss wohl noch eine Menge lernen, wenn es ums Programmieren geht! Vielen, vielen Dank nochmal für eure kompetente, schnelle und freundliche Hilfe!!!
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Michelle,
23. Apr 2011
Wow, super Tipp, vielen Dank! Davon habe ich noch nie gehört, aber das ist wirklich eine viel bessere Lösung!!
Denkst du, man kann aus dem Rest auch eine Schleife machen?
Star.PosX := StrToInt(MemoLoadPos.Lines);
Star.PosY := StrToInt(MemoLoadPos.Lines);
Star.PosX := StrToInt(MemoLoadPos.Lines);
Star.PosY := StrToInt(MemoLoadPos.Lines);
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Michelle,
23. Apr 2011
WAHNSINN - ES KLAPPT!!!!!! Vielen, vielen Dank für eure Hilfe!
Der Fehler lag wirklich bei dem Star.Create;. Stattdessen Star := TStar.Create und es funktioniert!!!
Ihr habt mein Ostern gerettet! 1000 Dank!!
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Michelle,
23. Apr 2011
type
TFormLvl = class(TForm)
{}
end;
TSpielfigur = class
{}
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Michelle,
23. Apr 2011
Ja, ist es. Zu dem Zeitpunkt stehen 22 verschiedene ganzzahlige Werte im MemoFeld.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Michelle,
23. Apr 2011
Aber ich will doch nur das Star.Create 20 mal wiederholen. Das andere tipp ich 20 mal ein, weil ich ja jedes einzelne Bild verschieben will und ich keinen Array of Image habe sondern nur 20 einzelne Bilder ImgStar1, ImgStar2, ... Außerdem verwirrt mich diese komische Zugriffsverletzung. Delphi hat irgendein Problem mit meinem TStar bzw. den Instanzen Star. Ich habe schon viel mit denen probiert...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Michelle,
23. Apr 2011
Das habe ich auch schon versucht. Ich rufe die Prozedure StarCreate in FormCreate auf
Ich habe eine Prozedur "FormCreate", während der ich die Prozedur StarCreate aufrufe. (In StarCreate macht er die Instanzen
procedure TFormLvl.StarCreate;
var i : integer;
begin
for i := 1 to 20 do Star.Create;
Star.PosX := ... //wie oben beschrieben
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Michelle,
23. Apr 2011
Das Memo-Feld hat 22 Zeilen. Vorher lade ich eine txt-Datei in das Memo-Feld, in dem die Positionen der Spielfigur und der Sterne stehen.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Michelle,
23. Apr 2011
Hallo!
Ich habe ein Problem. Ich programmiere gerade ein Spiel, in dem eine Spielfigur Sterne einsammeln muss. Für die Sterne habe ich eine Klasse aufgemacht: TStar.
TStar = class
Found : Boolean;
PosX, PosY : integer;
procedure Shine;