automatischen Zeilenumbruch am ende von Text verhindern ?

[mlspider]

Und wie kann ich den vor dem Speichern wegschneiden?

[Dax]

Die werden beim speichern automatisch beigefügt, da kann man nichts machen. :(

[mlspider]

Schei....!!!!!!!!

[Dax]

Du könntest aber den Inhalt des Memos anders speichern:

Delphi-Quellcode:

var 
  F: TFileStream;
  SL: TStringList;
begin
  F := TFileStream.Create(DeineDatei, fmCreate);
  F.Write(SL.Text[1], Length(SL.Text));
  //Mehr Code..
end;

Das müsste die Umbrüche verhindern.

[mlspider]

Ich danke Dir!!! Steige trotzdem nicht hinter!

[ibp]

warum speicherst du den inhalt nicht direkt vom memo (memo1.savetofile(filename)) geht doch auch, da kannst du dir das mit der stringlist sparen..

[mlspider]

Irgend wie blicke ich nun gar nicht mehr durch!!! Jetzt habe, glaube ich, totalen Müll zusammen gedichtet:

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;
 T := TFileStream.Create(Label24.Caption+'.txt', fmCreate);
 T.Write(SL.Text[1], Length(SL.Text));
 //SL := TStringList.Create;
 //SL.LoadFromFile(Label24.Caption+'.txt');
 //SL.AddStrings(Memo3.Lines);
 //SL.Delete(SL.Count-2);
 SL.SaveToFile(Label24.Caption+'.txt');
 SL.Free;

Jetzt klappt garnichts mehr!

[ibp]

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
  Dateiname: String;
begin
  Dateiname := ExtractFilePath(Application.ExeName)+Label24.Caption+'.txt';
  Memo3.lines.savetofile(Dateiname)
end;

[Die Muhkuh]

Du kannst ja auch die Zeilumbrüche entfernen:

Delphi-Quellcode:

  Memo3.Lines.Text := StringReplace(Memo3.Lines.Text, #13#10, ' ', [rfReplaceAll]);

[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;