iBase.ru Forum

Код: Выделить всё

 DATA.State.SelectSQL.Text := 'SELECT * FROM STATE where City_ = 'Almaty' and TIME_ >= '''+DateToStr(edtDateS.Date)+' '+edtTimeS.Text+''' and TIME_ <= '''+DateToStr(edtDatePo.Date)+' '+edtTimePo.Time+'''';
 DATA.State.Open;
 DATA.State.First;
 while not DATA.State.Eof do
 begin
   b := false;
   for i := 0 to strl.Count-1 do
     if DATA.CmpStr(DATA.State.FieldByName('City_').AsString+':'+DATA.State.FieldByName('Organization_').AsString,strl.Strings[i ]) then
       b := true;
     if not b then
       strl.Add(DATA.State.FieldByName('City_').AsString+':'+DATA.State.FieldByName('Organization_').AsString);
   DATA.State.Next;
 end;