Vorname mit Bindestrich bei einer Lehrkraft

[OWeber]

Guten Morgen zusammen,
bei unseren Zeugnissen wird mittels des folgenden Codes

Text := copy(Lernabschnitte['KLVorname'],1,1) + '. ' + Lernabschnitte['KLNachname'];

der Name der Klassenleitung mit abgekürztem Vornamen (M. Müller) ausgegeben. Nun möchte eine Lehrkraft, die Max-Markus Müller heißt, mit M.-M. Müller aufgeführt werden. Da scheitere ich aber mit meinem Vorgehen - kann mir jemand einen entscheidenden Schubs bitte geben? Danke!

[sbrando]

Sie könnten die Option UnterschriftenKL in der ini-Datei auf "I" setzen und unter UnterschriftenKLText die gewünschte Beschriftung angeben ganz ohne den Code der Zeugnisse zu ändern. Oder Sie sagen Ihrem Kollegen, er soll sich nicht so anstellen

[OWeber]

Hallo Herr Brando,
danke für die Antwort - das würde ich auch machen, wenn ich die Zeugnisformulare hier nutzen würde (das ist für die Zukunft geplant); zur Zeit nutzen wir noch einen eigenen Report mit eben dieser Programmierung. Ihren zweiten Vorschlag werde ich dann umsetzen, wenn nichts anderes hilft

[Jochen Torspecken]

Wie wäre es mit einer neuen Zeile:
IF Lernabschnitte['KLKuerzel']='XXX' then text:= 'M.-M. Müller';

Wobei XX das Kürzel dieses einen Kollegen ist.

Allerdings finde ich den 2. Vorschlag auch besser.

[OWeber]

die Idee mit der zweiten Zeile ist mir auch noch gekommen, das hat dann geklappt - danke! Vorschlag 2 ist weiter im Gespräch

[W.Maßmann]

Eine weitere Möglichkeit:

var hilfe : integer;
begin
hilfe:= pos('-', Lernabschnitte['KLVorname']);
if hilfe > 0
then Text := copy(Lernabschnitte['KLVorname'],1,1) + '.-' + copy(Lernabschnitte['KLVorname'],hilfe+1,1) + '. ' + Lernabschnitte['KLNachname']
else Text := copy(Lernabschnitte['KLVorname'],1,1) + '. ' + Lernabschnitte['KLNachname'];
end;

[Uli Dierkes]

Vielleicht sollte man die Programmierung noch auf den Fall ausweiten, dass der Kollege nicht Max-Markus, sondern Max Markus heißt und auf beiden Vornamen besteht.