komponenten erzeugen

[der t0r]

hab mir in der delphi hilfe mal create angekuckt aber irgendwie blick ich da noch nicht durch :wall: hätte einer mal n beispiel parat? ich will 21 labels hinternander erzeugen (for-schleife?!?!)und die dann in 3 arrays ordnen.. help me plz ^^

[bttb930]

versteh ich die frage richtig? wenn ja, dann machs doch so:

Delphi-Quellcode:

var
  arr: array[0..2, 0..6] of TLabel;
  i, j: Integer:
begin
  for i := 0 to 2 do
    for j := 0 to 6 do
      arr[i, j] := TLabel.Create;
  ......
end;

Aber was willst Du jetzt damit machen?

[der t0r]

ich will n kartentrick programmieren.. dafür brauch ich aber nun 21 karten, die ich in drei arrays ordnen muss.. am ende kann dir dann der pc sagen welche dieser 21 karten du dir ausgesucht hast :D

[der t0r]

mir ist aufgefallen mit éinem mehrdimensionalen array geht des glaub ich nicht weil ich die drei arrays einzeln bewegen können muss.. am besten sag ich eben den kartentrick...du legst 3 mal 7 karten hin lässt den partner eine aussuchen(nich wegnehmn nur merken), dann fragst du welche reihe, nimmst alle drei reihen und nimmst sie wieder auf um neu auszuteilen, wobei die betroffene riehe immer die mitllere in deinem enstehenden stapel sein muss.. (hier das prob) dann legst du wieder 3 mal 7 hin.. nach 3 mal ist die von obern gezählt 11 karte IMMER die, die dein partner sich ausgesucht hat... kommt echt gut an wenn du ihn richtig inszenierst ^^

[vlees91]

soll ich jetzt sagen, wie das geht oder was meinst du damit

wenn ja:

so müsste es gehen:

Code:

procedure TForm1.Create(...);
var Karten1:array[1..7] of TLabel;
    a,b:Integer;
begin
  fo a:=1 to 3 do
    for b:=1 to 7 do
    begin
      if a:=1 then
        Karten1[b] := TLabel.Create(Form1);
//      elseif a:=2 then
//        Karten2[b] := TLabel.Create(Form1)
//      elseif a:=3 then
//        Karten3[b] := TLabel.Create(Form1);
      with Karten1[b] do begin
        Parent := Form1;
        Height := 32;
        Width := 128;
        Caption := 'Label';
        Left := 50;
        Top := 50;
      end;
    end;
end;

[vlees91]

den trick kenn ich auch

[der t0r]

hm.. schön und gut aber irgednwie sind die nicht auf der form sichtbar... !?!?!

[der t0r]

k hat sich erledigt danke