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)