MessageDlg : Anzeigetext mit Datenbankfeldern - Code kürzen?

[Ines]

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

[SirThornberry]

wenn du mit Format arbeitest könntest du den Formatstring als Constante declarieren.

[hoika]

Hallo,

schreibe eigene Funktion MBError,
die intern das gewünschte tut.

Delphi-Quellcode:

procedure MBError(const Msg1: String);
begin
  Screen.Cursor:= crDefault;

  MessageDlg(Msg1, mtError, [mbOk], 0);
end;

Und die Funktino kannst du dann überladen,
um ähnliche Sachen anzuzeigen.


Heiko

[Muetze1]

Delphi-Quellcode:

ResourceString/Const
  coForenameChanged = 'Der (Vor-/Nach)Name wurde geändert.'#13#10#10'alter Eintrag : %s %s'#13#10 + 
                      'neuer Eintrag : %s %s'#13#10#10'Soll diese Änderung rückgängig gemacht werden? '#13#10;

...

Begin
  if MessageDlg(Format(coForenameChanged, [Patname_Oldvalue, VName_Oldvalue, SQL_PatientPATNAME.AsString, 
                                           SQL_PatientVNAME.AsString]), mtWarning, [mbYes, mbNo], 0) = mrYes then....

Um den Vorschlag mit Format mal etwas zu präzisieren.

[Ines]

Vielen Dank für Eure schnelle Hilfe!
Den Hinweis von Sir Thornberry habe ich dank des Codes von Muetze1 bereits in mein Programm eingebaut.

Heiko: Das mit dem Überladen der Funktion muß ich mir nochmals durch den Kopf gehen lassen - ganz verstanden hab' ich es noch nicht.

Grüße
Ines