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;