Einzelnen Beitrag anzeigen

Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: Hänge bei units und umsetzung fest

  Alt 5. Feb 2008, 11:35
Hallo,

was machst du denn da?
Delphi-Quellcode:
procedure Tfenster_frm.limit_radiobtnClick(Sender: TObject);
var
   limit : integer;
begin
  IF limit_radiobtn.Checked = true THEN
  limit := StrToInt(limit_edt.Text);{wenn der Code hier nicht ausgeführt wurde dann
  ist die Variable 'limit' möglicherweise nicht initialisiert worden}
 

        IF limit = punkte_2 THEN
        ShowMessage('Winner ist (game2_edt.Text)')
        ELSE

            IF limit = punkte_1 THEN
            ShowMessage('Winner ist (game1_edt.Text)')
            ELSE
            END;//<-- hier ist die Prozedur schon zu Ende
  Else.//was soll denn der Punkt hier bringen?
  END;
  limit := 0;


end.
Gruß bitsetter
"Viele Wege führen nach Rom"
Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
  Mit Zitat antworten Zitat