Fix for importing from vcf

zbyna · Dec 7, 2018 · b13facd · b13facd
1 parent 04c0c6d
commit b13facd
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/unit1.pas b/unit1.pas
@@ -939,6 +939,12 @@ procedure TForm1.MenuItemImportNormalClick(Sender: TObject); {import z vcf norm
                       Zquery1.FieldByName('MOBIL').AsString:=pMob;
                       ZQuery1.Post;// v BeforePost se vytvoří THistoryItem;
                       multiPolozkaHistorie:=True; // aby přidávalo do té samé položky historie
+                      // je třeba vyčistit všechny použité proměnné pro nalezené texty
+                      pPri:='';
+                      pJme:='';
+                      pDom:='';
+                      pPra:='';
+                      pMob:='';
                       continue;
                     end
                                                 else