Forum: Sonstige Fragen zu Delphi
Delphi
by Chrissi91,
16. Jan 2006
Beim 1. Tippenwird am Ende c zugewiesen. Beim 2. Tippen ist es doch immer noch zugewiesen, oder etwa nicht?
Im 1.Beitrag habe ich geschrieben wo der fehler ist. In allen anderen Beiträgen habe ich auch erwähnt, dass der Fehler immer noch der Gleiche ist.
Forum: Sonstige Fragen zu Delphi
Delphi
by Chrissi91,
16. Jan 2006
Sehe ich ein. Ich würde ja von FindComponent absehen, wenn es erstmal funktionieren würde. Ich gebe nicht so leicht auf, auch wenns net klappt. ich habe ja noch ein paar jahre zu leben, um den fehler zu finden. :-D
Forum: Sonstige Fragen zu Delphi
Delphi
by Chrissi91,
16. Jan 2006
Ups, danke, habe ich übersehen. :lol:
Versuch ich mal. ^^
Aber warum brauch ich eine Zwischenablage? Es sieht doch so ganz logisch aus...
P.S.:
Ich glaube ich erhänge mich gleich.
Forum: Sonstige Fragen zu Delphi
Delphi
by Chrissi91,
16. Jan 2006
Ich glaube ich bin zu blöd dazu. :gruebel:
for i:= 1 to 6 do
begin
Getippte_Zahlen:=Lottozahlen;
c := FindComponent('label'+inttostr(lottozahlen));
if Assigned(c) then
begin
TLabel(FindComponent('label'+inttostr(lottozahlen))).Font.color:=clred;
Forum: Sonstige Fragen zu Delphi
Delphi
by Chrissi91,
16. Jan 2006
Tatsache. Sie sind ale 0, aber warum?
Die Getippten_Zahlen sind im 2.Durchgang alle 0. Dabei schreibe ich doch in die Procedure beim 1.Durchlauf:
for i:= 1 to 6 do
begin
Getippte_Zahlen:=Lottozahlen;
TLabel(FindComponent('label'+inttostr(lottozahlen))).Font.color:=clred;
TLabel(FindComponent('label'+inttostr(lottozahlen))).Font.size:=18;
Forum: Sonstige Fragen zu Delphi
Delphi
by Chrissi91,
16. Jan 2006
Hi :hi:,
ich bin gerade dabei, ein eigentlich simples LottoTippProgramm zu schreiben. Allerdings hat es so seine Macken.
var
frmMain: TfrmMain;
lottozahlen: array of integer;
durchlaeufe: integer;