Форум: "Начинающим";
Текущий архив: 2010.10.31;
Скачать: [xml.tar.bz2];

Вниз

Что-то глючит, AV непонятно-плавающий.   Найти похожие ветки 

← →
12 ©   (2010-08-05 11:30) [0]

написал
     
         for i := 0 + sgView.FixedRows to sgView.RowCount - 1 do
         begin
            if TryToNumber(sgView.Cells[WorkCol,i], sTmp)
             then sgView.Cells[WorkCol,i] := sTmp;          // AV!!
         end;

Function TryToNumber(const S:String; Var SS:string):Boolean;
var
 F: double;
begin
 Result := True;
 SS := S;
 SS := StringReplace(SS,".",DecimalSeparator,[rfReplaceAll]);
 SS := StringReplace(SS,",",DecimalSeparator,[rfReplaceAll]);
 SS := StringReplace(SS,"/",DecimalSeparator,[rfReplaceAll]);
 SS := StringReplace(SS,"?",DecimalSeparator,[rfReplaceAll]);
 SS := StringReplace(SS,"<",DecimalSeparator,[rfReplaceAll]);
 SS := StringReplace(SS,">",DecimalSeparator,[rfReplaceAll]);
 SS := StringReplace(SS,"б",DecimalSeparator,[rfReplaceAll]);
 SS := StringReplace(SS,"ю",DecimalSeparator,[rfReplaceAll]);
 SS := StringReplace(SS,"Б",DecimalSeparator,[rfReplaceAll]);
 SS := StringReplace(SS,"Ю",DecimalSeparator,[rfReplaceAll]);
 if not TextToFloat(PChar(SS), F, fvExtended) then
 begin
   Result := false;
   SS := "";
 end;
end;

----------------------
написал
     2:begin //цена
         for i := 0 + sgView.FixedRows to sgView.RowCount - 1 do
         begin
           if TryToNumber("5*88",sTmp) then ShowMessage(sTmp);
           if TryToNumber("11.33",sTmp) then ShowMessage(sTmp);
нормально, выдает(2) или нет(1) окошко

написал, как было
     
         for i := 0 + sgView.FixedRows to sgView.RowCount - 1 do
         begin
            if TryToNumber(sgView.Cells[WorkCol,i], sTmp)
             then sgView.Cells[WorkCol,i] := sTmp;      
         end;

нет AV!!!

Вчера тоже самое было в другом случае, ну, что-то аналогичное

---

← →
Игорь Шевченко ©   (2010-08-05 11:34) [1]

предлагаешь поработать за тебя отладчиком ? а денег хватит на оплату ?

---

← →
Anatoly Podgoretsky ©   (2010-08-05 11:38) [2]

WorkCol неизвестное значение.

---

← →
12 ©   (2010-08-05 11:52) [3]

первым делом туда слазил

под отладчиком все верно:WorkCol известен, sTmp вернулся
вообще, ошибку повторить уже не удается

но она была же ...

---

← →
Anatoly Podgoretsky ©   (2010-08-05 11:58) [4]

> 12  (05.08.2010 11:52:03)  [3]

Я еще раз говорю, что неизвестен и живет сам по себе. Ничего о нем до
момента использования неизвестно.

---

← →
12 ©   (2010-08-05 14:56) [5]

WorkCol сделал свойством на WC
property WorkCol:integer read GetWC write SetWC;

WC на создании формы сделал = -1

function TfrmNewPrice.GetWC: integer;
begin
 if WC = -1 then Exception.Create("WC = -1 !!!");
 Result := WC;
end;

пока ничего, ошибка так и не появляется

---

← →
Anatoly Podgoretsky ©   (2010-08-05 15:12) [6]

> 12  (05.08.2010 14:56:05)  [5]

Не хотел верить мне.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2010.10.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.003 c