bei leerem feld oder kleinerem wert fehler melden

[almanciyabanci]

Hallo alle zusammen,

ich möchte wen edit1 feld leer ist oder wen der wert (zahl) kleiner als 4 ist soll eine fehlermeldung kommen..

wen edit1 leer ist funktioniert es mit dem code unten jedoch kriege ich es nicht hin wen es kleiner ist als 4

Code: Alles auswählen

 
if  (Edit1.GetTextLen = 0 )then
     begin
      ShowMessage(' Wert eintragen');
     end
else
 

danke im vorraus

[theo]

Hatte dir hier schon einen Link gepostet: http://www.lazarusforum.de/viewtopic.php?p=69452#p69452
Das Forum ist nicht dazu da, jedem einzeln das kleine Einmaleins beizubringen.

[Michl]

Dazu müsstest Du Edit1.Text in eine Zahl umwandeln, z.B. in einen Integer (mit TryIntToStr wird getestet, ob es sich um eine Ganzzahl handelt).

Bsp:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  if TryStrToInt(Edit1.Text, i) then begin    
    if i < 4 then
      ShowMessage('Eigengebene Zahl ist zu klein');
  end
  else
    ShowMessage('Keine Ganzzahl eingegeben!');
end;

Um die Grundlagen von Pascal zu lernen ist auch der "Delphi-Treff" http://www.delphi-treff.de/object-pascal/verzweigungen/ sehr gut geschrieben!