Paradox 7 + Combobox

hansa · Beiträge: 3079 Erhaltene Danke: 9

Quelltext

1:
2:
3:
4:
5:

...
   if not Query1['Abfahrtsort'].IsEmpty then <-- Kommt der Fehler  hier ?
DBEdit5.Text := Query1['Abfahrtsort'];
  {if not Query1['Ankunftsort'] = Unassigned then <-- oder erst hier
^ wetten, daß er hier kommt   :?:

_________________
Gruß
Hansa

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Naja, da die beiden anderen Abfragen momentan auskommentiert sind fallen die raus.

Kommt bei der ersten If-Abfrage.

hansa · Beiträge: 3079 Erhaltene Danke: 9

wegen dem fehlenden BEGIN END; und das wars.

_________________
Gruß
Hansa

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Fehlende Begin/End?
Nein, die sind einfach auskommentiert, damit der eingegrenzt ist. Die beiden folgenden If-Abfragen sollen im Prinzip ja das gleiche machen, also kommentier ich die so lange aus, bis die erste läuft.

// Edit:
Thx soweit, werde das nun für heute erstmal lassen, bin zu müde. N8

hansa · Beiträge: 3079 Erhaltene Danke: 9

markieren

Quelltext

1:	if not Query1['Abfahrtsort'].IsEmpty then

gut, das wars fürs erste, und danach ? Aber was passiert in den Zeilen danach ? Dann kommt isempty wohl nicht mehr und es kracht wieder. Immer wieder...

Wie klammerst Du die Begin und Ends eigentlich ???

_________________
Gruß
Hansa

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Neinein, das wars eben nicht, der Aufruf von IsEmpty löst die besagte Exception aus.

Begin / End bei der If-Abfrage brauch ich doch garnicht, ich für ja keinen Anweisungsblock aus sondern nur eine einzelne Anweisung.

markieren

Quelltext

1:
2:

if bla then
   blubb;

Kann man zwar auch so schreiben:

markieren

Quelltext

1:
2:
3:

if bla then begin
  blubb;
end;

Ist aber länger und kommt aufs gleiche raus.

hansa · Beiträge: 3079 Erhaltene Danke: 9

Alibi hat folgendes geschrieben:

Begin / End bei der If-Abfrage brauch ich doch garnicht, ich für ja keinen Anweisungsblock aus sondern nur eine einzelne Anweisung.

markieren

Quelltext

1:
2:
3:

if blaempty  then
   blubb;
DBEdit5.Text := Query1['Abfahrtsort'];

Falls blaempty dann sagt Delphi:

blubb

und danach nichts mehr, nur noch:

DBedit5 ist blubb blubb blubb

weil es an das DBedit nicht dran kommt. Das ist eben LEER. Ja, dann passiert sowas.

_________________
Gruß
Hansa

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Scheint ein Missverständnis zu sein.

markieren

Quelltext

1:
2:

  if not Query1['Abfahrtsort'].IsEmpty then
    DBEdit5.Text := Query1['Abfahrtsort'];

Wenn das Feld Abfahrtsort nicht leer ist, dann benutz das als Text für das DBEdit.
Wobei das DBEdit selber nichts mit der Datenbank zu tun hat, könnte jedes beliebige Editfeld sein.

Der Fehler kommt dann bei .IsEmpty, also schon in der If-Zeile.

hansa · Beiträge: 3079 Erhaltene Danke: 9

mach das hier mal :

markieren

Quelltext

1:
2:
3:
4:

  if not Query1['Abfahrtsort'].IsEmpty then BEGIN
showmessage ('jljkhjjkökö');
    DBEdit5.Text := Query1['Abfahrtsort']; 
END;

Und gib Bescheid, ob das ShowMessage ausgeführt wird.

Zitat:

wobei das DBedit selber nichts mit der Datenbank zu tun hat, könnte jedes beliebige Editfeld sein.

gefährlich, gefährlich, wer bringt Dir so was bei ??

Zitat:

Der Fehler kommt dann bei .IsEmpty, also schon in der If-Zeile.

Gut in der Zeile, aber wo ?

_________________
Gruß
Hansa

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Mit der Aussage zum DBEdit wollte ich verdeutlichen, dass seine DB Funktionen nichts mit der Datenbank zu tun haben, die mit dem Query angesprochen wird, sondern mit einer anderen Datenbank, insofern hat das keinen Einfluss.

Natürlich wird das Fenster bei Showmessage nicht gezeigt, was hast du erwartet? Der Fehler ist und bleibt bei .IsEmpty, das ändert ein Ändern der nachfolgenden Zeile auch nicht. Worauf willst du hinaus?

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Heute mal wieder mit weitergemacht, die Lösung war simpel:
If Query1['bla'] <> NULL then
und fertig.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme