automatischen Zeilenumbruch am ende von Text verhindern ?

[mlspider]

Hallo,

wie kann man verhindern, daß der Cursor in einem Memo am Ende des Textes automatisch in die nächste Zeile springt?????

Bin über jede Hilfe dankbar!

[jim_raynor]

:wiejetzt: Meinst du den autmatischen Zeilenumbruch. Dafür gab es doch glaube ne Eigenschaft WordWrap?!

[mlspider]

Diese Eigenschaft habe ich mit True und mit False getestet. Er bricht trotzdem um.

[Dax]

Du musst glaube ich auch noch die ScrollBars-Eigenschaft auf Horizontal oder Beide stellen..

[mlspider]

So, habe jetzt die ScrollBar-Eigenschaften getestet. Er bricht immer noch um!

[Plague]

Meines Wissens nach reicht es auch die horizontale Scrollleiste auf true, visible oder wie auch immer zu setzen (oder war das bei VB??? :gruebel: )

Gruß
Thomas

[mlspider]

Die steht bei mir auf Horizontal. Nur leider bricht er immer noch um. WordWrap habe ich auf False gesetzt.

[Dax]

Wenn ich ScrollBars auf ssNone und WordRap auf False stehen habe, bricht das Control die Zeilen nicht um.. :gruebel:

[mlspider]

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?

[Dax]

Ist ja kein Wunder... am Ende einer Stringlist ist immer ein Zeilenumbruch, so sinnlos er auch sein mag. Du könntest nach dem laden die letzte Zeile löschen:

Delphi-Quellcode:

SL.Delete(SL.Count-1)

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

[mlspider]

OK, erst einmal ei großes Dankeschön an alle. Ich es jetzt wie folgt gelöst:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
  Dateiname: String;
begin
  Memo3.Text:=Label11.Caption+':4853/No-Limit';
  Dateiname := ExtractFilePath(Application.ExeName)+Label24.Caption+'.txt';
  Memo3.Lines.SaveToFile(Label24.Caption+'.txt');

Jetzt findet kein Umbruch am Ende mehr statt!!!

[ibp]

für was ist eigentlich die variable dateiname?