automatischen Zeilenumbruch am ende von Text verhindern ?

[Dax]

Und so?

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
  T: TFileStream;
  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.Delete(SL.Count-2);
  //SL.SaveToFile(Label24.Caption+'.txt');
  T := TFileStream.Create(Label24.Caption+'.txt', fmCreate);
  T.Write(SL.Text[1], Length(SL.Text));
  SL.Free;
end;