Wert in tabelle <> zahl

Cosmic · Beiträge: 63

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:

markieren

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 · Verfasst: 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:

markieren

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.

_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)

Cosmic · Beiträge: 63

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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme