dim

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

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

  • Посещение

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

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

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

323 просмотра профиля
  1. какой еще пример привести? я и так привел пример кода всей процедуры, написал какие значения получает переменная 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;
  2. блииииин, еще раз говорю CartList не имеет отношения к вопросу, вопрос касается цикла
  3. ну дык CartList - локальная переменная. не инициализирована. ну я же отделил ... это значит она объявлена где то еще и там все с ней сделано по ней как раз проблем нет, проблема в цикле. я пока другим циклом сделал while , а там "шамана надо вызывать" хотя в других процедурах for работает штатно
  4. 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; все банально
  5. потому что это не важно, проблема в том, что for iio := 0 to rz do begin назначает iio=1 и цикл не выполняет (rz=0 это написано) причем если делаешь for iio := 1 to rz+1 do begin, в просмотре показывает iio=2 и цикл опять не выполняется такое ощущение что firemonkey сошла сума
  6. блин, что делаю не так (под андроид) var iio:integer; begin rz:=High(CartList);// возвращает 0 хотя есть 1 запись в массиве for iio := 0 to rz do begin // цикл не выполняется так как iio=1 в отладчике end; уже всю голову сломал подскажите что не так
  7. string[x] или shortstring и все будет писаться (в обычной Delphi)
  8. в моем коде акцент не на запись в файл (это я для примера вставил, даже не смотрел будет ли работать), а на объявление переменной f:file of TMyRec которую с строками я не могу выполнить. Да можно извратиться вместо string объявить array[1..25] of char, но это усложняет реализацию. и haword прав, когда тупо надо скинуть массив в файл то такая запись работает проще и быстрее
  9. пришлось через ini делать, просто сроки поджимают по этому надо то что быстро реализовать и будет работать по поводу хранить в JSON надо будет реализовать на будущее, вот почему в FireMonkey все через ....
  10. Подскажите как сохранить в файл типизированный массив под андроид, раньше делал: 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 тоже не подходит) подскажите как можно еще массив сохранить в файл и считать его потом
  11. Ups, блин убил пару дней
  12. в смысле обман? я гружу файл в StringList, а потом его помещаю в XML
  13. сделал через ls:=TStringList.Create; ls.LoadFromFile(strXml); XMLDocument1.XML:=ls; все заработало
  14. XMLDocument1.LoadFromXML(strXml); XMLDocument1.Active := True;<== Вот тут и ошибка я пробовал и создавать новый файл (скопировав с оригинала) и символы смотрел уже все нормально но так как файл приходит автоматом и загрузка должна быть без участия пользователя хотелось бы что бы нормально грузило (php ее грузит)