<?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/"
	xmlns:georss="http://www.georss.org/georss" xmlns:geo="http://www.w3.org/2003/01/geo/wgs84_pos#" xmlns:media="http://search.yahoo.com/mrss/"
	>

<channel>
	<title>Suwena BLOG &#187; copy</title>
	<atom:link href="http://suwena.wordpress.com/tag/copy/feed/" rel="self" type="application/rss+xml" />
	<link>http://suwena.wordpress.com</link>
	<description>Iseng-iseng</description>
	<lastBuildDate>Fri, 03 Apr 2009 12:46:18 +0000</lastBuildDate>
	<generator>http://wordpress.com/</generator>
	<language>id</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<cloud domain='suwena.wordpress.com' port='80' path='/?rsscloud=notify' registerProcedure='' protocol='http-post' />
<image>
		<url>http://www.gravatar.com/blavatar/27a05a8c6b4dbd3debdf11d85f78cb55?s=96&#038;d=http://s.wordpress.com/i/buttonw-com.png</url>
		<title>Suwena BLOG &#187; copy</title>
		<link>http://suwena.wordpress.com</link>
	</image>
	<atom:link rel="search" type="application/opensearchdescription+xml" href="http://suwena.wordpress.com/osd.xml" title="Suwena BLOG" />
		<item>
		<title>Merubah Kalimat</title>
		<link>http://suwena.wordpress.com/2008/06/06/merubah-kalimat/</link>
		<comments>http://suwena.wordpress.com/2008/06/06/merubah-kalimat/#comments</comments>
		<pubDate>Fri, 06 Jun 2008 01:13:36 +0000</pubDate>
		<dc:creator>suwena</dc:creator>
				<category><![CDATA[String]]></category>
		<category><![CDATA[case]]></category>
		<category><![CDATA[copy]]></category>
		<category><![CDATA[function]]></category>
		<category><![CDATA[kalimat]]></category>
		<category><![CDATA[title]]></category>
		<category><![CDATA[upper]]></category>

		<guid isPermaLink="false">http://suwena.wordpress.com/?p=12</guid>
		<description><![CDATA[Function ini digunakan untuk merubah setiap huruf pada awal kata menjadi huruf besar (Title Case)
Function UbahKalimat(StrInput:String) : String;
Var I : Integer;
 stmp : String;
begin
 Stmp:=&#8221;;
 Stmp:=Uppercase(copy(StrInput,0,1));
 For I:=2 to Length(StrInput) do
 Begin
 If copy(StrInput,i-1,1)=&#8217; &#8216; then
 Begin
 stmp:=Stmp+Uppercase(Copy(StrInput,i,1));
 End else
 Begin
 stmp:=Stmp+lowercase(Copy(StrInput,i,1));
 End;
 End;
 Result:=Stmp;
end;
Contoh Penggunaannya :
Var str : String;
Begin
str := &#8220;selamat datang&#8221;;
Edit1.text := UbahKalimat(str);
Edit2.text [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=suwena.wordpress.com&blog=2853839&post=12&subd=suwena&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://suwena.wordpress.com/2008/06/06/merubah-kalimat/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="" medium="image">
			<media:title type="html">suwena</media:title>
		</media:content>
	</item>
	</channel>
</rss>