Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: WriteLn hackt letzte Zeile ab

    Delphi
    by rokli, 14. Jul 2011
  gammatester - Du bist ein ganz Großer! :thumb:
  
  for intHelp := 0 to libFiles.Count - 1 do begin
  AssignFile(txtQ, strQuelle + libFiles.Items);
  Reset(txtQ);
  AssignFile(txtZ, strZiel + libFiles.Items);
  ReWrite(txtZ);
  // 1. Kopieren und evtl. Konvertieren
  while not Eof(txtQ) do begin
  ReadLn(txtQ, strLine);
• Forum: Object-Pascal / Delphi-Language

  AW: WriteLn hackt letzte Zeile ab

    Delphi
    by rokli, 14. Jul 2011
  ... tja es wurde dadurch nicht besser....
  
  Auffällig ist, dass am Ende kein Return steht (siehe Bild).
  
  Wenn ich ein CR LF dran hänge, dann fehlen mir <009> am Ende der Datei :?:
  
  CloseFilge(txtZ) kommt später, da ich die Quelldatei noch in eine (Archiv) Datei kopieren will, und anschließend die Quelle löschen muss.
  
  Aber ich hol den Close mal nach oben!
• Forum: Object-Pascal / Delphi-Language

  WriteLn hackt letzte Zeile ab

    Delphi
    by rokli, 14. Jul 2011
  Moin zusammen!
  
  Um eine Text-Datei von A nach B zu kopieren, und dabei u. U. den Inhalt zu manipulieren, verwende ich das folgende Coding:
  
  AssignFile(txtQ, strQuelle + libFiles.Items);
  Reset(txtQ);
  AssignFile(txtZ, strZiel + libFiles.Items);
  ReWrite(txtZ);
  // 1. Kopieren und evtl. Konvertieren
  while not Eof(txtQ) do begin