Reverse a Number in Delphi

I wrote a simple program in Delphi that will ask the user to give a series of number and then our program will reverse the arrangement of the given number by the user.

Add me at Facebook my addressis jakerpomperada@gmail.com and jakerpomperada@yahoo.com. 

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com. 

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

unit reverse;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit1: TEdit;

    Label5: TLabel;

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

Var value : String;

function ReverseString(const s: string): string; 

var 

  i, len: Integer; 

begin

  len := Length(s);

  SetLength(Result, len); 

  for i := len downto 1 do 

  begin 

    Result[len - i + 1] := s[i]; 

  end; 

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 value:=Edit1.text;

 label5.caption := 'The reversed equivalent is '

                   + ReverseString(value) + '.';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.text     :='';

label5.caption := '';

edit1.setfocus;

end;

end.