Hallo,
ich gebe in meinem Programm an verschiedenen Stellen Fehlermeldungen / Hinweistext
nach folgendem "Strickmuster" aus:
Delphi-Quellcode:
if MessageDlg('Der (Vor-/Nach)Name wurde geändert.' + #13#10#10 +
'alter Eintrag :' + Patname_Oldvalue + ' ' + VName_Oldvalue +
#13#10 + 'neuer Eintrag :' + SQL_PatientPATNAME.AsString +
' ' + SQL_PatientVNAME.AsString + #13#10#10 +
'Soll diese Änderung rückgängig gemacht werden? ' + #13#10,
mtWarning, [mbYes, mbNo], 0) = mrYes then....
Es ist möglich, einen Text als Konstante zu definieren, und dann den Code
folgendermasen zu verkürzen:
if MessageDlg (Ausgabetext,mtWarning,[mbYes,mbNo],0...
Gibt es eine Möglichkeit eine Konstante o.ä. zu definieren und die variablen Teile
nachträglich einzutragen? Oder lös' ich das Problem mit einer Funktion?
Hintergrund: Der Code ist inzwischen sehr unübersichtlich - aber ich muß bei
verschiedenen Fehlern richtige Romane schreiben....!
Vielen Dank für Eure Hilfe
Ines