RichEdit - Was mache ich falsch?

[twityzuz]

Hallo!
Als erstes ist hier mal der Code:

Delphi-Quellcode:

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
RichEdit1.Font.Size:=30;
RichEdit1.Text:='Text';
RichEdit1.Font.Size:=12;
RichEdit1.Text:=#10#13 + #10#13 + 'Text';
end;

Wenn man jetzt also auf BitBtn2 clickt, erscheint nur Folgendes:


Text

Ich weiß, dass die zweite Anweisung, dass zwei Zeilenumbrüche und 'Text' geschrieben werden die erste überschreibt, weil ich den Inhalt neu festlege. Wie kann ich das umgehen, bzw. wie würdet ihr dieses Problem lösen?

Freue mich auf jede hilfreiche Antwort:-D
twityzuz

[DeddyH]

Delphi-Quellcode:

RichEdit.Lines.Add('Weiter Inhalt');

[mkinzler]

Ein Zeilenumbruch ist auch #13#10 oder besser man verwendet die Konstante sLineBreak

[DeddyH]

Trotzdem überschreibt eine Zuweisung an Text den alten Inhalt (obwohl Du natürlich recht hast).

[twityzuz]

Danke :)

[DeddyH]

Kein Thema. Bei unterschiedliche Schriften kann man das übrigens auch so machen:

Delphi-Quellcode:

  RichEdit1.Clear;
  RichEdit1.SelAttributes.Size := 30;
  RichEdit1.SelStart := 0;
  RichEdit1.SelText := 'Text';
  RichEdit1.SelLength := 0;
  RichEdit1.SelAttributes.Size := 12;
  RichEdit1.SelText := sLineBreak + sLineBreak + 'Text';
  RichEdit1.SelLength := 0;

[p80286]

Ich würde

Delphi-Quellcode:

Richedit1.Selstart

lieber noch mitnehmen.
Mir ist es schon öfters passiert, daß nach dem Setzen von .SelText .SelStart irgendwo in die Botanik zeigte.

Gruß
K-H

[DeddyH]

Das hatte ich zwar bislang noch nicht, aber schaden kann es ja kaum, SelStart zu setzen, stimmt.

[Matze]

Zitat:

Zitat von twityzuz (Beitrag 1115828)

Ich weiß, dass die zweite Anweisung, dass zwei Zeilenumbrüche und 'Text' geschrieben werden die erste überschreibt, weil ich den Inhalt neu festlege. Wie kann ich das umgehen [...]

Nur, um auch diesen Lösungsweg aufzuzeigen, auch wenn er von der Performance her sicherlich nicht gut ist:

Delphi-Quellcode:

// ...
RichEdit1.Text := RichEdit1.Text + #13#10 + #13#10 + 'Text';

Also einfach den neuen Text an den alten anhängen.

[DeddyH]

Das sollte aber eher eine akademische Lösung sein, oder? :zwinker:

[turboPASCAL]

Nein, denn dann würde man die Char's einzeln addieren. :stupid: :mrgreen:

[Matze]

Zitat:

Zitat von DeddyH (Beitrag 1115851)

Das sollte aber eher eine akademische Lösung sein, oder? :zwinker:

Das ist vermutlich das, was er versucht hat und ich schreibe nur, wie das gehen würde.
Vom Gebrauch rate ich ja auch ab, wobei man natürlich bei deiner Lösung nur Zeilen hinzufügen und nicht ergänzen kann. Hat eben alles Vor- und Nachteile.

Da muss man eben abwägen, was man machen möchte.