!************************************** ! Name: Reverse a Number in Delphi ! Description: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. ! By: Jake R. Pomperada ! ! ! Inputs:None ! ! Returns:None ! !Assumes:None ! !Side Effects:None !************************************** 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.