RichEdit Speichern/Laden

[gangs-taas]

Zitat von haentschman:

mir ist, unabhängig von den Sonderzeichen, noch was aufgefallen:

wo gibst du die dynamisch erzeugten Ojekte (Sting Listen, Printer Dialog ) wieder frei ?

macht er das nicht automatisch ?

Zitat von DeddyH:

Neuere Delphi-Versionen akzeptieren anscheinend Umlaute, aber man sollte vielleicht doch besser darauf verzichten

okay
versuch ich mir zu merken und in zukunft zu vermeiden

Zitat von Lannes:

Hallo,

in RichEdit.Text ist die Formatierung nicht enthalten.
Ausschnitt aus Deinem Code:
   RichEdit1.Text := (Seitenzahlen.Text+'/'+Titel.Text+'/'+Datum.Text+'/'+ #13#10) + RichEdit1.Text; Mit der Zeile überschreibst Du die zuvor angelegten Formatierungen.

Ersetz mal die Zeile(n) durch:

Delphi-Quellcode:

  RichEdit1.SelStart := 0;
  RichEdit1.SelText := (Seitenzahlen.Text+'/'+Titel.Text+'/'+Datum.Text+'/'+ #13#10);

Wenn im Richedit formatierter Text enthalten ist kann man nicht mit der Eigenschaft Text zur Veränderung des RichEdit-Inhalts arbeiten.

Ps.:
function Prüfen(Hilfsvar : integer; Text : String; var Örtchen : String) :boolean; das funktioniert?

wusste ich nicht

ja das funktioniert ...
jedenfalls macht es keien fehlr oder so ...
danke

[gangs-taas]

Zitat von Lannes:

Hallo,

in RichEdit.Text ist die Formatierung nicht enthalten.
Ausschnitt aus Deinem Code:
   RichEdit1.Text := (Seitenzahlen.Text+'/'+Titel.Text+'/'+Datum.Text+'/'+ #13#10) + RichEdit1.Text; Mit der Zeile überschreibst Du die zuvor angelegten Formatierungen.

Ersetz mal die Zeile(n) durch:

Delphi-Quellcode:

  RichEdit1.SelStart := 0;
  RichEdit1.SelText := (Seitenzahlen.Text+'/'+Titel.Text+'/'+Datum.Text+'/'+ #13#10);

Wenn im Richedit formatierter Text enthalten ist kann man nicht mit der Eigenschaft Text zur Veränderung des RichEdit-Inhalts arbeiten.

hey,
wenn ich das so ersetze, verschiebt der aber meine zeilen mit nach unten
sprich wenn meine erste zeile z.b. garnicht eingerückt ist, meine zweite aber schon, ist nach dem speichern meine erste Zeile auch eingerückt ...

versteht ihr was ich mein ?

[gangs-taas]

hat sich geklärt
danke