Entwickler-Ecke
Datenbanken - Wert in tabelle <> zahl
Cosmic - Mi 22.01.03 18:26
Titel: Wert in tabelle <> zahl
Hi,
folgendes Problem tritt auf:
Ich habe eine Table (Paradox) da wird ein wert eingetragen. Wenn ich den Tabsheet wechsele, auf dem sich das editfeld befindet, soll das feld ausgelsesen und damit gerechnet werden. Wenn das feld aber leer ist klappt floattostr nicht; Delphi meldet einen Fehler. Weil kein Wert enthalten ist.
Jetzt könnte ich einfach eine If Abfrage machen, nach dem Motto:
Quelltext
1:
2:
3:
4:
| If Form1.testDBEdit.text := ''; then
begin
Form1.testDBEdit.text := '100'
end; |
nur da es ca. 12 felder sind ist das vielleicht nicht der beste Weg. Ein Hinweis das die felder leer sind wäre besser. Was kann ich machen?
Ciao Cosmic
Moderiert von 
Tino: Code-Tags hinzugefügt.
smiegel - Mi 22.01.03 19:29
Hallo,
da gibst nur eins: Du belegst die Edits beim Start des Forms mit 0 und sorgst dann dafür, dass kein Leerstring eingegeben werden kann.
Dafür kannst Du das Ereignis OnExit des Edits benutzen:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm1.EditExit(Sender: TObject);
begin
with TEdit(Sender) do
begin
if (Text='') then
begin
ShowMEssage('Feld darf nicht leer sein');
SetFocus;
end; // if
end; // with
end; |
Dieses Ereignis weisst Du dann allen Editfeldern zu.
Cosmic - Mi 22.01.03 21:51
Titel: hallo
Hi,
stimmt das ist eine gute Idee!
Vor allem brauche ich dann nicht 12 IF abfragen zu machen :-)
Danke
Ciao
Cosmic
-----------------------------------------
Let´s Fetz heute beginnt Dein Leben
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 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!