/[projects]/dao/DelphiScanner/Main.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Main.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3055 by torben, Mon Jun 27 12:18:07 2016 UTC revision 3056 by torben, Mon Jun 27 12:21:43 2016 UTC
# Line 1840  begin Line 1840  begin
1840        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1841          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1842          begin          begin
1843              wrkAntalSenere := 0;//initial Value
1844    
1845            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1846            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
# Line 4203  var Line 4204  var
4204    I: Integer;    I: Integer;
4205    stregkode, modtagernavn, modtageradresse, kommentar : string;    stregkode, modtagernavn, modtageradresse, kommentar : string;
4206    pakketype, tjekkodestatus : String;    pakketype, tjekkodestatus : String;
4207    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    antalLiniefelter, antalFelterFundet, linienr : Integer;
4208    //pakketyper : TStrings;    //pakketyper : TStrings;
4209    pakketyper : TDictionary<String, Integer>;    pakketyper : TDictionary<String, Integer>;
4210    tmpAntal : Integer;    tmpAntal : Integer;
Legend:
Removed from v.3055  
changed lines
  Added in v.3056
  ViewVC Help
Powered by ViewVC 1.1.20