Код: Выделить всё
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;