Forum: Object-Pascal / Delphi-Language
by fox67,
21. Mär 2013
Das mit dem array funktioniert nicht so recht. Jetzt habe ich das mal mit einer TObjectlist probiert. Eigentlich sollte ich den ganzen code nochmal neuschreiben oder zumindest anpassen aber da ich mir nicht sicher bin ob des so klappt probiere ich es erst mal so.
procedure THaupt.findelinie;
var
x,x2 : TObjectlist;
i,j,tmp : integer;
test : TBlock;
weiter,start : Boolean;
begin
Forum: Object-Pascal / Delphi-Language
by fox67,
6. Mär 2013
Das hört sich zwar deutlich einfacher an aber dann müsste einen großteil neumachen
Forum: Object-Pascal / Delphi-Language
by fox67,
6. Mär 2013
Ja des mag sein aber mein Problem löst es leider nicht.
Forum: Object-Pascal / Delphi-Language
by fox67,
6. Mär 2013
Warum denn nicht irgent wie muss doch auf das Formular gezeichnet werden
Forum: Object-Pascal / Delphi-Language
by fox67,
6. Mär 2013
Auf form2.canvas wird nie zugegriffen. Nur auf form2.spielfeld.canvas
Spielfeld ist ein TImage
Forum: Object-Pascal / Delphi-Language
by fox67,
5. Mär 2013
In was soll ich es den Strukturiren die eine Procedure lädt erst die array in eine Stringlist dann wird nach einer reihe gesucht. Wenn gefunden dann werden die Positionen in der Stringlist getauscht so dass man sie anschließend einfach löschen kann. Dann löscht die zweite procedure das array und erzeugt es anschließend neu aus der stringlist.
Forum: Object-Pascal / Delphi-Language
by fox67,
5. Mär 2013
procedure THaupt.findelinie;
var
i,j,k,max,anzahl : integer;
temp : array of integer;
begin
gfblock.Clear;
max := 0;
anzahl := 0;
for i := 1 to high(Block) do
Forum: Object-Pascal / Delphi-Language
by fox67,
21. Feb 2013
Tja und leider auch wieder Probleme. Aber wieder ein Denkfehler beim drehen von winkelrechts.
Ich hab das spiel jetzt so um geschrieben das man zum testen nur die Nummer des jeweiligen steins eingeben muss damit es erscheint.
Für die Verbessrungsvorschläge von Thommas hatte ich bis jetzt noch keine Zeit
Winkelrechts = 3
Forum: Object-Pascal / Delphi-Language
by fox67,
21. Feb 2013
Mein Projekt macht Fortschritte :)
http://up.picr.de/13537678nq.jpg
Forum: Object-Pascal / Delphi-Language
by fox67,
16. Feb 2013
Vielen Dank. Es funktioniert zwar noch nicht 100% aber das krieg ich noch hin
Forum: Object-Pascal / Delphi-Language
by fox67,
16. Feb 2013
Ja deine Berbesserungsvorschläge hab ich noch nicht umgestetzt da ich erst mal das gröbst zum laufen bringen wollte und dann mir den Code noch einmal anschauen und verbessern.
Forum: Object-Pascal / Delphi-Language
by fox67,
16. Feb 2013
Hallo
Es ist wieder ein Problem erschienn aber diesmal liegt es an mir ich erkenne den Felher nicht
procedure THaupt.Neufallen;
var
i :integer;
kannbewegen : boolean;
begin
Form2.Spielfeld.Canvas.Brush.Color := clwhite;
Forum: Object-Pascal / Delphi-Language
by fox67,
14. Feb 2013
Hallo,
Jetzt hab ich ein neues sehr seltsames Problem. Delphi erkenn die Pfeiltasten nicht als eingabe unter onkeydown? Keypreview habe ich auf true gestetzt. Die Leertast nimmt delphi allerdings als Eingabe sehr komisch ihn meinen anderen Programmen funktioniert das Problemlos.
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
showmessage('nimmt...
Forum: Object-Pascal / Delphi-Language
by fox67,
14. Feb 2013
Ja ich werde bei jedem Stein überprüfen ob unter ihm keiner ist und erst dann die Position um eins nach unten ändern.
Gruß Arni
Forum: Object-Pascal / Delphi-Language
by fox67,
14. Feb 2013
Hi Thomas,
ich kann mir gut vorstellen das es bei jedem Delphiprogrammierer die Nackenhaareaufstellt wenn er meinen Code sieht :P. Das liegt hauptsälich daran, dass ich(bis jetzt) Delphi nie wirklich gelernt habe sonder alles mir selber beigbracht durch ausprobieren im Internet suchen oder hier im Forum gefragt hab. Aber immer nur das was ich gerade gebraucht hat. Das merkt man bestimm. :-D...