Konferenzlisten mit Prognose

[Vaske]

Ich glaube, dass drei Nachprüfungsfächer bei uns noch nicht vorgekommen sind. Das ist aber ein guter Hinweis! Wäre schön, wenn dieser Fall abgefangen werden könnte. Den ersten Hinweis von Herrn Schrewe habe ich umgesetzt (siehe Anhang: SubReport 1 OnPrint-Ereignis zu RichText3). Mir ist nicht klar, ob ich an dieser Stelle auch den zweiten Code einfügen kann.

[wschrewe]

Mir ist nicht klar, ob ich an dieser Stelle auch den zweiten Code einfügen kann.

Das geht:

Code: Alles auswählen

var 
  titel,textneu,Text2,meinuns,im_fach2, VorDemKomma, NachDemKomma: String;
  P, i: integer;
  Np_Faecher : TStringList;
begin
// Zwei NP-Fächer  
//  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.';

// Mehrere NP-Fächer
  Np_Faecher:=TStringList.Create;
  Np_Faecher.Delimiter:=',';
  Np_Faecher.DelimitedText:=Lernabschnitte['MoeglNPFaecher'];

  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;
  	
  RichText3.RichText:= ReplaceText (RichText3.RichText, '$text2$', text2);

[MeierA]

Gibt es auch eine Konferenzliste, bei dem alle Informationen pro Schüler auf einer Seite abgebildet sind?

[JensSpeh]

Ich verweise gerne zum gefühlten 4362. Mal ( ) auf meine Konferenzunterlagen:
viewtopic.php?f=15&t=5220&p=30480#p30480

Allerdings habe ich noch nicht die Nachprüfungsfächer drauf.
Muss ich mir mal notieren...

[W.Maßmann]

Hallo Herr Schrewe,
ich habe den Code von 21:26 Uhr in den Report von 19:42 Uhr eingefügt und erhalte den
Fehler: RichText3OnPrint, Zeile 10: Erwartet '(' oder '[', stattdessen wurde 'Delimiter' gefunden.
Was fehlt noch?

[Vaske]

Dieselbe Fehlermeldung hatte ich auch mit dem Code von 15.20 Uhr. Deshalb war ich irritiert.

[Kurosinski]

Hallo Herr Schrewe,
ich habe den Code von 21:26 Uhr in den Report von 19:42 Uhr eingefügt und erhalte den
Fehler: RichText3OnPrint, Zeile 10: Erwartet '(' oder '[', stattdessen wurde 'Delimiter' gefunden.
Was fehlt noch?

Ein Fehler mit den Semikolon(s)?!
Ich mag die If Schleifen nicht, weil ich regelmäßig die Regeln dazu vergessen.
Kommt nicht zwischen Begin und end jeweils am Ende einer Zeile ein Semikolon?

[JensSpeh]

Hallo Herr Schrewe,
ich habe den Code von 21:26 Uhr in den Report von 19:42 Uhr eingefügt und erhalte den
Fehler: RichText3OnPrint, Zeile 10: Erwartet '(' oder '[', stattdessen wurde 'Delimiter' gefunden.
Was fehlt noch?

Ein Fehler mit den Semikolon(s)?!
Ich mag die If Schleifen nicht, weil ich regelmäßig die Regeln dazu vergessen.
Kommt nicht zwischen Begin und end jeweils am Ende einer Zeile ein Semikolon?

Da kann ich absolut nachvollziehen.
Ich meine, dass z.B. dann kein ; folgt, wenn anschließend noch die ELSE-Anweisung folgt, da die optional ist, würde ein ; zum Ende des Befehls führen...

[Kurosinski]

Hallo Herr Schrewe,
ich habe den Code von 21:26 Uhr in den Report von 19:42 Uhr eingefügt und erhalte den
Fehler: RichText3OnPrint, Zeile 10: Erwartet '(' oder '[', stattdessen wurde 'Delimiter' gefunden.
Was fehlt noch?

Ein Fehler mit den Semikolon(s)?!
Ich mag die If Schleifen nicht, weil ich regelmäßig die Regeln dazu vergessen.
Kommt nicht zwischen Begin und end jeweils am Ende einer Zeile ein Semikolon?

Da kann ich absolut nachvollziehen.
Ich meine, dass z.B. dann kein ; folgt, wenn anschließend noch die ELSE-Anweisung folgt, da die optional ist, würde ein ; zum Ende des Befehls führen...

Ja. Wenn die then Anweisung nur aus einem Befehl besteht, oder?
Ich würde jetzt wieder suchen und probieren.

[Kurosinski]

Von Tutorials.at
https://www.tutorials.at/pascal/05-kont ... turen.html

Code: Alles auswählen

PROGRAM IF_Anweisung;
USES Crt;
 
VAR Eingabe: Integer;
 
BEGIN
  ClrScr;
  Write ('Geben Sie eine Zahl ein: ');
  ReadLn (Eingabe);
 
  IF eingabe < 100 THEN
  BEGIN
    WriteLn ('Es wurde vorhin ein Wert <100 eingegeben.');
    WriteLn ('Drücken Sie eine Taste, um das Programm zu beenden ...');
    ReadKey;
  END;

Meiner Meinung nach fehlt es tatsächlich.