{"id":133,"date":"2018-02-19T05:37:38","date_gmt":"2018-02-19T05:37:38","guid":{"rendered":"http:\/\/basicwebsitesolutions.com\/blog\/?p=133"},"modified":"2018-02-19T05:37:38","modified_gmt":"2018-02-19T05:37:38","slug":"delphi-parse-or-explode-a-string-based-on-a-parameter-field","status":"publish","type":"post","link":"https:\/\/basicwebsitesolutions.com\/blog\/2018\/02\/19\/delphi-parse-or-explode-a-string-based-on-a-parameter-field\/","title":{"rendered":"Delphi : Parse or Explode a string based on a parameter field"},"content":{"rendered":"

this is a small code that i put together to convert the date time format of “2017-11-18 08:25” to the date time format that i am using right now which is “11\/18\/2017 8:25:00 AM”.\u00a0 For now i will make due with this one and so far it works.<\/p>\n

enjoy,<\/p>\n

coffee cup<\/p>\n

 <\/p>\n

 <\/p>\n

var
\nvDATE : TDateTime;
\nvPOS : Integer;
\nvList : TStrings;
\nbegin
\n\/\/convert from 2017-11-18 08:25
\n\/\/convert to 11\/18\/2017 8:25:00 AM<\/p>\n

vPOS := POS(‘ ‘, edtDATE_ORIG.Text);<\/p>\n

edtDATE_CHOP.Text := Trim(Copy(edtDATE_ORIG.Text,1, vPOS));
\nedtTIME_CHOP.Text := Trim(Copy(edtDATE_ORIG.Text,vPOS + 1, 100));<\/p>\n

vList := TStringList.Create;
\ntry
\nExtractStrings([‘-‘], [], PChar(edtDATE_CHOP.Text), vList);<\/p>\n

edtYEAR.Text := vList.Strings[0];
\nedtMONTH.Text := vList.Strings[1];
\nedtDAY.Text := vList.Strings[2];<\/p>\n

\/\/year, month, day
\nedtDATE_CURR.Text := edtMONTH.Text + ‘\/’ + edtDAY.Text + ‘\/’ + edtYEAR.Text;
\nvDATE := StrToDateTime(edtDATE_CURR.Text + ‘ ‘ + edtTIME_CHOP.Text);
\nedtDATETIME.Text := DateTimeToStr(vDATE);<\/p>\n

finally
\nvList.Free;
\nend;<\/p>\n","protected":false},"excerpt":{"rendered":"

this is a small code that i put together to convert the date time format of “2017-11-18 08:25” to the date time format that i am using right now which is “11\/18\/2017 8:25:00 AM”.\u00a0 For now i will make due with this one and so far it works. enjoy, coffee cup     var vDATE … <\/p>\n

Continue reading “Delphi : Parse or Explode a string based on a parameter field”<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4,3,2],"tags":[],"class_list":["post-133","post","type-post","status-publish","format-standard","hentry","category-day-to-day-life","category-delphi-and-interbase","category-windows-and-beyond"],"_links":{"self":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts\/133","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/comments?post=133"}],"version-history":[{"count":1,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts\/133\/revisions"}],"predecessor-version":[{"id":134,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts\/133\/revisions\/134"}],"wp:attachment":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/media?parent=133"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/categories?post=133"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/tags?post=133"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}