Entwickler-Ecke
Sonstiges (Delphi) - währungsumrechner!!
A_Checker - Di 16.03.10 17:34
Titel: währungsumrechner!!
Hallöchen,
ich hab ein umrechner programmiert, doch leider funktioniert der nicht so ganz...
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:
| procedure TForm1.Button1Click(Sender: TObject);
Var n:real;
begin
n:= strtofloat(edit1.text);
case RadioGroup1.ItemIndex of
0: Label2.Caption := '1 Euro = 1.486 Dollar';
Label3.Caption := floattostr(n*1.486);
1: Label2.Caption := '1 Euro = 0.9069 Britische Pfund' ;
Label3.Caption := floattostr(n*0.9069);
2: Label2.Caption := '1 Euro = 7.257 Kroatische Kuna';
Label3.Caption := floattostr(n*7.257);
3: Label2.Caption := '1 Euro = 10.13 Südafrikanische Rand';
Label3.Caption := floattostr(n*10.13);
end;
end;
end. |
Narses - Di 16.03.10 17:44
Moin!
Und was ist jetzt dein Problem? :gruebel: Der erste Schritt zu einer Lösung sollte wohl eine angemessene Fehlerbeschreibung sein. :nixweiss:
cu
Narses
Marc. - Di 16.03.10 17:56
Jupp. Man sieht allerdings bereits, dass der Compiler mindestens Constant expression expected auf Grund fehlender begin und end; Blöcke anmerken wird. ;)
SvenAbeln - Di 16.03.10 17:56
Das kann so doch auch gar nicht funktionieren, der Dollar Kurs stimmt nicht :wink:
Außerdem solltest du noch mindestens 4 mal begin und end einbauen.
Niko S. - Di 16.03.10 17:58
Begin und End fehlen bei den Cases..
//Edit
da war wer schneller.
@ Narses
Du hast auch schonmal genauer hingeguckt ;D
Narses - Di 16.03.10 18:34
Moin!
 Niko S. hat folgendes geschrieben  : |
| Du hast auch schonmal genauer hingeguckt ;D |
Ich habe absichtlich nicht genauer hingeguckt, da ich bei so einer "Fehlerbeschreibung" erstmal davon ausgehe, dass der Fragesteller sich noch gar nicht damit beschäftigt hat, was da eigentlich passiert. :nixweiss: Da das aber grundlegend für das Verständnis eines Fehlers ist (wenn man nicht verstanden hat,
warum etwas falsch ist, wird man es nicht besser machen können), wollte ich so darauf hinweisen. :idea:
Abgesehen davon reagiere ich leicht allergisch auf "hier ist der Cot, läuft nicht"... :roll:
cu
Narses
A_Checker - So 21.03.10 14:16
super danke jetzt klappts!
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!