Forum: Object-Pascal / Delphi-Language
Delphi
by P4CM4N,
21. Sep 2007
ja, jetzt funzt alle. Lag scheinbar nur an der 6 die eine 2 hätte sein mpssen.
Forum: Object-Pascal / Delphi-Language
Delphi
by P4CM4N,
21. Sep 2007
:wall: :wall:
scheiß Tippfehler
:wall: :wall:
Forum: Object-Pascal / Delphi-Language
Delphi
by P4CM4N,
21. Sep 2007
Ich habs jetzt wirklich GENAU so übernommen.
procedure TForm1.Button1Click(Sender: TObject);
var zahl1:tzahl;
var c,super1,speicher,d:integer;
var changed:boolean;
begin
Lotto(zahl1,super1); //Ausgabe
Forum: Object-Pascal / Delphi-Language
Delphi
by P4CM4N,
21. Sep 2007
Nach wie vor die vom Anfang. Die Geschwindigkeit ist bei mir nicht so wichtig. Ich habe eh nur 6 Werte.
Forum: Object-Pascal / Delphi-Language
Delphi
by P4CM4N,
21. Sep 2007
Ich komm einfach nicht drauf. Was fehlt in meiner Prozedur, damit es funzt?
Forum: Object-Pascal / Delphi-Language
Delphi
by P4CM4N,
21. Sep 2007
Eine Sache verstehe ich an deinem Code nicht, und zwar diese Zeile:
For i := 0 To Length(a) - 2 do
was bewirkt die genau?
Forum: Object-Pascal / Delphi-Language
Delphi
by P4CM4N,
21. Sep 2007
Also bis jetzt hab ich folgendes:
procedure Swapvalues(var x,y: integer);
var
dummy: integer;
begin
dummy:=x;
x:=y;
y:= dummy;
end;