RichEdit: Alle zeilen farbig?

[Pseudemys Nelsoni]

hoi,

ich habe das problem das bei folgendem code, immer nur das erste Add die zeile farbig macht, das nächste ist dann wieder standard farbe. ich hatte das ganze so:

Delphi-Quellcode:

procedure RECL(RE: TRichEdit; s: string; c: TColor);
begin
  with RE do
  begin
    SelStart := Length(s);
    SelAttributes.Color := c;
    SelAttributes.Size := 9;
    SelAttributes.Name := 'MS Sans Serif';
    Lines.Add(s);
  end;
end;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  RECL(RichEdit1, Edit1.Text, $00FF00FF);
end;

[Pseudemys Nelsoni]

hä?...ich hab es zwar raus, ich weiss aber nicht warum!

also wenn ich meine funktion durch:

Delphi-Quellcode:

procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
begin
  with ARichEdit do
  begin
    SelStart:=Length( Text);
    SelAttributes.Color:=AColor;
    SelAttributes.Size:=8;
    SelAttributes.Name:='MS Sans Serif';
    Lines.Add( AText);
  end;
end;

diese ersetze geht es...ich hab ledeglich die bezeichner, wie "AText" durch "S" usw ersetzt, wieso spielt das eine rolle?


ah ich habs, hab AText mit Text verwechselt

[mirage228]

Sollte das
SelStart:=Length( Text); nicht "Length(AText)" heißen?

mfG
mirage228

[Pseudemys Nelsoni]

jo, mirage, text bezieht sich auf RichEdit.Text, das AText auf meinen string, danke