Servus, ich wollte das Spiel machen bei dem eine Farbenfolge erzeugt wird von z.b. 10 farben, die sich aus rot, gelbm, blau und grün zusammensetzen. die muss man dann sich merken und erraten.
Dazu bräuchte ich eine Folge von Zahlen in einem String, wenn rot war, soll eine 1 in die zahlenfolge, bei grün eine 2, bei blau eine 3 und bei gelb ne 4, sodass man am ende eine folge hat z.b. 1-4-3-4-1-2-2-1 für rot-gelb-blau-gelb usw.
Dazu hab ich eine function:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| function TForm1.Codewort:String;
var i, a: integer;
begin
for i:=1 to Level do
begin
Codewort:=Codewort+IntToStr(a);
test;
end;
end; |
test ist eine neue prozedur die mir Codewort in Edit2.Text ausgibt. Leider steht da nichts, also immer nur Edit2 oO
neeD help thX
Edit:
Eine wohl bessere Alternative ist das hier:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| procedure TForm1.MerkeFarben;
var a : string;
begin
if (SRot.Brush.Color=clred) then
a:='1';
if SGreen.Brush.Color=clgreen then
a:='2';
If SBlue.Brush.Color=clblue then
a:='3';
If SYellow.Brush.Color=clyellow then
a:='4';
a:=a+a;
Edit1.Text:=a
end; |
Jetz gibt er mir 33, 11, 22 oder 44 aus oO is ya klar warum, nur wie fix ich das? =)
thx 4 help ²
oder schreib doch 
.