Schulverwaltungssoftware NRW

Code: Alles auswählen

procedure Richtext3OnPrint;
var titel,textneu,Text2,meinuns,im_fach2, VorDemKomma, NachDemKomma: String;
  i, P : integer;
  NP_Faecher : TStringList;
  lNP_Faecher : String;
begin
  NP_Faecher:=TStringList.Create;
  lNP_Faecher:=Lernabschnitte['MoeglNPFaecher'];
  p:=pos(',',lNP_Faecher);
  while p > 0 do begin
    NP_Faecher.Add(Copy(lNP_Faecher,1,p - 1));
  	Delete(lNP_Faecher,1,p);
	  p:=pos(',',lNP_Faecher);
  end;
  
  If NP_Faecher.Count > 1 then begin // Mehrere NP-Fächer
    text2:=' an. Als Nachprüfungsfach bestimmen wir eines der folgenden Fächer' + ' (bitte ankreuzen!): ' ;
    for i:=0 to NP_Faecher.Count - 1 do
	  Text2:= + '\par ' + '□ ' + NP_Faecher[i]; 
  end else // Genau ein NP-Fach
    text2:=' im Fach ' + NP_Faecher[0] + ' an.';
  NP_Faecher.Free;

//  p:=Pos(',',Lernabschnitte['MoeglNPFaecher']);
//  VorDemKomma:=Copy((Lernabschnitte['MoeglNPFaecher'],1,p - 1);
//  NachDemKomma:=Copy((Lernabschnitte['MoeglNPFaecher'],p + 1,255);
 
//  if pos(',',Lernabschnitte['MoeglNPFaecher'])>0
//  then text2:=' an. Als Nachprüfungsfach bestimmen wir eines der folgenden Fächer' + ' (bitte ankreuzen!): ' + '\par ' + '□ ' + // VorDemKomma + '\par ' + '□ ' + NachDemKomma 
//  else text2:=' im Fach ' + Lernabschnitte['MoeglNPFaecher']+ ' an.';
  
  RichText3.RichText:= ReplaceText (RichText3.RichText, '$text2$', text2);
  ...
  ...