wenn edit leer fehlerausgabe

kurcob · Hält's aus hier Beiträge: 5

hallo,

wie kann ich mit einem if prüfen ob ein edit leer ist, oder ob etwas drin steht?

if Edit1.Text := ' ' = 0 then
MessageDlg ('Keine Zahl eingegeben!',mtConfirmation, [mbYes,mbNo],0)

rey003 · Beiträge: 68 Win XP BDS 2006

Hallo,
ob es leer ist kannst du so abfragen:

markieren

Delphi-Quelltext

1:
2:

 if Edit1.Text = '' 
  then MessageDlg ('Keine Zahl eingegeben!',mtConfirmation, [mbYes,mbNo],0)

(oder auch über die Länge des Strings in dem Editfeld)

_________________
Daniel S.

Ironwulf · Beiträge: 733 Erhaltene Danke: 2

rey003 hat folgendes geschrieben:

Hallo,
ob es leer ist kannst du so abfragen:

markieren

Delphi-Quelltext

1:
2:

 if Edit1.Text = '' 
  then MessageDlg ('Keine Zahl eingegeben!',mtConfirmation, [mbYes,mbNo],0)

(oder auch über die Länge des Strings in dem Editfeld)

da muss nochn Trim() drum herrum

markieren

Delphi-Quelltext

1:
2:

if Trim(Edit1.Text) = '' 
  then MessageDlg ('Keine Zahl eingegeben!',mtConfirmation, [mbYes,mbNo],0)

kurcob · Hält's aus hier Beiträge: 5

und wie kann ich mehrfachverschachtetlungen machen:
if
then
else if
then
else
then
???

oder kann ich auch ifs logisch verknüpfen, z.b mit oder?

rey003 · Beiträge: 68 Win XP BDS 2006

z.B.: so

markieren

Delphi-Quelltext

1:
2:
3:

if ((Label1.Caption = 'hallo') and ((Edit1.text = 'DF') or (Edit1.text = 'Leute!')) ) 
 then showmessage('Hallo DF/Leute!')
 else showmessage('Falsche Eingabe!');

Also die Worte and und or sind die die du für logische Verknüpfungen benötigst!
Man kann einige klammern weg lassen aber manchmal ist es so übersichtlicher!

_________________
Daniel S.

kurcob · Hält's aus hier Beiträge: 5

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

if Edit1.Text = ' '
   then
        ShowMessage('Keine Zahl eingegeben!');
   else if Edit2.Text = ' '
        ShowMessage('Keine Genauigkeit eingegeben!');
   else
        a := StrToFloat(Edit1.Text);
        n := StrToInt(Edit2.Text);

und verschachtelt man das richtig?

Moderiert von raziel: Delphi-Tags hinzugefügt

Ironwulf · Beiträge: 733 Erhaltene Danke: 2

kurcob hat folgendes geschrieben:

if Edit1.Text = ' '
then
ShowMessage('Keine Zahl eingegeben!');
else if Edit2.Text = ' '
ShowMessage('Keine Genauigkeit eingegeben!');
else
a := StrToFloat(Edit1.Text);
n := StrToInt(Edit2.Text);

und verschachtelt man das richtig?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

if Edit1.Text = ' '
   then
        ShowMessage('Keine Zahl eingegeben!')
   else if Edit2.Text = ' '
        ShowMessage('Keine Genauigkeit eingegeben!')
   else
   begin
        a := StrToFloat(Edit1.Text);
        n := StrToInt(Edit2.Text);
   end;

so müsst das dann ausschaun, also vor dem else das semikolon weglassen und wenn im then oder else teil mehr als nur einwas ausgeführt werden soll das noch mit nem begin end; umschließen

kurcob · Hält's aus hier Beiträge: 5

ok hat geklappt....
noch ne andere sache
wenn ich in ein edit.text eingebe 0.001 soll er mir eine berechnung starten und in einem listgrif ausgeben, die stellen nach dem komma soll dann auch die nachkomma stellen für dich berechnugn sein, also bei 0.1 eine nachkommastelle bei 0.02 zwei nachkommastellen usw. ...wie kann ich da die anzahl der nachkomma stellen rausbekommen?

jaenicke · Verfasst: Sa 06.01.07 22:43

Neue Frage, neuer Thread bitte... Sonst gibts nur Verwirrung!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme