Kalunko K Kalunko Регистрация 2 Авг 2013 Сообщения 83 Репутация 0 Спасибо 0 Монет 0 10 Авг 2016 #1 function CharToOemInc(var pwStr: PWSTR): AnsiString; var buf: array [0 .. 255] of AnsiChar; begin CharToOemW(pwStr, @buf); Result := buf; Inc(pwStr, Length(Result) + 1); end;
function CharToOemInc(var pwStr: PWSTR): AnsiString; var buf: array [0 .. 255] of AnsiChar; begin CharToOemW(pwStr, @buf); Result := buf; Inc(pwStr, Length(Result) + 1); end;
deliicik D deliicik Регистрация 29 Окт 2013 Сообщения 87 Репутация 0 Спасибо 0 Монет 0 10 Авг 2016 #2 inc увеличивает значение Позитивный голос 0