<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>X-pack.org &#187; Strings</title>
	<atom:link href="http://home.x-pack.org/category/free-source-code/delphi/strings/feed/" rel="self" type="application/rss+xml" />
	<link>http://home.x-pack.org</link>
	<description>Download all you need here</description>
	<lastBuildDate>Fri, 18 May 2012 11:09:35 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.2.1</generator>
		<item>
		<title>[ Delphi ] – Highlight HTML-Tags in TRichEdit</title>
		<link>http://home.x-pack.org/delphi-highlight-html-tags-in-trichedit/</link>
		<comments>http://home.x-pack.org/delphi-highlight-html-tags-in-trichedit/#comments</comments>
		<pubDate>Tue, 04 May 2010 09:00:38 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Strings]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=21</guid>
		<description><![CDATA[procedure HTMLSyntax(RichEdit: TRichEdit; TextCol, TagCol, DopCol: TColor); var i, iDop: Integer; s: string; Col: TColor; isTag, isDop: Boolean; begin iDop := 0; isDop := False; isTag := False; Col := TextCol; RichEdit.SetFocus; for i := 0 to Length(RichEdit.Text) do begin RichEdit.SelStart := i; RichEdit.SelLength := 1; s := RichEdit.SelText; if (s = ']]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-highlight-html-tags-in-trichedit/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Validate a float number</title>
		<link>http://home.x-pack.org/delphi-validate-a-float-number/</link>
		<comments>http://home.x-pack.org/delphi-validate-a-float-number/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 09:10:44 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Strings]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=25</guid>
		<description><![CDATA[function StrIsReal(AString: string): Boolean; var I: Extended; Code: Integer; begin Val(AString, I, Code); Result := Code = 0; end; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := '123.222'; if StrIsReal(Edit1.Text) then ShowMessage('Valid float number! Gültige Gleitkommazahl!'); end; procedure TForm1.Button1Click(Sender: TObject); var s: string; f: double; begin s := '123.222'; if TryStrToFloat(s, f) then ShowMessage('Ok!') else ShowMessage('No valid]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-validate-a-float-number/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Format Seconds as (hh:mm:ss)</title>
		<link>http://home.x-pack.org/delphi-format-seconds-as-hhmmss/</link>
		<comments>http://home.x-pack.org/delphi-format-seconds-as-hhmmss/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 08:59:08 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Strings]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=19</guid>
		<description><![CDATA[const &#160;&#160;SecPerDay = 86400; &#160;&#160;SecPerHour = 3600; &#160;&#160;SecPerMinute = 60; function SecondToTime(const Seconds: Cardinal): Double; var &#160;&#160;ms, ss, mm, hh, dd: Cardinal; begin &#160;&#160;dd := Seconds div SecPerDay; &#160;&#160;hh := (Seconds mod SecPerDay) div SecPerHour; &#160;&#160;mm := ((Seconds mod SecPerDay) mod SecPerHour) div SecPerMinute; &#160;&#160;ss := ((Seconds mod SecPerDay) mod SecPerHour) mod SecPerMinute; &#160;&#160;ms :=]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-format-seconds-as-hhmmss/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Encrypt / decrypt passwords</title>
		<link>http://home.x-pack.org/delphi-encrypt-decrypt-passwords/</link>
		<comments>http://home.x-pack.org/delphi-encrypt-decrypt-passwords/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 08:56:24 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Strings]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=13</guid>
		<description><![CDATA[const &#160;&#160;Codes64 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/'; function GeneratePWDSecutityString: string; var &#160;&#160;i, x: integer; &#160;&#160;s1, s2: string; begin &#160;&#160;s1 := Codes64; &#160;&#160;s2 := ''; &#160;&#160;for i := 0 to 15 do &#160;&#160;begin &#160;&#160;&#160;&#160;x&#160;&#160;:= Random(Length(s1)); &#160;&#160;&#160;&#160;x&#160;&#160;:= Length(s1) - x; &#160;&#160;&#160;&#160;s2 := s2 + s1[x]; &#160;&#160;&#160;&#160;s1 := Copy(s1, 1,x - 1) + Copy(s1, x + 1,Length(s1)); &#160;&#160;end; &#160;&#160;Result := s2;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-encrypt-decrypt-passwords/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Copy the current line of a Stringgrid into a TEdit</title>
		<link>http://home.x-pack.org/delphi-copy-the-current-line-of-a-stringgrid-into-a-tedit/</link>
		<comments>http://home.x-pack.org/delphi-copy-the-current-line-of-a-stringgrid-into-a-tedit/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 08:54:19 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Strings]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=9</guid>
		<description><![CDATA[procedure TForm1.StringGrid1Click(Sender: TObject); var s: string; begin s := StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row]; if Length(s) > 1 then begin Edit2.Text := s; end; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-copy-the-current-line-of-a-stringgrid-into-a-tedit/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Create speakable random passwords</title>
		<link>http://home.x-pack.org/delphi-create-speakable-random-passwords/</link>
		<comments>http://home.x-pack.org/delphi-create-speakable-random-passwords/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 08:52:31 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Strings]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=5</guid>
		<description><![CDATA[function SpeakAblePassWord: string; const &#160;&#160;conso: array [0..19] of Char = ('b', 'c', 'd', 'f', 'g', 'h', 'j', &#160;&#160;&#160;&#160;'k', 'l', 'm', 'n', 'p', 'r', 's', 't', 'v', 'w', 'x', 'y', 'z'); &#160;&#160;vocal: array [0..4] of Char = ('a', 'e', 'i', 'o', 'u'); var&#160;&#160; &#160;&#160;i: Integer; begin &#160;&#160;Result := ''; &#160;&#160;for i := 1 to 4 do]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-create-speakable-random-passwords/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Know the Last Day of Month</title>
		<link>http://home.x-pack.org/delphi-know-the-last-day-of-month/</link>
		<comments>http://home.x-pack.org/delphi-know-the-last-day-of-month/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 09:21:00 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Strings]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=45</guid>
		<description><![CDATA[uses SysUtils, DateUtils; function getLastDay : TDateTime; begin &#160;&#160;result := EncodeDate(YearOf(Now), MonthOf(Now), MonthDays[IsLeapYear(YearOf(Now)), MonthOf(Now)]); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-know-the-last-day-of-month/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Split text into words</title>
		<link>http://home.x-pack.org/delphi-split-text-into-words/</link>
		<comments>http://home.x-pack.org/delphi-split-text-into-words/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 09:18:02 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Strings]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=39</guid>
		<description><![CDATA[procedure SplitTextIntoWords(const S: string; words: TstringList); var &#160;&#160;startpos, endpos: Integer; begin &#160;&#160;Assert(Assigned(words)); &#160;&#160;words.Clear; &#160;&#160;startpos := 1; &#160;&#160;while startpos &#60;= Length(S) do &#160;&#160;begin &#160;&#160;&#160;&#160;while (startpos &#60;= Length(S)) and not IsCharAlpha(S[startpos]) do &#160;&#160;&#160;&#160;&#160;&#160;Inc(startpos); &#160;&#160;&#160;&#160;if startpos &#60;= Length(S) then &#160;&#160;&#160;&#160;begin &#160;&#160;&#160;&#160;&#160;&#160;endpos := startpos + 1; &#160;&#160;&#160;&#160;&#160;&#160;while (endpos &#60;= Length(S)) and IsCharAlpha(S[endpos]) do &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Inc(endpos); &#160;&#160;&#160;&#160;&#160;&#160;words.Add(Copy(S, startpos, endpos - startpos));]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-split-text-into-words/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Extract words out of a string</title>
		<link>http://home.x-pack.org/delphi-extract-words-out-of-a-string/</link>
		<comments>http://home.x-pack.org/delphi-extract-words-out-of-a-string/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 09:14:47 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Strings]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=33</guid>
		<description><![CDATA[function GetToken(aString, SepChar: string; TokenNum: Byte): string; var &#160;&#160;Token: string; &#160;&#160;StrLen: Integer; &#160;&#160;Num: Integer; &#160;&#160;EndofToken: Integer; begin &#160;&#160;StrLen := Length(aString); &#160;&#160;Num := 1; &#160;&#160;EndofToken := StrLen; &#160;&#160;while ((Num &#60;= TokenNum) and (EndofToken &#60;&#62; 0)) do &#160;&#160;begin &#160;&#160;&#160;&#160;EndofToken := Pos(SepChar, aString); &#160;&#160;&#160;&#160;if EndofToken &#60;&#62; 0 then &#160;&#160;&#160;&#160;begin &#160;&#160;&#160;&#160;&#160;&#160;Token := Copy(aString, 1, EndofToken - 1); &#160;&#160;&#160;&#160;&#160;&#160;Delete(aString, 1,]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-extract-words-out-of-a-string/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Check if a string is a valid date or time</title>
		<link>http://home.x-pack.org/delphi-check-if-a-string-is-a-valid-date-or-time/</link>
		<comments>http://home.x-pack.org/delphi-check-if-a-string-is-a-valid-date-or-time/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 09:13:37 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Strings]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=31</guid>
		<description><![CDATA[function IsDate(str: string): Boolean; var &#160;&#160;dt: TDateTime; begin &#160;&#160;Result := True; &#160;&#160;try &#160;&#160;&#160;&#160;dt := StrToDate(str); &#160;&#160;except &#160;&#160;&#160;&#160;Result := False; &#160;&#160;end; end; function IsTime(str: string): Boolean; var &#160;&#160;dt: TDateTime; begin &#160;&#160;Result := True; &#160;&#160;try &#160;&#160;&#160;&#160;dt := StrToTime(str); &#160;&#160;except &#160;&#160;&#160;&#160;Result := False; &#160;&#160;end; end; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;if IsDate('30.01.2006') then &#160;&#160;begin &#160;&#160;&#160;&#160;ShowMessage('Yes, it is a date.');]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-check-if-a-string-is-a-valid-date-or-time/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Extract numbers from a string</title>
		<link>http://home.x-pack.org/delphi-extract-numbers-from-a-string/</link>
		<comments>http://home.x-pack.org/delphi-extract-numbers-from-a-string/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 08:58:15 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Strings]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=17</guid>
		<description><![CDATA[type &#160;&#160;TCharSet = set of Char; function StripNonConforming(const S: string; &#160;&#160;const ValidChars: TCharSet): string; var &#160;&#160;DestI: Integer; &#160;&#160;SourceI: Integer; begin &#160;&#160;SetLength(Result, Length(S)); &#160;&#160;DestI := 0; &#160;&#160;for SourceI := 1 to Length(S) do &#160;&#160;&#160;&#160;if S[SourceI] in ValidChars then &#160;&#160;&#160;&#160;begin &#160;&#160;&#160;&#160;&#160;&#160;Inc(DestI); &#160;&#160;&#160;&#160;&#160;&#160;Result[DestI] := S[SourceI] &#160;&#160;&#160;&#160;end; &#160;&#160;SetLength(Result, DestI) end; function StripNonNumeric(const S: string): string; begin &#160;&#160;Result := StripNonConforming(S,]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-extract-numbers-from-a-string/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Return the position of the last occurence of a substring in String</title>
		<link>http://home.x-pack.org/delphi-return-the-position-of-the-last-occurence-of-a-substring-in-string/</link>
		<comments>http://home.x-pack.org/delphi-return-the-position-of-the-last-occurence-of-a-substring-in-string/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 08:57:18 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Strings]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=15</guid>
		<description><![CDATA[function LastPos(SubStr, S: string): Integer; var &#160;&#160;Found, Len, Pos: integer; begin &#160;&#160;Pos := Length(S); &#160;&#160;Len := Length(SubStr); &#160;&#160;Found := 0; &#160;&#160;while (Pos &#62; 0) and (Found = 0) do &#160;&#160;begin &#160;&#160;&#160;&#160;if Copy(S, Pos, Len) = SubStr then &#160;&#160;&#160;&#160;&#160;&#160;Found := Pos; &#160;&#160;&#160;&#160;Dec(Pos); &#160;&#160;end; &#160;&#160;LastPos := Found; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-return-the-position-of-the-last-occurence-of-a-substring-in-string/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Count the number of occurrences of a substring within a string</title>
		<link>http://home.x-pack.org/delphi-count-the-number-of-occurrences-of-a-substring-within-a-string/</link>
		<comments>http://home.x-pack.org/delphi-count-the-number-of-occurrences-of-a-substring-within-a-string/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 08:55:10 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Strings]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=11</guid>
		<description><![CDATA[function CountPos(const subtext: string; Text: string): Integer; begin &#160;&#160;if (Length(subtext) = 0) or (Length(Text) = 0) or (Pos(subtext, Text) = 0) then &#160;&#160;&#160;&#160;Result := 0 &#160;&#160;else &#160;&#160;&#160;&#160;Result := (Length(Text) - Length(StringReplace(Text, subtext, ', [rfReplaceAll]))) div &#160;&#160;&#160;&#160;&#160;&#160;Length(subtext); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-count-the-number-of-occurrences-of-a-substring-within-a-string/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Scroll Application Title on TaskBar</title>
		<link>http://home.x-pack.org/delphi-scroll-application-title-on-taskbar/</link>
		<comments>http://home.x-pack.org/delphi-scroll-application-title-on-taskbar/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 08:53:36 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Strings]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=7</guid>
		<description><![CDATA[procedure TForm1.Timer1timer(Sender: TObject); begin &#160;&#160;Application.title := Copy(Application.title, 2,Length(Application.title)) + &#160;&#160;&#160;&#160;Application.title[1]; &#160;&#160;Application.title := Application.title[Length(Application.title)] + &#160;&#160;&#160;&#160;Copy(Application.title, 1,Length(Application.title) - 1); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-scroll-application-title-on-taskbar/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Check if a String is numeric</title>
		<link>http://home.x-pack.org/delphi-check-if-a-string-is-numeric/</link>
		<comments>http://home.x-pack.org/delphi-check-if-a-string-is-numeric/#comments</comments>
		<pubDate>Thu, 04 Feb 2010 09:20:13 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Strings]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=43</guid>
		<description><![CDATA[function IsStrANumber(const S: string): Boolean; var &#160;&#160;P: PChar; begin &#160;&#160;P&#160;&#160;&#160;&#160;&#160;&#160;:= PChar(S); &#160;&#160;Result := False; &#160;&#160;while P^ &#60;&#62; #0 do &#160;&#160;begin &#160;&#160;&#160;&#160;if not (P^ in ['0'..'9']) then Exit; &#160;&#160;&#160;&#160;Inc(P); &#160;&#160;end; &#160;&#160;Result := True; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-check-if-a-string-is-numeric/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

<!-- Performance optimized by W3 Total Cache. Learn more: http://www.w3-edge.com/wordpress-plugins/

Page Caching using disk: enhanced
Database Caching 35/85 queries in 0.062 seconds using disk: basic
Object Caching 811/919 objects using disk: basic

Served from: home.x-pack.org @ 2012-05-19 05:11:42 -->
