Текущий архив: 2004.06.13;
Скачать: CL | DM;

Вниз

[Warning] Unit2.pas(44): Unsafe type TBookmark    Найти похожие ветки 

← →
KADAN   (2004-05-22 10:39) [0]

Драссе, господа, мож я совсем отупел, подскажите че от меня хотят...

var i:integer;
   bm:TBookmark;
   sql:string;
begin
 bm:=MainQuery.GetBookmark;
 SecondQuery.SQL.Clear;
 sql:="update tb_"+NowShown+" set kaf_id="+inttostr(TMenuItem(sender).Tag)+
 " where id";
 if MainGrid.CheckCount>0 then begin
   sql:=sql+" in (";
   i:=0;
   while i<MainGrid.CheckCount-1 do begin
     sql:=sql+inttostr(MainGrid.CheckedItems[i])+", ";
     inc(i);
   end;
   sql:=sql+inttostr(MainGrid.CheckedItems[i])+")";
 end else sql:=sql+"="+MainQuery.fieldbyname("id").AsString;
 secondquery.sql.add(sql);
 SecondQuery.ExecSQL;
 MainQuery.Requery();
 if MainQuery.BookmarkValid(bm) then MainQuery.GotoBookmark(bm);
end;

чем же мой букмарк небезопасен?

---

← →
jack128 ©   (2004-05-22 10:42) [1]

это предупреждение, что в Delphi.NET твой код не скомпилируется..Где то в опциях можно отключить warning"и по поводу несовместимости с .NET

---

← →
KADAN ©   (2004-05-22 10:48) [2]

> jack128
Хочешь сказать, бояться нечего и нужно просто не обращать внимания?

---

← →
jack128 ©   (2004-05-22 10:52) [3]

> Хочешь сказать, бояться нечего и нужно просто не обращать
> внимания
ну если ты не планируешь переписывать свою прогу под .NET, то можешь плевать на эти варнинги с высокой колокольни..Но лудше оключи их, чтоб глаза не мазолили - меня варнинги просто БЕСЯТ!! :-))

---

← →
KADAN ©   (2004-05-22 10:55) [4]

ок, так и сделаю :) сенкс

---

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

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.034 c