Kontrolle vorm speichern

[Gremlin]

Wenn du noch diesen Code, der sich sehr oft wiederholt

Delphi-Quellcode:

  begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Reparaturzeit';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'oder 0 eintragen';
    Mainframe.Fehlermeldung.Show;
  end

in eine Unterfunktion/Procedure auslagerst, dann sieht der Code sher viel freundlicher aus

Delphi-Quellcode:

  procedure Fehlerausgabe(const Meldung1, Meldung2:string);
  begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := Meldung1;
    Mainframe.Fehlermeldung.L_Zusatz.Caption := Meldung2;
    Mainframe.Fehlermeldung.Show;
  end;

begin
  [..]
  Fehlerausgabe('Reparaturzeit', 'oder 0 eintragen');
  [..]
end;

[DeddyH]

Und benutzerfreundlicher wäre es, die fehlenden Felder zunächst zu sammeln, dann den Errorstring zusammenzubasteln und zum Schluss eine Fehlermeldung auszugeben :roll: