dim

Пользователи
  • Публикаций

    43
  • Зарегистрирован

  • Посещение

Информация о dim

  • Звание
    Продвинутый пользователь

Посетители профиля

353 просмотра профиля
  1. спасибо, и в правду так проще, возвращаюсь назад в будущее )
  2. есть IdHTTPServer который формирует страницу с формой при нажатии Submit пытаюсь обработать ответ и если есть кириллица в поле то она возвращает не то что вводим если в форме ввести 011к marsh:=ARequestInfo.Params.Values['marsh']; то на выходе 011ê. пробовал TIdURI.ParamsEncode не работает через online раскодировщики определил что это WINDOWS-1252, как получить ее в нормальной кодировке? заголовок страницы AResponseInfo.ContentEncoding := 'windows-1251'; AResponseInfo.ContentType := 'text/html; charset=windows-1251'; AResponseInfo.ContentLanguage := 'ru'; AResponseInfo.CharSet := 'windows-1251';
  3. какой еще пример привести? я и так привел пример кода всей процедуры, написал какие значения получает переменная rz:=Length(CartList); возвращает 1 соответственно for iio := 0 to rz-1 do begin должен быть цикл от 0 до 0 (1-1=0) но он делает цикл от 1 до 0 если я делаю for iio := 1 to rz do begin то он делает от 2 до 1 значения iio я смотрю в отладчике я уже не знаю как описать ситуацию более понятно для Вас и отстаньте от CartList она вообще тут не причем, я так же делал и rz:=1;
  4. блииииин, еще раз говорю CartList не имеет отношения к вопросу, вопрос касается цикла
  5. ну дык CartList - локальная переменная. не инициализирована. ну я же отделил ... это значит она объявлена где то еще и там все с ней сделано по ней как раз проблем нет, проблема в цикле. я пока другим циклом сделал while , а там "шамана надо вызывать" хотя в других процедурах for работает штатно
  6. TCartList = array of TRec; ... var lb:TListBoxItem; rz:integer; iio:integer; CartList:TCartList; Rec:TRec; begin if CartList<>nil then begin rz:=Length(CartList); for iio := 0 to rz-1 do begin Rec:=CartList[iio]; end; end; end; все банально
  7. потому что это не важно, проблема в том, что for iio := 0 to rz do begin назначает iio=1 и цикл не выполняет (rz=0 это написано) причем если делаешь for iio := 1 to rz+1 do begin, в просмотре показывает iio=2 и цикл опять не выполняется такое ощущение что firemonkey сошла сума
  8. блин, что делаю не так (под андроид) var iio:integer; begin rz:=High(CartList);// возвращает 0 хотя есть 1 запись в массиве for iio := 0 to rz do begin // цикл не выполняется так как iio=1 в отладчике end; уже всю голову сломал подскажите что не так
  9. string[x] или shortstring и все будет писаться (в обычной Delphi)
  10. в моем коде акцент не на запись в файл (это я для примера вставил, даже не смотрел будет ли работать), а на объявление переменной f:file of TMyRec которую с строками я не могу выполнить. Да можно извратиться вместо string объявить array[1..25] of char, но это усложняет реализацию. и haword прав, когда тупо надо скинуть массив в файл то такая запись работает проще и быстрее
  11. пришлось через ini делать, просто сроки поджимают по этому надо то что быстро реализовать и будет работать по поводу хранить в JSON надо будет реализовать на будущее, вот почему в FireMonkey все через ....
  12. Подскажите как сохранить в файл типизированный массив под андроид, раньше делал: TMyRec = record id : string; name : string; nomer : string; fio : string; end; TMyList = array of TMyRec; MyList:TMyList; ...... f:file of TMyRec; MyRec:TMyRec; begin AssignFile(F,path); Rewrite(F); Seek(F,0); rz:=High(MyList); for i := 0 to rz do begin MyRec:=MyList[i]; Write(F,MyRec); end; для андроида этот код не работает ошибка на f:file of TMyRec; так как использую string (string[x] и shortstring тоже не подходит) подскажите как можно еще массив сохранить в файл и считать его потом
  13. Ups, блин убил пару дней
  14. в смысле обман? я гружу файл в StringList, а потом его помещаю в XML