Anwenderforum svws.nrw.de
https://schulverwaltungsinfos.nrw.de/svws/forum/
https://schulverwaltungsinfos.nrw.de/svws/forum/viewtopic.php?t=3405
Das geht:Vaske hat geschrieben: Sonntag 11. Juni 2023, 19:42Mir ist nicht klar, ob ich an dieser Stelle auch den zweiten Code einfügen kann.
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);
) auf meine Konferenzunterlagen:W.Maßmann hat geschrieben: Sonntag 11. Juni 2023, 23:41 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?
Da kann ich absolut nachvollziehen.Kurosinski hat geschrieben: Montag 12. Juni 2023, 07:09W.Maßmann hat geschrieben: Sonntag 11. Juni 2023, 23:41 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 hat geschrieben: Montag 12. Juni 2023, 07:30Da kann ich absolut nachvollziehen.Kurosinski hat geschrieben: Montag 12. Juni 2023, 07:09W.Maßmann hat geschrieben: Sonntag 11. Juni 2023, 23:41 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?
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...
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;