String in Array zerlegen (Markanter Punkt: ',')

[Christian Seehase]

Moin Rebugger,

Du hast pos als array of integer deklariert, dann aber ohne Index benutzt

Code:

result[i ]:=copy(zeile,pos[i-1]+1,[color=red]pos[/color]-1-pos[i-1]);

wobei ich etwas unglücklich finde einen Funktionsnamen (pos) als Variablennamen zu benutzten.

[rebugger]

Ja, is klar...
Blick nur nich durch, was daran geändert werden muss (welcher array wert dort hineingehört)

Habe nun eine extra funktion für den aufruf von parse() geschrieben:

Code:

function TMain.Intialize_Highlight(Highlight: TSynHighlighterAttributes; Section: String; Part: String; Standard: String): Bool;
var
  ini: TIniFile;
  tmp_style: TZeile;
begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'highlight.cfg');
  try
    tmp_style := Parse(ini.ReadString(Section,Part,Standard), 0);
    Highlight.Foreground := StrToInt(tmp_style[0]);
    Highlight.Background := StrToInt(tmp_style[1]);

    if StrToInt(tmp_style[2]) = 1 then
      Highlight.Style := [fsBold];
    if StrToInt(tmp_style[3]) = 1 then
      Highlight.Style := [fsItalic];
    if StrToInt(tmp_style[4]) = 1 then
      Highlight.Style := [fsUnderline];
    if StrToInt(tmp_style[5]) = 1 then
      Highlight.Style := [fsStrikeOut];
  finally
    ini.Free;
  end;
  result := TRUE;
end;

Jetzt müsste nur noch der Fehler in der Funktion Parse() gefixed werden.
Weiß aber net, was da reingehört !

[Luckie]

In der zeile:

Code:

result[i ]:=copy(zeile,pos[i-1]+1,pos[i ]-1-pos[i-1]);

war noch ein Fehler drin. Ich habe ihn noch mal korrigiert.

[rebugger]

Hm, trotzdem sagt er beim Start meines Programmes:
"Zugriffsverletzung auf Adresse 004A8725 in Modul 'project1.php'. Lesen von Adresse 00000000."

[Luckie]

Dann hast du irgendwo eine ungültige Zeile drin. Bei dem Parser ist das Trennzeichen ein ";" du hast aber ein ",". Also in der Parse-Funktion anpassen.

[rebugger]

Hm, dann sagt er mir beim Aufruf "clNone ist kein gültiger Integerwert"
Das liegt an
pos: array of integer;

Aber dieser lange String
Comment=$0045CDFA,clNone,0,1,0,0

Kann ja Buchstaben und Zahlen enthalten !

[Luckie]

Kann es sein, dass dein Fehler irgendwo hier

Code:

if IntToStr(php_comment[2]) = 1 then 
      PHPhigh.CommentAttri.Style := fsBold; 
    if IntToStr(php_comment[3]) = 1 then 
      PHPhigh.CommentAttri.Style := fsItalic; 
    if IntToStr(php_comment[4]) = 1 then 
      PHPhigh.CommentAttri.Style := fsUnderline; 
    if IntToStr(php_comment[5]) = 1 then 
      PHPhigh.CommentAttri.Style := fsStrikeOut;

liegt?

[rebugger]

Jo, hab das jetzt korrigiert !
Wenn ich in der Funktion Parse()

Code:

if zeile[ i ] = ',' then

Kommt nurnoch dieser Fehler:
"clNone ist kein gültiger Integerwert"

Das liegt an
pos: array of integer;

Aber dieser String
$0045CDFA,clNone,0,1,0,0
kann ja Buchstaben und Zahlen enthalten

[rebugger]

Halt, Stopp !
Kommando zurück !
Fehler-Stelle gefunden:

Code:

Highlight.Foreground := StrToInt(tmp_style[0]);
Highlight.Background := StrToInt(tmp_style[1]);

Lag an meiner Funktion !
Da ja hier bei tmp_style[1] "clNone" drin steht und nicht zu Integer umgewandelt werden kann !
Wie kann ich sonst von String in TColor umwandeln ?

[Christian Seehase]

Moin Rebugger,

da auch dynamische Arrays wieder freigegeben werden müssen, hätte ich da noch zwei Vorschläge.

1. Mit Luckies Parse / TZeile

Code:

[b]function[/b] TMain.Intialize_Highlight(Highlight: TSynHighlighterAttributes; Section: [b]String[/b]; Part: [b]String[/b]; Standard: [b]String[/b]): Bool;
[b]var[/b]
  ini: TIniFile;
  tmp_style: TZeile;
[b]begin[/b]
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'highlight.cfg');
  [b]try[/b]
    tmp_style := Parse(ini.ReadString(Section,Part,Standard), 0);
    [b]try[/b]
      Highlight.Foreground := StrToInt(tmp_style[0]);
      Highlight.Background := StrToInt(tmp_style[1]);

      [b]if[/b] StrToInt(tmp_style[2]) = 1 [b]then[/b]
        Highlight.Style := [fsBold];
      [b]if[/b] StrToInt(tmp_style[3]) = 1 [b]then[/b]
        Highlight.Style := [fsItalic];
      [b]if[/b] StrToInt(tmp_style[4]) = 1 [b]then[/b]
        Highlight.Style := [fsUnderline];
      [b]if[/b] StrToInt(tmp_style[5]) = 1 [b]then[/b]
        Highlight.Style := [fsStrikeOut];
    [b]finally[/b]
      finalize(tmp_style);
      FreeAndNil(tmp_style);
    [b]end[/b];
  [b]finally[/b]
    ini.Free;
  [b]end[/b];
  result := TRUE;
[b]end[/b];

2. Mit einer TStringList statt array of string und StringReplace statt Parse

Code:

[b]function[/b] TMain.Intialize_Highlight(Highlight: TSynHighlighterAttributes; Section: [b]String[/b]; Part: [b]String[/b]; Standard: [b]String[/b]): Bool;
[b]var[/b]
  ini: TIniFile;
  tmp_style: TStringList;
[b]begin[/b]
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'highlight.cfg');
  [b]try[/b]
    tmp_style := TStringList.Create;
    [b]try[/b]
      tmp_style := StringReplace(ini.ReadString(Section,Part,Standard),',',#13#10,[rfReplaceAll]);
      Highlight.Foreground := StrToInt(tmp_style[0]);
      Highlight.Background := StrToInt(tmp_style[1]);

      [b]if[/b] StrToInt(tmp_style[2]) = 1 [b]then[/b]
        Highlight.Style := [fsBold];
      [b]if[/b] StrToInt(tmp_style[3]) = 1 [b]then[/b]
        Highlight.Style := [fsItalic];
      [b]if[/b] StrToInt(tmp_style[4]) = 1 [b]then[/b]
        Highlight.Style := [fsUnderline];
      [b]if[/b] StrToInt(tmp_style[5]) = 1 [b]then[/b]
        Highlight.Style := [fsStrikeOut];
    [b]finally[/b]
      FreeAndNil(tmp_style);
    [b]end[/b];
  [b]finally[/b]
    ini.Free;
  [b]end[/b];
  result := TRUE;
[b]end[/b];