/[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 2976 by torben, Wed Feb 3 15:13:55 2016 UTC revision 2977 by torben, Tue Mar 15 13:44:38 2016 UTC
# Line 1146  begin Line 1146  begin
1146    
1147    if Key = #13 then     // Enter    if Key = #13 then     // Enter
1148    begin    begin
1149      if (Length(Trim(Stregkode)) = 0) then  
1150        // Sikre at den er trimmet inden vi går videre - DBK kan finde på at encode et space i enden af deres barcodes
1151        Stregkode := Trim(Stregkode);
1152    
1153        if (Length(Stregkode) = 0) then
1154      begin      begin
1155        VisAlarmSkaerm( 'Der skal scannes en stregkode...' );        VisAlarmSkaerm( 'Der skal scannes en stregkode...' );
1156    
Legend:
Removed from v.2976  
changed lines
  Added in v.2977
  ViewVC Help
Powered by ViewVC 1.1.20