| Autor |
Beitrag |
Daniel07A
Beiträge: 36
XP
D7 Enterprise
|
Verfasst: Do 13.01.05 22:02
Hi,
Schon mein 2. Thema heute. Also folgendes Problem. Ich habe eine Rechnung und wenn ich auf Berechnen klicke und in dem EDT_Ergebnis Feld das richtige Ergebnis erscheint, soll in dem daneben sich befindenden Label (LBL_Ergebnis) ein Text erscheinen. Z.B. "Super, sie haben das richtige Ergebnis". Das gleiche natürlich auch wenn das Ergebnis falsch ist. Dann kommt der Text z.B. "Pech gehabt, leider falsch".
Wie sieht dafür ein Code aus ?Mal schauen wer bis morgen die einfachste Lösung gepostet hat 
Gruß Daniel Moderiert von  UGrohne: Topic aus Sonstiges verschoben am Mo 17.01.2005 um 13:30
|
|
Gausi
Beiträge: 8554
Erhaltene Danke: 481
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: Do 13.01.05 22:35
  Delphi-Quelltext
1:
2:
3:
4:
5:
| if berechnetesErgebnis=StrToInt(EDT_Ergebnis) then
LBL_Ergebnis.Caption:='Richtig'
else
LBL_Ergebnis.Caption:='Falsch' | _________________ We are, we were and will not be.
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Do 13.01.05 22:53
|
|
Daniel07A 
Beiträge: 36
XP
D7 Enterprise
|
Verfasst: Do 13.01.05 22:59
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.Button1Click(Sender: TObject);
const
RightWrong: array[Boolean] of String = ('falsch', 'richtig'); begin
Caption := RightWrong[Edit1.Text = 'Edit1'];
end; |
Wo muss ich diesen Code denn einfügen ? Beim Label irgendwo?
|
|
Aya
Beiträge: 1964
Erhaltene Danke: 15
MacOSX 10.6.7
Xcode / C++
|
Verfasst: Do 13.01.05 23:01
Hi,
noch kürzer geht es wenn du die "StrUtils" Unit mit einbindest 
Delphi-Quelltext
1:
| Caption:=IfThen(Edit1.Text = 'Edit1', 'Richtig', 'Falsch'); |
Au'revoir,
Aya~ _________________ Aya
I aim for my endless dreams and I know they will come true!
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Do 13.01.05 23:03
| Daniel07A hat folgendes geschrieben: | Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.Button1Click(Sender: TObject);
const
RightWrong: array[Boolean] of String = ('falsch', 'richtig'); begin
Caption := RightWrong[Edit1.Text = 'Edit1'];
end; |
Wo muss ich diesen Code denn einfügen ? Beim Label irgendwo? |
Na da wo es überprüft werden soll logischerweise.
|
|
grayfox
Beiträge: 800
win98, winXP
D4 Standard; D6 Personal
|
Verfasst: Do 13.01.05 23:04
der code von luckie bzw gausi gehört in jene procedure, in welcher du den text aus deinem ersten beitrag stehen hast. deinen löscht du natürlich heraus.
ob sich dort ein label 'irgendwo' befindet, kann ich leider von hier aus nicht erkennen
mfg, stefan
//edit: zu langsam....
Zuletzt bearbeitet von grayfox am Mo 17.01.05 12:18, insgesamt 1-mal bearbeitet
|
|
Daniel07A
Beiträge: 36
XP
D7 Enterprise
|
Verfasst: Fr 14.01.05 20:46
ok, ich versteh noch nicht ganz wo ich das einfügen soll. ich habe hier die rechnung mit der ich das ergebnis berechnen will. wo muss ich das dort einfügen?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
| procedure TFRM_Euro.BTN_BerechnenClick(Sender: TObject);
var
z1, z2, z3, z4, z5, z6, z7, z8, z9, z10, z11, z12 : longint;
quer : integer;
pz : integer;
begin
quer := 0;
z1 := StrToInt (LBL_Land.Caption);
z2 := StrToInt (EDT_Z2.Text);
z3 := StrToInt (EDT_Z3.Text);
z4 := StrToInt (EDT_Z4.Text);
z5 := StrToInt (EDT_Z5.Text);
z6 := StrToInt (EDT_Z6.Text);
z7 := StrToInt (EDT_Z7.Text);
z8 := StrToInt (EDT_Z8.Text);
z9 := StrToInt (EDT_Z9.Text);
z10 := StrToInt (EDT_Z10.Text);
z11 := StrToInt (EDT_Z11.Text);
z12 := StrToInt (EDT_Z12.Text);
pz := (z1+z2+z3+z4+z5+z6+z7+z8+z9+z10+z11+z12);
repeat
quer := quer + pz mod 10;
pz := pz div 10;
until pz = 0;
EDT_Ausgabe.Text := IntToStr (quer);
end; |
Wenn ich einen BitButton wird diese Rechnung ausgeführt.
|
|
Red Eye
Beiträge: 26
Win XP
D7
|
Verfasst: Sa 15.01.05 12:59
Genau die selbe Frage habe ich auch. Ich habe das ma so ausprobiert, wie ihr es bisher aufgeschrieben habt, aber bei mir funtz, bzw. ich kapiere es net. Vllt geht das ja ma für komplette anfänger !?!
|
|
Tino
Beiträge: 9839
Erhaltene Danke: 45
Windows 8.1
Delphi XE4
|
Verfasst: Mo 17.01.05 08:57
| Daniel07A hat folgendes geschrieben: | | ok, ich versteh noch nicht ganz wo ich das einfügen soll. |
Am besten dort wo du der Edit-Komponente eine Text zuweist. Also nach
Delphi-Quelltext
1:
| EDT_Ausgabe.Text := IntToStr (quer); |
dieser Zeile.
Gruß
Tino
|
|
Daniel07A
Beiträge: 36
XP
D7 Enterprise
|
Verfasst: Mo 17.01.05 14:51
ok thx, hab es hinbekommen. Danke an alle die daran beteiligt waren !
|
|
