Code:
procedure TForm1.Nachlegen(Zahl:integer);
var i:integer;
name, name2: string;
begin
for i:=Zahl+1 to 14 do begin
Name := 'S1K' + inttostr(i-1); //S1K und dann noch eine Zahl ist der Name der Karte , auf Deutsch
Name2 := 'S1K' + inttostr(i); // S für Spieler 1 für SPieler1 K für Karte und die Zahl dahinter für die Nummer
......
......
......
end;
end;
Es handelt sich bei meinem Spiel um ein Kartenspiel.
Diese Procedure ist von mir selber verfasst sie soll dafür sorgen dann wenn eine Karte aus der Hand verschwindet die Karten Rechtsdavon alle ein Feld sozusagen nach links rutschen.
Das ganze habe ich mir so vorgestellt das ich es mti einer for schleife mache da durch die procedure ja die Variable Zahl mit rein kommt(dabei handelt es sich um die entfernte nummer der Karte) Sollten nur ja alle anderen Nummern der Karten erreichbar sein.
Name steht somit für die Karte wo die Karte von Name2 hinsoll.
und des was etz in Name steht ist der name von dem Bild sozusagen.
Etz die Frage wie kann ich es machen das der Compilier etz versteht wenn ich schreib
Name.Picture, dass damit der Inhalt von Name gemeint ist?
Also:
zum Beispiel
S1K3.Picture für Name
und
S1K4.Picture für Name2
Zitat
Baum-Darstellung
