Einzelnen Beitrag anzeigen

mlspider

Registriert seit: 22. Okt 2003
Ort: Berlin
661 Beiträge
 
Delphi 7 Enterprise
 
#9

Re: automatischen Zeilenumbruch am ende von Text verhindern

  Alt 25. Okt 2004, 13:32
Liegt es vieleicht daran, daß ich den Inhalt von Memo in eine Stringliste lade und anschließend in eine TXT-Datei speichere?

Hier mal der Code:

Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var
  F: TextFile;
  T: TextFile;
  Dateiname: String;
  SL: TStringList;
begin
 Dateiname := ExtractFilePath(Application.ExeName)+Label24.Caption+'.txt';
 AssignFile(F, Dateiname);
 Rewrite(F);
 CloseFile(F);
 Label20.Caption:='mms://'+Label11.Caption+':4853/No-Limit';
 Memo3.Text:=Label20.Caption;
 SL := TStringList.Create;
 SL.LoadFromFile(Label24.Caption+'.txt');
 SL.AddStrings(Memo3.Lines);
 SL.SaveToFile(Label24.Caption+'.txt');
 SL.Free;
Wenn ich jetzt die Text-Datei öffne, ist ein Umbruch nach "No-Limit" vorhanden. Dieser muß aber weg!!!!

Oder müßte hier eine Funktion her, die mir vor dem Speichern alle Zeichen (einschließlich Leerzeichen) wegscheidet? Wenn ja, wie?
Mario
  Mit Zitat antworten Zitat