Jo, also delphi meckert komischerweise bei case of...was ich überhaupt nicht versteh...
also, ich hab mal so klein privat und ganz allein ein program geschrieben das die pq formel ausrechnet, so als übung.
mit dem rechnerischen gibts da auch kein problem, und ohne case of läuft das program auch, ach..ich zeig euch erstmal den source
Delphi-Quellcode:
private
{ Private-Deklarationen }
//Variabeln
P, Q, X1, X2, D : Real;
M : Integer;
//Procedures
procedure Pq;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Procedure TForm1.Pq;
//Eingabe und Abfrage von P, Q
begin
P:=StrtoFloat(EdP.text);
Q:=StrtoFloat(EdQ.text);
//Berechnung von "minus P halbe" und zuweisung von X1, X2
X1:=(P * -1) / 2;
X2:=(P * -1) / 2;
//Berechnung der Diskriminanten
D:=sqr(P / 2) - Q;
//If Abfrage zum verhindern von Abstürzen ( D < 0)
If D < 0 then
begin
Memo1.Lines.add('Die Gleichung besitzt keine Lösung');
end
else
//Ausrechnen von X1, X2
begin
X1:=X1 + sqrt(D);
X2:=X2 + sqrt(D);
end;
//Benutzen einer Marker Variabel für Antwortsatz
If D < 0 then
M:=1
else
begin
If D = 0 then
M:=2
else
M:=3;
end;
end;
//Case M of für Antwortsatz
Case M of
1 : Memo1.lines.add('Die Gleichung hat keine Lösung');
2 : Memo1.lines.add('Die Gleichung hat eine Lösung');
3 : Memo1.lines.add('Die Gleichung hat zwei Lösungen');
end
procedure TForm1.Button1Click(Sender: TObject);
begin
Pq;
end;
end.
also
wenn ich das case rauslasse geht das programm, auch wenns noch nich soweit ist was auszugeben, is auch inich von belang hier...aber sobald ich das case of reinschreib sagt der deklaration erwartet aber case gefunden...und hält genau hinter dem case an..?!?
naja, weiß nich was delphi von mir will..wisst ihrs?!?