Just another way to do this - introducing recursivity (http://en.wikipedia.org/wiki/Recursion):
function Reverse(var value :string; start :integer) :string;
var
StrTmp :string;
begin
if...

Sorry. I'm a stupid. I have talking just the opositive in the post #2.

Now I have tested.
program Project1;
{$R *.res}
uses
Windows,
Messages,
SysUtils,
Variants,

ops... writing in portuguese!!! :icon_cheesygrin:
Sorry by don't answer you before - I was not notified by e-mail.

You will need to write procedure code normally and assigned to the events at...

If You don't have dfm to the form You cannot make by this way. You will need to create your form step-by-step in the source code. Try this:
program Project1;
{$R *.res}
uses
Windows, Messages,...

sheady, take a look at this sample (http://www.swissdelphicenter.ch/torry/showcode.php?id=1655) at Torry's Delphi Pages - there is two ways - the first is more simple.

Rich reference - msdn...

Thank you by this support Duoas. I forgot to explain this.

both is the same thing - pointing to same memory address.

You must use bp to move across memory allocated to pTcpHdr.
If you change...

I'm not sure about Delphi I, but maybe you can do something like this:
var
PtrSource :^Byte;
begin
PtrSource := pTcpHdr;
Inc(PtrSource, sizeof (VPNSEC_HEADER));
Move(pTcpHdr^,...

I think that you can use this procedures (bellow) from System unit:
memmove or memcpy: procedure Move(const Source; var Dest; Count: Integer);

memset: procedure FillChar(var X; Count: Integer;...

Olsi009, start with this changes:
Procedure Kontrollo_listen(Var l:fjale;fj2:str);
Var tmp,tmp2,koka:fjale; c:boolean;
Begin
c:=False;
tmp:=l; koka:=l;
If tmp=nil then
Begin
...

If you omit {$APPTYPE CONSOLE} your application will run in "hidden mode".

Put a icon in systray will exige a window handle to interaction with your application (I think). Is possoble create a...

There is some options:
- use an other query with calculated fields and OnCalcFields event, if you using DBGrid ;
- use join in SQL, if your data is only to be read;
- use an other query to show...

Not all. Only use a query component with restricted SQL instruction - use WHERE clause in order to get only the respective record at once - and in SELECT clause, use only the necessary fields (not...

mfran2002, You can use SetTimer API function to do this and pass 0 (null) to function in hwnd param.

But is necessary that You use the GetMessage and DispatchMessage API's functions in order to...

You can use TMediaPlayer component.
Take a look on this Abolut.com page (http://delphi.about.com/library/bluc/ucappsmultimedia.htm) and download the sample Media Walker.

Bye

jamesbond110, see this points:
- that "end" in the program main block must be ended with point (.), not a semicolon (;)
- your "c" variable is defined like a tClasses (a record type), so You can't...

when you must to initilize it.

You can't.
DisableControls only will "stops" to update any data-aware control connected to this dataset. Moving across dataset will trigger this evento in order to...

mfran2002, the OnTimer event expect that a TNotifyEvent be assigned to it.
see, from the help:
type TNotifyEvent = procedure (Sender: TObject) of object;think it like a procedure of a object. So,...

Does you have looked in the help file and search for OnCalcFields event?

MoZo1, this event occurs in many circumstances and many times. See this small portion:
OnCalcFields is called frequently,...

BDS load some thing; Your app uses it; BDS stop but this "thing" still is used by your app.
It sounds similar to a dll module load by an application...

At this point, when BDS was started, your...

I think that it's the best way to confirme if there is some diferente thing loaded by BSD.

I recommend Process Explorer v11.13...

manutd4life230, just try this:
subtract:= -GetUserInput('Enter another number:') +GetUserInput('Enter a number:');
just because:
Enter a number = 1stValue
Enter another number = 2ndValue

then:...

In design-mode, just drop a TPicture component (Additiona pallete) to your form, then double-click it, click Load... button and select bmp file.

lespitts, may be this help You, but could it not be a better solution.

It is equivalente to press key Print Screen (screen shot):
Keybd_Event(VK_Snapshot, 0, 0, 0);

It is equivalente to press...

Hi simps0n,

Without taking in consideration any others questions, You must to call randomize procedure just an once time in Your project (take a look in help about it).

So, put the call to this...

Hi ecostas, try this my function that simules keyboard pressed:
procedure ForcedDropDownList(OpenList :Boolean);
begin
if OpenList then
begin
keybd_event(VK_MENU, MapVirtualKey(VK_MENU,...

Thew, try to add faDirectory to file attribute search param:
if ALWinInetFTPClient11.FindFirst(Path + FileName, faDirectory or faAnyFile, Rec) = 0 then

Bye

Hi Thew.

first, one of your problem is assigned to wrong value that You pass to Read/Writeblock buffer size parameter. You are using 1, that means You will read or write 1 Byte only - it's not...

There are many time that I stop to use BP/BPW but I think I can help with this thread. Let me try...

Are You sure that the error message shows crt.tpu and not crt.tpw?

I question You about this...

I download it with no problem...

So, try download than from my shared resources on 4Shared (http://www.4shared.com/dir/573181/3065a3a3/sharing.html). Looking for Programacao folder and expand it....

Made use from procedures. To menu, use CASE like Duoas sugest You and try some thing lik this:
procedure ProcessMenu;
begin
clrscr;
gotoxy(31,1);
write('Peters Petrol Pump');
...

I have a sample, but I build than with Delphi7 compiler, using TServerSocket and TClientSocket from Internet pallete.

It shows how to:
- save the connected client in order to interchange data;...

And You have had implement this at first. You just will need to use the code that You post at first in this thread and change it by using the Douas approach.

Your code was working. Isn't it right?...

You must test the code that Duoas post for You. I think You don't.

Just try Duoas's code by other way - may be You can see:var s1, s2, s3: string;

procedure zero;
begin
s1 := s1 +' _ ';
...

This is very simple to solve. Take a look at this article Running Flash animations with Delphi (http://delphi.about.com/od/graphics/l/aa040103a.htm) (at About.com)

but...
It is more complicated....

Ok.
I have searched for some example that help you and I found one at Torry's Delphi Pages (link (http://www.swissdelphicenter.ch/torry/showcode.php?id=1095)). It will show how to use this function...

As I have said, I cannot help you much more, because I cannot try an implementation for this case. But, I think you could replace InternetOpen by InternetConnect function.
If You looked at msdn link...

I cannot help you much more, but take a look in InternetConnect (http://msdn2.microsoft.com/en-us/library/aa384363(VS.85).aspx) function (from msdn).

bye

Ops...
I was looking for my mistake and found it here (http://www.daniweb.com/forums/post496476-8.html). I'm very sorry and will try don't make it again. :$

Here is common some people to write...

Duoas, congratulations for this excelent tutorial.

First, let me add that DateUtils unit (delphi 7) provide a lot of other functions to manipulate date and time (if someone look for it on Delphi...

Good Duos, right to the point!
But (every time has a but... :icon_smile:) at line 13 I think that something is wrong. I think It must be:
result := xs[high( xs )];


At this point, I have to...