PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : [Hilfe] 4 unterschied. Zahlen in einem Panel ausgeben


Phoenix9k
25.02.2002, 09:53
Hi, schreibe morgen ne Delphi Arbeit zu 99 % über das Thema MasterMind.

Dabei werden per Random Befehl 4 unterschiedliche Zahlen zwischen 0 und 10 erzeugt und in einem Panel ausgegeben...

Nun meine Frage: Wie mach ich das? Ich bekomme immer nur eine Zahl im Panel.

Hoffe jmd. kann mir da helfen.

MFG


Felix Kaiser
25.02.2002, 18:02
procedure VierZahlen(const Panel: TPanel);
var
i: integer;
s: string;
begin
s:= ´´;
for i:= 1 to 4 do begin
if i > 1 then s:= s+´, ´;
s:= s+IntToStr(Random(9)+1);
end;
Panel.Caption:= s;
end;


Mit dem Befehl bekommst du in ein Panel 4 Zahlen zwischen 0 und 10 mit Komma getrennt in ein Panel verfrachten. Jedoch könnt ich mir nicht auf anhieb vorstelln, welchem Zweck genau die Sache mit dem Panel jetzt dienen soll.