4075 |
|
|
4076 |
antlinIdag, antlinSenere : Integer; |
antlinIdag, antlinSenere : Integer; |
4077 |
|
|
4078 |
XmlFelter : TStrings; |
//XmlFelter : TStrings; |
4079 |
|
XmlFelter : TDictionary<String, Integer>; |
4080 |
|
|
4081 |
begin |
begin |
4082 |
|
|
4083 |
|
|
4084 |
XmlFelter := TStringList.Create; |
XmlFelter := TDictionary<String, Integer>.Create; |
4085 |
pakketyper := TDictionary<String, Integer>.Create; |
pakketyper := TDictionary<String, Integer>.Create; |
4086 |
|
|
4087 |
linienr := 0; |
linienr := 0; |
4088 |
ListBox2.Clear; |
ListBox2.Clear; |
4089 |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Henter oversigt over pakker der endnu ikke er modtaget'); |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Henter oversigt over pakker der endnu ikke er modtaget'); |
4159 |
if Node.NodeType = ntElement then begin |
if Node.NodeType = ntElement then begin |
4160 |
if Node.NodeName = 'Stregkode' then |
if Node.NodeName = 'Stregkode' then |
4161 |
begin |
begin |
4162 |
antlin := antlin + 1; |
Inc(antlin); |
4163 |
// 20150306: start |
// 20150306: start |
4164 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4165 |
begin |
begin |
4166 |
if (pos('(', Node.NodeValue) = 0) then |
if (pos('(', Node.NodeValue) = 0) then |
4167 |
begin |
begin |
4168 |
antlinIdag := antlinIdag + 1; |
Inc(antlinIdag); |
4169 |
end |
end |
4170 |
else |
else |
4171 |
begin |
begin |
4172 |
antlinSenere := antlinSenere + 1; |
Inc(antlinSenere); |
4173 |
end; |
end; |
4174 |
end; |
end; |
4175 |
// 20150306: slut |
// 20150306: slut |
4176 |
end; |
end; |
4177 |
end; |
end; |
4178 |
if (XmlFelter.values[Node.NodeName] <> '') then |
if ( XmlFelter.ContainsKey(Node.NodeName) ) then |
4179 |
XmlFelter.values[Node.NodeName] := IntToStr(StrToInt(XmlFelter.values[Node.NodeName]) + 1) |
begin |
4180 |
|
XmlFelter.TryGetValue(Node.NodeName, tmpAntal); |
4181 |
|
XmlFelter.AddOrSetValue(Node.NodeName, tmpAntal + 1); |
4182 |
|
end |
4183 |
else |
else |
4184 |
XmlFelter.values[Node.NodeName] := '1'; |
begin |
4185 |
|
XmlFelter.Add(Node.NodeName, 1); |
4186 |
|
end; |
4187 |
|
|
4188 |
end; |
end; |
4189 |
antalLiniefelter := XmlFelter.Count; |
antalLiniefelter := XmlFelter.Count; |
4271 |
end; |
end; |
4272 |
end; |
end; |
4273 |
|
|
4274 |
|
Application.Processmessages; //Ugly Hack to improve User Experience when switching modes |
4275 |
|
|
4276 |
|
|
4277 |
for pakketype in pakketyper.Keys do |
for pakketype in pakketyper.Keys do |
4278 |
begin |
begin |