Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Beginner: Textverarbeitung

    Delphi
    by jdiephaus, 30. Nov 2016
  Vielen Dank für die Tipps! Ah okay Jumpy das mit dem or hatte ich probiert jedoch ch=' ' nicht in Klammern gesetzt -.-. Okay stimmt darüber hatte ich noch nicht nachgedacht. Ich versuche AnzWort dementsprechend umzubauen.
  
  Die nächste Aufgabe ist das Programm dahingehend zu erweitern, dass alle Umlaute durch ae ue oe Ae... usw vor dem schreiben in textout geändert werden.
  
  Das habe ich jetzt...
• Forum: Object-Pascal / Delphi-Language

  AW: Beginner: Textverarbeitung

    Delphi
    by jdiephaus, 30. Nov 2016
  program Textverarbeitung;
  {$APPTYPE CONSOLE} uses sysutils;
  var textout,textin: Text;
  ch: Char;
  AnzZeichen: Integer;
  AnzWort: Integer;
  begin
  Assignfile(textin,'test.in');
  Assignfile(textout,'test.out');
  RESET(textin); // Datei textin öffnen
• Forum: Object-Pascal / Delphi-Language

  AW: Beginner: Textverarbeitung

    Delphi
    by jdiephaus, 30. Nov 2016
  Okay vielen Dank erstmal Klaus!
  
  Wie kann ich den Status Carriage Return oder Linefeed aus ch auslesen?
  
  Habe ich den Code (so wie ich ihn kommentiert habe) richtig verstanden?
  
  Edit: Kann ich dafür ord(ch) nutzen? 32 ist in dem Fall ein Leerzeichen.
• Forum: Object-Pascal / Delphi-Language

  Beginner: Textverarbeitung

    Delphi
    by jdiephaus, 30. Nov 2016
  Hallo Liebe Community,
  ich bin mittlerweile beim Thema Textverarbeitung angekommen. Hier mein Code:
  
  program Textverarbeitung;
  {$APPTYPE CONSOLE} uses sysutils;
  var textout,textin: Text;
  ch: Char;
  begin
  Assignfile(textin,'test.in'); Assignfile(textout,'test.out');
  RESET(textin); REWRITE(textout); //Anfang textin Erzeugt leeres textout