SyntaxHighlighting

[martin_]

Hi,
hier ein kleines Codebeispiel:

Delphi-Quellcode:

procedure ......
var
  i : Integer;
begin
  for i := 0 to Length(redt1.text) -1 do
  begin
    redt1.SelStart := i;
    redt1.SelLength := 1;

    if i mod 2 = 0 then
    begin
      redt1.SelAttributes.Color := clBlue;
    end else
    begin
      redt1.SelAttributes.Color := clRed;
    end;

  end;
end;

diese Procedure kopierst du in einem Button und benennst die Richedit Komponente in 'redt1' um und wundere dich über das Ergebnis...