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