Me and My friends at JB
My Boarland Delphi 5 Enterprise Edition While loading
Why is it so hard to tell the truth ...yet so easy to tell a lie,
why do we sleep in the church..but when the sermon is over we suddenly wake up?
why is it so hard to talk about God...but so easy to talk about sex?
why are we so bored to look at a Christmas magazine..but so easy to read a vibe magazine ?
why is it so easy to delete a godly offline messages ...yet we forward the nasty ones?
why are the churches getting smaller..but yet the bars and clubs are growing ??
think about it..
Just remember God is watching you in his list...
<Code>
procedure TForm1.Button2Click(Sender: TObject);
var
G: TGuid;
begin
CoCreateGuid(G);
end;
<\Code>
--
Bill
Bill Todd (TeamB)
(TeamB cannot respond to questions received via email)
Source:
Click here
This is a great description I got from Patti's Blog about "GEEK":
Now, don't stress just yet. I know that the term "GEEK" has been used in the past as an insult or a stereo-type for losers. However, the term "GEEK" has taken on new meaning over the past few years.
A GEEK is anyone who takes pride in what they do... and is actually good at it. GEEK is not to be confused with the term "NERD". Nerds are the people who got wedgies in high school and then would run home crying. A GEEK is someone who got a wedgie in high school, then went home and crashed the "Wedgor's" computer... or would mix a concoction in chemistry class that would give the assailant severe diarrhea for a week.
A GEEK is someone you call when your computer breaks. GEEKS are the people you contact to help you build a web site or save a database. GEEKS run the computer network at your place of work. A GEEK can be found hosting a mass LAN party. GEEKS write programs that balance your checkbook, organize your files and store/retrieve information... and restarts your computer more often so that you don't have to. A GEEK is someone you call when you have any kind of technological question. GEEKS are respected by others and are in high demand. GEEKS know what they are doing. Nerds are clueless little imps that can't tell the difference between Barney the purple dinosaur and Tux the (LINUX) penguin.
GEEK is a rockin' term, and to be a GEEK is a far greater compliment than any other. Because being a GEEK does not only mean you are good looking... but it also means that you are good at what you do.
All GEEKS should respect one another. These days, the geeks are having their revenge. Rich and successful geeks are everywhere, or at least they appear to be. There is even a Geek Pride Festival, a celebration of all things GEEK. That is why I'm rounding up all of the GEEK .. we need to stand up and shout it…
Source: http://www.geekgirldigest.com/America rubs salt in our wounds!
If I have seen further, it is by standing upon the shoulders of giants
Jeremy Collin's Code:
const
InvalidFieldTypes = [ftMemo, ftBlob, ftGraphic, ftFmtMemo,
ftParadoxOle,
ftDBaseOle, ftTypedBinary];
function TableToText(const tbl : TDataset; FileName : string;
Delimiter : Char; FieldNames : boolean): boolean;
var
f : TextFile;
i : integer;
bmk : TBookmark;
begin
if not(tbl.Active) then
tbl.Open;
bmk := tbl.GetBookMark;
AssignFile(f, Filename);
ReWrite(f);
try
with tbl do begin
if FieldNames then begin //write field names to top of file
for i := 0 to FieldDefs.Count - 1 do
if not(FieldDefs[i].DataType in InvalidFieldTypes) then begin
Write(f, UpperCase(FieldDefs[i].Name));
if i < FieldDefs.Count - 1 then
Write(f, Delimiter);
end;
WriteLn(f);
end;
//write field data
First;
while not Eof do begin
for i := 0 to FieldDefs.Count - 1 do begin
if not(FieldDefs[i].DataType in InvalidFieldTypes) then begin
Write(f, '"' + Fields[i].AsString + '"');
if i < FieldDefs.Count - 1 then
Write(f, Delimiter);
end;
end;
WriteLn(f);
Next;
end;
Result := True;
end;
finally
tbl.GotoBookmark(bmk);
tbl.FreeBookmark(bmk);
CloseFile(f);
end;
end;
--
Sorry it took a while to publish this as I was continuously involved with a hectic schedule and hardly got a time to write freely.
2005 remarked a great era for cricket. Many milestones were achieved and many extraordinary things happened. Overall it’s been good for cricket and we are happy to see some good cricket matches. I take this opportunity to rate top 5 best things happened in 2005 in my perspective.
Rise from the Ashes:
This is simply best cricket series I ever had seen. It got all from excitement to thrill to anticipation to disappointment. England had to wait for 18 years to achieve this feat again, and boy the way they did it is awesome. Freddie Flintoff, Kevin Petersen, Simon Jones was at their peak. This is the same time when England found out their new revelation of reverse swing. You can’t take Shane Warne off the screen in any circumstances, I still remember the way he bowled Andrew Strauss by pitching the ball far from the off side and turned and hit the leg stump in that series, and boy it's amazing. Looking forward for Operation "Demolition in Australia", hope England could repeat their heroics in the next ashes in Australia.
Thrilling Tie in the Final:
Once again it’s an Australia Vs. England show. This time it’s the Shorter version of the game and the finals played for Natwest Series at Lords. The game went to the wire and it was never the end until the last ball has been bowled. Australia was bowled with a highly packed batting line out only managing for mere 196 and England were at one stage were 33 runs with 5 wickets down. It was upto Paul Collingwood and Geraint Jones who had a 116 runs partnership for the 5th wicket, though they weren’t the heros of the particular day was Ashley Giles who snicked a 2 run leg bye off the last ball of the last over.
New Kid on the Block: Michael Hussey:
Frankly, had to wait until the VB Series is on to see this guy. I heard him when Australia toured England, and was starting to make loud echoes of him. What impressed me about him was his never say die attitude. Though he might be a Michael Bevan sought of a guy, he has more than him. His ability to have the big hits on time is quite impressing and he can’t simply stay in a place always in the run. I still remember the way hit that big hit in Telstra dome, and eventually it wasn't decided as six! That was disappointing.
Bangladesh's win over Australia:
Don’t ever think that your day dreaming. This happened, and every one was shocked to hear this news. It’s like a ant pulling off an elephant. Anyway, Bangladeshi put up a good show, hats off to them, but it’s very disappointing to see good performances by more often. Ashrafull scored an unbeaten century to pull off a shocker.
Return of Brian Charles Lara:
He is my favorite and he will be. I'll be glued to the TV when he is on song. I like to see every shot he plays. He went on a poor form in 2005, particularly in the Super Series, but he came back strongly with 231 Vs. Australia in Adelaide despite Australia trouncing the West Indies to win the series 3-nil. It’s very sad that even big score scored by a batsmen still ends up in the loosing side. Further, he announced that this would be his final tour to Australia. He still is the best.
Your comments and suggestions are most welcomed.
Regards,
Hifni Shahzard Nazeer, M.