Das wollte ich damit nicht bezwecken. Die Hausaufgaben habe ich ja ansich schon fertig, doch mit den Fehlermeldungen komme ich nicht klar.
Delphi-Quellcode:
ADOQuery1.SQL.Add(mabfrage.Text);
If mabfrage.Text = '
'
then
MessageDlg ('
SQL Anweisung eingeben!',mtError,[mbOk],0)
else
//ADOQuery1.ExecSQL;
MAusgabe.Clear;
Ich möchte dann, dass das Programm dem Nutzer sagt, das er eine
SQL anweisung eingeben soll. Warum das Program dann abstürzt, wenn keine drin steht, weiß ich selbst, aber eben das will ich ja verhindern, damit der Benutzer keine Probleme hat.
Ich habe versucht:
mit einer
not an weisung
If mabfrage.Text not 'abfrage.txt' then begin
dann kommt der Einlesecode
und dann:
else begin
Else will er aber nicht anerkennen. Dann kommen Fehlermeldungen , dass else nicht nach einem ; steht oder ein end erwartet wird.
Dann habe ich es mit mehreren If Anweisungen probiert. Inzwischen bin ich soweit, dass es zwar die Fehlermeldung anzeigt, aber das Porgramm trotzdem abstürzt.
Ich hätte mich nie an ein Forum gewandt, wenn ich es selbst gekonnt hätte. Da ich ehrgeizig genug bin alles selbst hinzubekommen, doch wenn man wirklich nicht weiter weiß, braucht man nun Mal Hilfe und da ich das noch nie gemacht habe, sah es etwas unspezifisch aus.
Ich werde nächstes Mal drauf achten