Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sh17,
31. Okt 2005
etwas so
function TForm1.CheckInput : boolean;
begin
Result := false;
if Edit15.Text = '' then
begin
MessageDlg('fehler bla...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sh17,
26. Okt 2005
Ja
Die Codes aller OnExits in eine Procedure packen und beim Speichern aufrufen
procedure TForm1.CheckInput;
begin
try
if (StrToInt(Edit16.Text)< 200) and not (StrToInt(Edit16.Text)= 0)then
begin
MessageDlg(' Guthaben muss zwischen 200 und 999 oder bei 0 liegen! ' + #13#10 +
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sh17,
26. Okt 2005
Das wirst Du wohl um eine zentrale Prüf-Prozedur nicht herum kommen. Die ganzen OnExists kannst Du Dir dann sparen.
Wäre dann auch etwas sauberer programmiert.