Memo / RichEdit for HTML export

[KodeZwerg]

Ich bereite mal eine kleine Demo vor und erstelle neuen Thread um den hier nicht mit meinen problem zuzumüllen. Deinen Tipp verstehe ich so nicht ganz. @Redeemer

[Delphi.Narium]

SelLength := High(Integer); = Die Länge des auszuwählenden Textes wird auf die maximal mögliche Länge gesetzt. Das passiert ab der aktuellen Position.

Statt High(Integer) könnte man auch 2147483647 schreiben, muss aber, falls sich der Maximalwert für Integer mal ändern, den Quelltext anpassen

SelAttributes.Color := clIrgendwas; = Ab der aktuellen Position wird alles ab dieser Ausgewählte mit dem angegebene Attribut "gestaltet".

Das entspricht (für mein Verständnis) dem:

Zitat:

... da ich so etwas benötige: "Stelle ab charakter-position die Farbe auf clWasAnderes um"

[KodeZwerg]

Mein Problem ist gelöst @Reedemer, habe es so versucht wie Du meintest, funzt!
Danke für den Nachtrag @Delphi.Narium!!

Delphi-Quellcode:

procedure TfrmMain.reMainChange(Sender: TObject); // reMain = RichEdit
var
  Len: Integer;
begin

  try
    Len := StrToInt(edtPosition.Text); // edtPosition = Editfeld mit Positionsangabe
  except
    Len := 25;
    edtPosition.Text := '25';
  end;

  if Length(reMain.Text) >= Len then
  begin
    reMain.SelStart := Len;
    reMain.SelLength := Length(reMain.Text);
    reMain.SelAttributes.Color := clGreen;
    reMain.SelStart := Length(reMain.Text);
    reMain.SelLength := 0;
  end;
end;

So nutze ich es nun, bestimmt nicht schön aber macht erstmal alles so wie ich es wollte. Flackert ganz schön dolle, mal sehen was ich da noch rausholen kann.
Es tut mir leid für diesen zwischen-request innerhalb eines fremd threads!

[Delphi.Narium]

Delphi-Quellcode:

procedure TfrmMain.reMainChange(Sender: TObject); // reMain = RichEdit
var
  Len : Integer;
  LenText : Integer;
begin
  Len := StrToIntDef(edtPosition.Text,25); // edtPosition = Editfeld mit Positionsangabe
  edtPosition.Text := IntToStr(Len);

  LenText := Length(reMain.Text); // Wird (eventuell) mehrfach benötigt, ermitteln wir nur einmal.
  if LenText >= Len then
  begin
    reMain.SelStart := Len;
    reMain.SelLength := LenText;  // Soll wohl der restliche Text sein, dann geht auch:
    reMain.SelLength := High(Integer); 
    reMain.SelAttributes.Color := clGreen;
    reMain.SelStart := LenText;  // Soll wohl das Ende des Textes sein, dann geht auch diesmal:
    reMain.SelStart := High(Integer); 
    reMain.SelLength := 0;
  end;
end;

[Redeemer]

Wenn ich bin zum Ende markieren will, würde ich wirklich einfach High(Integer) nehmen, anstatt mit viel Rechenzeit irgendeine Zahl zu ermitteln, die sowieso größergleich der Restlänge ist und sich deshalb genau wie High(Integer) verhält.
Zeug zwischen Plaintext und RTF zu konvertieren wird Rechenleistung benötigen und der String, aus dem am Ende nur die Länge berechnet wird, muss auch irgendwo gespeichert werden. Ich sehe somit absolut keinen Vorteil darin, irgendwas anderes als High(Integer) zu nehmen.

[Delphi.Narium]

Zitat von Redeemer:

Wenn ich bin zum Ende markieren will, würde ich wirklich einfach High(Integer) nehmen, anstatt mit viel Rechenzeit irgendeine Zahl zu ermitteln, die sowieso größergleich der Restlänge ist und sich deshalb genau wie High(Integer) verhält.
Zeug zwischen Plaintext und RTF zu konvertieren wird Rechenleistung benötigen und der String, aus dem am Ende nur die Länge berechnet wird, muss auch irgendwo gespeichert werden. Ich sehe somit absolut keinen Vorteil darin, irgendwas anderes als High(Integer) zu nehmen.

Eindeutig ja, MaxInt ginge aber auch (ok: Delphi 7 Hilfe sagt dazu: const MaxInt = High(Integer); )

[KodeZwerg]

Ihr habt beide Recht! Danke für diese freundliche Unterstützung trotz falschem Threads (Entschuldigung fürs reinplatzen!)

[TurboMagic]

Zitat von Redeemer:

Wenn ich bin zum Ende markieren will, würde ich wirklich einfach High(Integer) nehmen, anstatt mit viel Rechenzeit irgendeine Zahl zu ermitteln, die sowieso größergleich der Restlänge ist und sich deshalb genau wie High(Integer) verhält.
Zeug zwischen Plaintext und RTF zu konvertieren wird Rechenleistung benötigen und der String, aus dem am Ende nur die Länge berechnet wird, muss auch irgendwo gespeichert werden. Ich sehe somit absolut keinen Vorteil darin, irgendwas anderes als High(Integer) zu nehmen.

Kann man die neue Komponente inzwischen irgendwo herunterladen?

[Redeemer]

Auf Wunsch per E-Mail, hier die Methoden zum Konvertieren von fett/kursiv/unterstrichen/durchgestrichen, Farbe und Aufzählungen in einem Standard-TRichEdit von/zu HTML...

Ich hoffe, es sind alle benötigten Units drin.
Interessant sind nur die Methoden aus RedeemerRichEditHTML.

[Redeemer]

Der Code aus dem vorherigen Post ist jetzt auf Github.