position vom komma

[EWeiss]

Nicht hauen

Jetzt gehts!
Poste das nochmal für andere die auch so ein ähnliches problem haben.

Delphi-Quellcode:

procedure FillList;
Var
  P : Integer;
  X : Integer;

begin
    with WStyleList do
    begin
       Add('WS_BORDER' + ',' +  format('$%8.8x', [WS_BORDER]));
       Add('WS_DLGFRAME' + ',' +  format('$%8.8x', [WS_DLGFRAME]));
       Add('WS_EX_TOOLWINDOW' + ',' +  format('$%8.8x', [WS_EX_TOOLWINDOW]));
       Add('WS_THICKFRAME' + ',' +  format('$%8.8x', [WS_THICKFRAME]));
       Add('WS_SIZEBOX' + ',' +  format('$%8.8x', [WS_SIZEBOX]));
    end;

    For P := 0 To WStyleList.Count - 1 do
    begin
        X := pos(',',WStyleList.Strings[P]);
        WValue.Add(AnsiMidStr(WStyleList.Strings[P], X + 1, strlen(PChar(WStyleList.Strings[P]))));
        WStyleList.Strings[P] := AnsiMidStr(WStyleList.Strings[P], 1, X - 1);
        messagebox(0, PChar(WValue.Strings[p]),PChar('test'),MB_OK or MB_ICONERROR );
    end;

end;

Mich wundert nur das 'WS_THICKFRAME' und 'WS_SIZEBOX' den gleichen wert besitzen
schon seltsam ...
Das convertieren der Variablen in Delphi nervt ganz schön
Sehe bald vor lauter Klammern den Wald(Source) nicht mehr

gruss