position vom komma

[EWeiss]

Zitat von mkinzler:

Was ist P. Steht noch mehr in der Stringliste? Was ist al Delimiter eingestellt?

p und x ist ein integer..
delemiter ist das komma

hier die ganze procedure Sorry hätte ic hauch direkt posten können.

Delphi-Quellcode:

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

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

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

end;