string - Delphi - Using Functions in CASE statements -


in delphi 10 / seattle, trying nested string test...i have string, product name. need find product category based on product name. case insensitive, , each product in 1 category. once find category, can stop checking...my initial approach via ansicontainstext within case statement, not allowed since there no common function case statement...

i have approach should work, there little more elegant? have 40 different tests category, , running (looping through) test on 6000 products, want performant possible.

      // determine new value...       category := '';       if ((category = '') , (ansicontainstext(producttext, 'paas'))  category := 'paas';       if ((category = '') , (ansicontainstext(producttext, 'iaas'))  category := 'iaas';       if ((category = '') , (ansicontainstext(producttext, 'saas'))  category := 'saas'; ...

outsource it!

function findcategory(const productname: string): string; const   categories: tarray<string> = ['paas', 'iaas', 'saas']; // can extended var   s: string; begin   s in categories begin     if containstext(productname, s) exit(s)   end;   result := ''; end;

Comments

Post a Comment

Popular posts from this blog

aws api gateway - SerializationException in posting new Records via Dynamodb Proxy Service in API -

i getting "__type": "com.amazon.coral.service#serializationexception" as reply in postman & in test console in api gateway trying post record directly dynamodb using api proxy services.. referring aws article - https://aws.amazon.com/blogs/compute/using-amazon-api-gateway-as-a-proxy-for-dynamodb/ here's mapping { "tablename": "tablenamegoeshere", "item": { "id" : "$context.requestid" "eventname" : "$input.path('$.eventname')", "timestamp" : $input.path('$.timestamp'), "answers": "$util.parsejson($input.path('$.answers'))" } } update: did asked ... , worked if try add array of json objects gives me above same error - here's trying now. please - couldnt find on google well #set($inputroot = $input.path('$')) { "tablename": "answer", "item": {
Read more

asp.net - Problems sending emails from forum -

i have been redesigning site has message board, has been written guy looked after site. it has few problems , written in .asp , uses .mdb files database. you can see whole thing here . feel free post if helps, test thing have set using original files , new database. the basic problem when posts message, supposed email sent them, have posted it. when replies, originator supposed message, replier has been posted. i’d have thought @ point in process there should script/file in postmessage.asp? the postmessage.asp page below. <% option explicit %> <!-- #include virtual="common/adovbs.inc" --> <html> <head> <meta http-equiv="content-type" content="text/html; charset=windows-1252"> <meta name="generator" content="microsoft frontpage 4.0"> <meta name="progid" content="frontpage.editor.document"> <title>new page 2</title> <base target="_self"
Read more