Fehler mit "" .. da Feld leer ist.

[Foxi1896]

Hey (hoffe letzte Frage für heute *g*),

Wollte mein Programm so verbessern das wenn in einem Edit keine Werte drinnen sind das Programm sagt Fehler - neu beginnen und den Process abbricht so das man den Wert erst eingeben muss und dann wieder Button Clickt.

habe es hiermit versucht?!?

Code: Alles auswählen

if EditR1.Text=''then Showmessage('WERTE FEHLEN - neu beginnen') else return;  

return oder break? bzw bei beiden sagt er mir gibt es nicht?

und noch eine zweite Frage ... Ich nehme Werte auf wenn ich öfters die Taste drücke schreibt er mir die Werte in die folgenden Felder. Gibt es einen Befehl das eine Taste gedrückt ist und erst wenn Eintrag erfolgt ist wieder benutzt werden kann (bzw aktiv ist)??


Gruß Foxi

[Antrepolit]

Return gibt es nicht.
Wenn du in einer Procedure bist, kommst du da mit exit; raus. In einer Function musst du dem Exit dann noch einen geeigneten Marameter mitgeben.

[MAC]

exit: Beendet die aktuelle funktion/prozedur.
break: beendet die aktuelle schleife. Das muss logischerweise in einer schleife aufgerufen werden.
continue: überspringt den aktuellen wert in einer schleife, macht aber mit dem nächsten weiter.

[Foxi1896]

ah ok danke hab es jetzt mit exit gemacht. Wie kann ich das noch ein Showmassage hinter machen? Damit der Anwender weiß warum nichts passiert?

Code: Alles auswählen

if EditR1.Text=''then exit else and Showmassage('Werte Fehlen') else
if EditR1.Text=''then exit + Showmessage('WERTE FEHLEN - neu beginnen') else 

"and" und "+" gehen nicht und mehr kenn ich nicht an Befehlen ?

@edit@ habe es nur geht es evtl. so wie ich es oben vor hatte?
so hab ich es jetzt:

Code: Alles auswählen

 if EditR1.Text=''then Showmessage('WERTE FEHLEN - neu beginnen') else
      if EditR1.Text='' then exit; 

Und das Problem mit den der Taste? Das wäre mir noch SEHR wichtig!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[g3sh]

@edit@ habe es nur geht es evtl. so wie ich es oben vor hatte?
so hab ich es jetzt:

Code: Alles auswählen

 if EditR1.Text=''then Showmessage('WERTE FEHLEN - neu beginnen') else
      if EditR1.Text='' then exit; 

Eigentlich schreibt man das so:

Code: Alles auswählen

 
 if EditR1.Text = '' then 
 begin
   Showmessage('WERTE FEHLEN - neu beginnen'); 
   exit;  
 end;  

Und das Problem mit den der Taste? Das wäre mir noch SEHR wichtig!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Du kannst einen Butten mit Enable inaktiv machen. Also zB so Button1.Enabled:= False; jetzt ist er gespert und kann erst mal nicht benutzt werden.

MfG

[Foxi1896]

Du kannst einen Butten mit Enable inaktiv machen. Also zB so Button1.Enabled:= False; jetzt ist er gespert und kann erst mal nicht benutzt werden.

Das Problem wenn ich ihn enabled mache ist er ja komplett weg und ich möchte ihn beim nächsten mal wieder benutzen.
Ich habe die Frage nochmal gezielt geschrieben mit Code: http://www.lazarusforum.de/viewtopic.php?f=55&t=7033

[g3sh]

Das Problem wenn ich ihn enabled mache ist er ja komplett weg und ich möchte ihn beim nächsten mal wieder benutzen.

Nein du verwechselst das mit visible, mit enabled wird er nur grau unterlegt, verschwindet aber nicht, natürlich musst du ihn wenn der Vorgang fertig ist wieder auf Button1.Enabled := True; setzen, damit er wieder freigegeben ist.

[Foxi1896]

Ah das hört sich gut an ... aber er gibt mir Fehler ... habe statt Button MenuItem aber das ist ja egal (hoff ich doch).

Code: Alles auswählen

procedure TForm1.MenuItem3Click(Sender: TObject);   {Messung1Click}
 
var i     : Integer;
    inB   : Integer;
    inW   : String;
 
begin
 
  MenuItem3Click.Enabled:= False;
 

habe es mal eingefügt aber er akzeptiert es nicht =/

@edit@ ich habe den menuitem mit shortkey belegt? muss ich den extra enabled setzten?
@edit2@ habe es jetzt mal durch nen Button ersetzt. Und ich sehe wie der Button grau hinterlegt wird ... Aber er führt es tortzdem aus?!?
Hängt das evtl. mit dem Windowspuffer zusammen das er sich merkt wo ich geklickt habe?

[Euklid]

 
MenuItem3Click.Enabled:= False;

Vermutlich geht MenuItem3.Enabled:=false;

@edit2@ habe es jetzt mal durch nen Button ersetzt. Und ich sehe wie der Button grau hinterlegt wird ... Aber er führt es tortzdem aus?!?
Hängt das evtl. mit dem Windowspuffer zusammen das er sich merkt wo ich geklickt habe?

Probier es mal beim Button mit Button1.enabled:=false;
Du darfst da kein "click" dahinter schreiben, weil das ein Ereignis und keine Komponente ist.

[Foxi1896]

den Fehler mit dem Click hab ich schon bemerkt. Es ist egal ob mit Button oder MItem er merkt es sich.

[Euklid]

Wenn der Button grau geworden ist, sollte er nicht mehr funktionieren.

[Foxi1896]

er tut es aber

[Euklid]

Kannst Du mal den Namen der Prozedur posten, in dem Dein Quelltext für den Klick auf den Button drinsteht?