Code: Alles auswählen
lzRichEdit1.SelAttributes.Color := clred;
lzRichEdit1.Lines.Add('Edit1.text');
lzRichEdit1.SelAttributes.Color := clblack;
lzRichEdit1.Lines.Add('Edit2.text');Code: Alles auswählen
RichEdit1.SelStart := 1; // Am Textanfang
RichEdit1.SelLength := 0; // Länge der Markierung = 0 => Keine Markierung, nur Cursorposition
RichEdit1.SelAttributes.Color := clred; // Farbeinstellung an Markierung, in diesem Fall eben Cursorpos
RichEdit1.SelText := Edit1.Text; // Text einfügen
RichEdit1.SelStart := Richedit1.GetTextLen; // Cursor ans Ende des Richedit => Da zuvor leer ans Ende des Textes in Edit1
RichEdit1.SelLength := 0; // Wieder Markierung = 0
RichEdit1.SelAttributes.Color := clblack; // Farbeinstellung
RichEdit1.SelText := Edit2.Text; // Und Text zuweisenCode: Alles auswählen
var s,w:String;
start, len:integer;
begin
s := Richedit.lines[9];
w := copy(trim(s), 1, length(s));
w := copy(w, pos(' ', w) +1, length(w));
w := copy(w, 1, pos(pos(' ', w) -1)); // das 2. Wort aus Zeile 10
// Wie Selektiere ich dieses nun, also, wie kriege ich es hin aus der Position von w selstart zu berechnen, ?
start := {GetTextLen bis inclusive Zeile 9} + pos(w, s);
len := length(w);
// Der Rest ist klar ..
RichEdit.SelStart := start;
RichEdit.SelLength := len;
RichEdit.SelAttributes.Color := clblack; // Farbeinstellung
end;Code: Alles auswählen
procedure SetSelection(StartPos, EndPos: integer; ScrollCaret: boolean);
Verein
Links
Suche