SyntaxHighlighting

[AnyKey]

Hi,

danke für eure Antworten!

@Omata: ich sehs nich so das du nen depp bist der meine Arbeit macht, sondern mir eher ne hilfe bei meiner Arbeit bist.

Der code sieht ja ganz gut aus, aber da es möglicherweise 6 oder mehr verschiedene Telegramme gibt, die alle in einer Datenbank stehen und deren Attribute in ein XML file gelesen werden, aus dem dann das Highlighting gemacht wird blick ich durch die Lösung nich wirklich durch, ist das dann code für jedes einzelne Telegramm oder wie ist das zu verstehen?

naja ich habe hier mal meine eigene Lösung weiter bearbeitet, das ganze funktioniert auch ganz gut, allerdings nur für die ersten beiden Zeilen, hat vielleicht jemand ne Idee wo mein Fehler liegt?

Delphi-Quellcode:

    neuStart := 22;
    for j := 0 to RichEdit1.Lines.Count-1 do
    begin
      for i := 0 to spaltenZahl-1 do
      begin
        if spaltenInhalt.teltype[i] = StrToInt(copy(Trim(RichEdit1.Lines.Strings[j]),23,2)) then
        begin
          RichEdit1.SelStart := neuStart;
          RichEdit1.SelLength := spaltenInhalt.laenge[i];
          if myColor = clBlack then
          begin
            myColor := clLime;
          end
          else
          begin
            myColor := clBlack;
          end;
          RichEdit1.SelAttributes.Color := myColor;
          if i < spaltenZahl-1 then
          begin
            RichEdit1.SelLength := 0;
            neuStart := neuStart + spaltenInhalt.laenge[i];
          end;
        end;
      end;
      neustart := (Length(RichEdit1.Lines.Strings[j])+2)+22;
    end;

Hoff mal ihr könnt mir bei meinem Problem helfen!

Gruß
AnyKey