Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.47 MB
Время: 0.023 c
14-1085370471
SammIk
2004-05-24 07:47
2004.06.13
Гребанные вирусы


14-1085815415
Mad Dancer
2004-05-29 11:23
2004.06.13
Колосоккер


11-1075121861
sams
2004-01-26 15:57
2004.06.13
Наследование


1-1086001666
Sandman25+1
2004-05-31 15:07
2004.06.13
Инициализация AnsiString


14-1085372303
defen
2004-05-24 08:18
2004.06.13
GeForce4 MX 440