Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Beginner: Textverarbeitung

    Delphi
    by Whookie, 30. Nov 2016
  Nein das passt schon so :-D
  Es wird das Zeilenende erkannt und danach in die Ausgangsdatei geschrieben. Es muss natürlich dann auch noch von der Eingangsdatei entfernt werden.
• Forum: Object-Pascal / Delphi-Language

  AW: Beginner: Textverarbeitung

    Delphi
    by Whookie, 30. Nov 2016
  program Textverarbeitung;
  {$APPTYPE CONSOLE} uses sysutils;
  var textout,textin: Text;
  ch: Char;
  begin
  Assignfile(textin,'test.in');
  Assignfile(textout,'test.out');
  RESET(textin); // Datei textin öffnen
  REWRITE(textout); // Datei textout zum überschreiben öffnen
  while not(eof(textin)) do //eof True wenn Dateiende