Forum: Object-Pascal / Delphi-Language
Delphi
by Christian Seehase,
2. Nov 2002
Moin Mathias,
stimmt, hast Du auch wieder wahr :mrgreen:
CommaText hatte ich bislang nie verwendet.
Wieder was gelernt.
Forum: Object-Pascal / Delphi-Language
Delphi
by Christian Seehase,
2. Nov 2002
Moin Rebugger,
war ein blöder Fehler von mir (kommt davon wenn man's nicht ausprobiert :oops: )
Es muss eigentlich heissen:
tmp_style.text := StringReplace(....
Dann sollte der beschriebene Fehler auch weg sein. Wenn Du die Zeile mit Add hinzufügst, werden die Steuerzeichen (#13#10) nicht als Zeilenumbruch gewertet, sondern mit in den ersten String der Liste übernommen.
Weist Du...
Forum: Object-Pascal / Delphi-Language
Delphi
by Christian Seehase,
1. Nov 2002
Moin Rebugger,
was mir gerade aufgefallen ist:
Die Style Attribute ergänzen sich nicht, sondern das zuletzt gefundene ersetzt bereits gesetzte.
Statt
Highlight.Style := ;
müsste es also
Forum: Object-Pascal / Delphi-Language
Delphi
by Christian Seehase,
1. Nov 2002
Moin Rebugger,
Fast hattest Du's:
Mit StringToColor :mrgreen:
Forum: Object-Pascal / Delphi-Language
Delphi
by Christian Seehase,
1. Nov 2002
Moin Rebugger,
da auch dynamische Arrays wieder freigegeben werden müssen, hätte ich da noch zwei Vorschläge.
1. Mit Luckies Parse / TZeile
function TMain.Intialize_Highlight(Highlight: TSynHighlighterAttributes; Section: String; Part: String; Standard: String): Bool;
var
ini: TIniFile;
tmp_style: TZeile;
Forum: Object-Pascal / Delphi-Language
Delphi
by Christian Seehase,
1. Nov 2002
Moin Rebugger,
Du hast pos als array of integer deklariert, dann aber ohne Index benutzt
result:=copy(zeile,pos+1,pos-1-pos);
wobei ich etwas unglücklich finde einen Funktionsnamen (pos) als Variablennamen zu benutzten. ;-)
Forum: Object-Pascal / Delphi-Language
Delphi
by Christian Seehase,
1. Nov 2002
Moin Luckie,
ich hab' jetzt mal den Code aus dem Posting genommen, alle Blanks vor bzw. hinter den eckigen Klammern entfernt und den Formatierer laufen lassen.
Kein Fehler feststellbar. :shock: