Entwickler-Ecke :: Thema anzeigen - button schriftwechsel, programm pausieren

Cracker - Fr 23.08.02 17:51
Titel: button schriftwechsel, programm pausieren

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 - Fr 23.08.02 19:24

Versuchs mal so:

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

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!