auch, wenn ich den Sinn noch nicht ganz verstehe...wozu braucht man sowas?
für den umgekehrten fall hat sich Narses aus dem
DF schon mal die Mühe gemacht:
http://www.delphi-library.de/viewtopic.php?p=441656
ist ganz hilfreich beim debuggen
da oben ist eine schöne Liste der Messages. ich würde jetzt hergehen und diese liste z.b. in ne Stringliste packen (1 Message pro Zeile), diese durchlaufen und mir den code generieren lassen
geht natürlich auch mit einem RegEx-fähigen Editor (ungetested):
suchstring: ^(.*)$
ersetzen durch: if s='\1' then msg:=\1 else
Edit: damit sich nicht jeder die Mühe machen muss, hab ich das jetzt mal gemacht
