Forum: Object-Pascal / Delphi-Language
by Ati,
24. Aug 2006
Das hatte ich jetzt gerade auch schon gemacht...wobei Deine Funktion um ein vielfaches einfacher/besser ist als meine. Danke!!
Forum: Object-Pascal / Delphi-Language
by Ati,
24. Aug 2006
Hat leider auch nicht geklappt. Hier mal der Code des onExit-Ereignisses:
procedure TfrmMain.edliefExit(Sender: TObject);
var i,j:Integer;
lief:String;
begin
lief:= edlief.text;
j:=length(lief);
if j <> 6 then
begin
showmessage('Fehlerhafte Lieferanteneingabe. Bitte prüfen!!');
Forum: Object-Pascal / Delphi-Language
by Ati,
24. Aug 2006
SetFocus klappt nicht. Aber wie kann ich den Sender ermittlen??
Forum: Object-Pascal / Delphi-Language
by Ati,
24. Aug 2006
Leider muß ich dieses Thema nochmal aufrollen. Ich bin jetzt schon erheblich weiter mit meinem Programm und nun habe ich einen Button eingefügt, welcher alle Text-Elemente löschen soll. Wenn jetzt aber das vorhergenannte Feld den Fokus hat und ich den Clean-Button drücke, dann kommen natürlich die ganzen Fehlermeldungen. Kann ich das in diesem Fall umgehen??
Forum: Object-Pascal / Delphi-Language
by Ati,
24. Aug 2006
@Helmi
Stimmt das würde auch unter Lazarus so funktionieren.
@Hawkeye
Stimmt ich prüfe auch auf die Länge und verlange 6 Zeichen.
Ich schätze es ist jetzt mehr eine philosophische Frage was ich wie mache. Ich denke aber ich benutze die bisherige Variante, da sie ja ohne Probleme funktioniert (zumindest bis jetzt)
Forum: Object-Pascal / Delphi-Language
by Ati,
24. Aug 2006
Danke für eure Anregungen. Habe mal versucht den Fehler mit dem leeren String zu provozieren, hat aber insofern nicht funktioniert, das ich erstens mit der Tab-Taste sofort weitergegangen bin und gar keine Fehlermeldung kam. Zweistens ich einfach mit Leerzeichen in die Mitte des Edit-Feldes gegangen bin und dann das Feld verlassen habe. Hier kam sofort die vorgefertigte Fehlermeldung. Also auch...
Forum: Object-Pascal / Delphi-Language
by Ati,
24. Aug 2006
Moin,
ich möchte den Text in einem Edit-Feld beim verlassen auf gewisse Sachen prüfen/untersuchen.
In diesem Feld darf nur unser Lieferantenkürzel stehen. Unser Lieferantenkürzel setzt sich aus den ersten vier Buchstaben und einer fortlaufenden Nummer (Bsp. Siemens = Siem01). Leider kann ich bei Lazarus ein MaskEdit-Feld nicht so einstellen das die blöden Unterstriche nicht erscheinen...