Forum: Object-Pascal / Delphi-Language
Delphi
by Jumpy,
1. Dez 2016
Was mir aufgefallen ist: In sText dürften nachher die Zeilenumbrüche fehlen? Als folge sind das Wort am Ende einer Zeile und das am Anfang der nächsten Zeile evtl. zusammengeschrieben? Evtl. Lösung:
if eoln(textin) then // eoln True wenn Zeilenende
begin
writeln(textout); // Schreibt ganze Zeile in textout. Zeilenende wird automatisch angefügt.
readln(textin); // Liest ganze Zeile...
Forum: Object-Pascal / Delphi-Language
Delphi
by Jumpy,
30. Nov 2016
Mehrere Bedingungen kann man mit "and" oder "or" verknüpfen, hier "or":
If eoln(textin) or (ch=' ') then
Inc(AnzWort,1); // Zählt die Anzahl der Zeilenumbrüche bzw. Leerzeichen
Hier kannst du wie schon erwähnt aber Probleme kriegen, bei zwei oder mehr Leerzeichen hintereinander, oder wie sieht es bei einer leeren Zeile aus, hier muss man evtl. auch noch mal überlegen was...
Forum: Object-Pascal / Delphi-Language
Delphi
by Jumpy,
30. Nov 2016
So wie du den Code planst brauchst du das mMn gar nicht wissen. Immer wenn ein eoln war, ausser beim letzten mal, müsste doch ein neues Wort sein, wenn man jetzt mal davon ausgeht, dass es keine Silbentrennung im Text gibt und Worte die ohne Silbentrennung in der nächsten Zeile weiter gehen.
Dann bräuchtest du nur 2 Zählvariablen. Eine für AnzZeichen und eine Für AnzWort. Am Anfang beide 0....