Beginner: Textverarbeitung

[Luckie]

Da es ja nur eine Übung ist, würde ich nicht alle Sonderfälle berücksichtigen, sondern erst mal von einem idealen Text ausgehen. Will man jeden Sonderfall berücksichtigen, kommt man schnell vom 100sten ins 1000ste und dann kommt man gar nicht mehr weiter. Und ich denke, das ist nicht Sinn der Übung eine perfekte Wortzählroutine zu entwickeln.

Aber du solltest dir angewöhnen nicht jede Zeile zu kommentieren. Das macht den Code nur sehr unübersichtlich. Klar als Anfänger kann man schon mal ein paar mehr Zeilen kommentieren. Zum Beispiel Inc, wenn der Befehl für einen neu ist. Aber CloseFile kommentieren? Der Funktionsname sagt doch schon, was die Funktion macht.

[Jumpy]

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:

Delphi-Quellcode:

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 aus textin. Zeilenende wird automatisch verworfen.
  sText:=sText+CHR(13)+CHR(10); // Zeilenumbruch hinzufügen. Kann auch 10 13 sein, kann mir das nie merken.
  end

Und dann sei noch die Bemerkung erlaubt, dass der Code jetzt eine Länge ereicht hat, bei dem man evtl. überlegen sollte Teile in eine Unterfunktion auszulagern, z.B.:

Delphi-Quellcode:

function ErsetzeUmlaute(ch:Char):String;
var sZeichen:String;
begin
  Case ch of 
    #196:sZeichen:='Ae'; // Ä
    #214:sZeichen:='Oe'; // Ö
    #220:sZeichen:='Ue'; // Ü
    #228:sZeichen:='ae'; // ä
    #246:sZeichen:='oe'; // ö
    #252:sZeichen:='ue'; // ü
    #223:sZeichen:='ss'; // ß
  else
    sZeichen:=ch;
  end;
  Result:=sZeichen;
end;

//Dann in der Hauptfunktion:
//...
  read(textin,ch);
  sZeichen:=ErsetzeUmlaute(ch);
  sText:=sText+sZeichen;
  write(textout,sZeichen);
//...