button schriftwechsel, programm pausieren

Cracker · Hält's aus hier Beiträge: 7

Hi ich habe ein problem

In informatik sollen wir mit delphie ein rechen trainer baune

wollte wenn es geht alles mit einen button machen

als erstes soll er mir 2 zahlen rauswerfen, das ist ja noch einfach

nun soll das programm stoppen und wenn man wider auf den button klickt soll er das eingegebne ergebnis vergleichen

so nur wie ist:
1. die syntax für stop und mach dann bei klick weiter
2. kann ich wenn er bei pause angekommen ist, die button aufschrift verändern lassen?

Renegade · Beiträge: 358 Win XP Pro, Win 7 Beta BDS 2006

Versuchs mal so:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure btn1.click(sender:tObject);
begin
  if edit1.text='' then
    begin
      Label1.Caption:=//irgendeine Zahl(in String konvert.wenns sein muß);
      Label2.Caption:=//irgendeine Zahl(in String konvert.wenns sein muß);
    end
  else
    begin
      If StrToInt(Edit1.Text)=StrToInt(Label1.Caption)+StrToInt(Label2.Caption) then
      begin
         ShowMessage('Richtig');
         Edit1.Text:='';
      end;
    end;
end;

Mußt das ganze natürlich noch ein bichen ausbauen - vorallem weil o.g. Beispiel nur mit Ganzzahlen arbeitet.

Gruß Renegade

_________________
Sokrates (468 v.Chr. - 399 v.Chr.)
"Es ist keine Schande, nichts zu wissen, wohl aber, nichts lernen zu wollen."

Cracker · Hält's aus hier Beiträge: 7

danke!!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme