DelphiFAQ Home Search:

How to reverse a string

 

comments14 comments. Current rating: 3 stars (1 votes). Leave comments and/ or rate it.

Here are three examples how to reverse a string:

// Credit to Jim Burns

//------------------------------------------------------
// #1, While easy to understand suffers from a lot of memory reallocation.
// Each time the next letter is added to s2, it's added to the beginning of the
// string causing a reallocation of the entire string.
//
function ReverseString( s : string ) : string;
var
  i  : integer;
  s2 : string;
begin
  s2 := '';
  for i := 1 to Length( s ) do
    s2 := s[ i ] + s2;
  Result := s2;
end;


//------------------------------------------------------
// #2, Taking advantage of the fact that we can work at both ends of the string
// at once AND the fact that IF there is a middle character, ie. an odd number
// of characters in the string, it doesn't change position at all and we can
// eliminate all the memory allocations, work completely within the source
// string swapping from end to end working toward the middle and only having to
// make 1/2 of a loop through the string.
//
procedure ReverseStr(var Src : string);
var
  i, j : integer;
  C1   : char;
begin
  j := Length(Src);
  for i := 1 to (Length(Src) div 2) do
  begin
    C1 := Src[i];
    Src[i] := Src[j];
    Src[j] := C1;
    Dec(j);
  end;
end;

 
//------------------------------------------------------
// #3, One disadvantage of #2 can be seen when trying to fill one control with
// the contents of another.  For example, two TEdits.  Since TEdit.Text can't
// be sent as a var parameter you'll need to first make use of a temporary
// string and then set the second TEdit:
// 
//   var
//     tStr : string;
//   begin
//     tStr := Edit1.Text;
//     ReverseStr(tStr);
//     Edit2.Text := tStr;
// 
// However, using #3 this code turns into,
// 
//     Edit2.Text := ReverseStr(Edit1.Text);
// 
// In addition, we lost 1 local var and the loop body was reduced since we
// could use Result directly swapping as we go!
//
function ReverseStr(const Src : string) : string;
var
  i, j : integer;
begin
  j := Length(Src);
  SetLength(Result, j);
  for i := 1 to (Length(Src) div 2) do
  begin
    Result[i] := Src[j];
    Result[j] := Src[i];
    Dec(j);
  end;
end;

Comments:

2008-08-29, 07:27:35
anonymous  
Gr8 effort!
2009-04-09, 21:51:16
anonymous from Australia  
rating
Delphi 6 and later have the strutils ReverseString built in. Faster than all 3 of these examples.

2010-01-05, 03:22:57
anonymous from Germany  
ttp://www.string-functions.com/reverse.aspx
2010-04-21, 07:22:16
anonymous from Morocco  
33 36 20 36 32 20 32 30 20 33 35 20 33 36 20 32 30 20 33 34 20 33 37 20 32 30 20 33 35 20 33 37 20 32 30 20 33 37 20 33 39 20 32 30 20 33 35 20 33 37 20 32 30 20 33 34 20 36 32 20 32 30 20 33 34 20 36 34 20 32 30 20 33 36 20 33 32 20 32 30 20 33 34 20 33 35 20 32 30 20 33 34 20 33 37 20 32 30 20 33 35 20 36 31 20 32 30 20 33 36 20 36 33 20 32 30 20 33 34 20 33 38 20 32 30 20 33 35 20 33 30 20 32 30 20 33 37 20 33 32 20 32 30 20 33 36 20 36 31 20 32 30 20 33 33 20 33 39 20 32 30 20 33 33 20 33 37 20 32 30 20 33 37 20 33 30 0d 0a
2010-05-09, 04:51:56
anonymous from India  
thankss ....i am a student of b.tech...ma name dharmendra kumar
dit dehradun..


Keywords:
2014-07-15, 22:38:05
anonymous from Indonesia  
SALAM KOMPAK SELALU….dan selamat buat yg JUPE hari ini.
KALAU ANDA INGIN MAU TAU INFO TOGEL, KENALKAN NAMA AWA PAK WAHYU, KAMI TINGGAL DISEMARANG PEKERJAAN USAHA KECI-KECILAN, SELAMA KAMI KENAL YANG NAMANYA MBAH ,SUNARYA, NASIB KAMI TIDAK SEPERTI YANG DULUH… KAMI SANGAT BERTERIMA KASIH KEPADA MBAH ,SUNARYA, BERKAT ANGKA YANG DI BAGI SAMA BELIAU.DAN ALHAMDULILLAH TEMBUS.DAN KAMI MINTAH ANGKA,6D…


ANGKA NAIK YAITU,DI.
6D.SPORTS,TOTO 5D 6D
SIAPA TAU AWA SEMUA MAU TERAI SILAHKAN GABUNG SAMA KAMI,

DAN KAMI BERSUKUR HASIL PASANG TOGEL TGL,02,06,2014…
….
SEMUA HUTANG HUTANG DLM KELUARGA KAMI KINI DPT TERLUNASI SEMUA,KAMI PUN BISA MEMBUKA USAHA KEMBALI,WALAUPUN ITU DGN CARA PASANG TOGEL, ITU MERUPAKAN RESKI BAGI KAMI SE- KELUARGA ,JADI YG SERING KALAH DLM PERMAINAN TOGEL HUBUNGI MBAH ,SUNARYA, /SMS KE NMR INI,082 377 758 327—KESUSAHAN ANDA DALAM MAIN
TOGEL DI,JAMIN [5] KALI PUTARAN… MBAH
,SUNARYA
Terima kasih yang amat dalam kami ucapkan kepada MBAH ,SUNARYA, yang telah memberikan kebahagian bagi keluarga kami…berkat Beliau kami sekarang udah hidup tenang..sudah tidak di kejar-kejar hutang…Kami di berikan Angka Ritual Ghoib Dari MBAH ,SUNARYA, yang sangat sangat Jitu 100%…hingga kami sekarang merasa tenang lagi…terima kasih MBAH ,SUNARYA,…Jika Anda ada yang merasa kesulitan masalah Nomer Toto apaka 2D.3D.4D.5D.6D.itu semua terserah anda, silahkan HBG ATAU SMS Aja MBAH ,SUNARYA,…di nmr HP [082 377 758 327]pasti anda akan merasakan apa yg selama ini kami rasakan…Salam Bahagia dan Sukses..!!

DENGAN ANGKA GOIB ,ATAU ANGKA RITUAL// ANGKA MAHLUK HALUS….
KLIK DISINI BLOG
angka;GHOIB: singapur
angka;GHOIB: hongkong
angka;GHOIB; malaysia
angka;GHOIB; toto magnum 4d
angka'GHOIB; laos…
angka'GHOIB; macau
angka'GHOIB; sidney
angka'GHOIB: vietnam
angka'GHOIB: korea
angka'GHOIB: kudalari
TOTO, 2D, 3D, 4D, 5D, 6D…
SUPREME TOTO 6/58,/MEGA TOTO,6/52,POWER TOTO 6/55…
MEKNUM 4D,/STS,/88,/DA MA CAI 1+3D,/ DAN LAIN-LAIN parah pencinta togel.
DAN LAIN-LAIN,ITU SEMUA TERGANTUNG PERMINTAAN KAMI…ATAU SEPESIAL DEROH 4D ANGKA BERTUA ADA PADA MBAH ,SUNARYA,
2014-07-15, 22:38:56
anonymous from Indonesia  
SALAM KOMPAK SELALU….dan selamat buat yg JUPE hari ini.
KALAU ANDA INGIN MAU TAU INFO TOGEL, KENALKAN NAMA AWA PAK WAHYU, KAMI TINGGAL DISEMARANG PEKERJAAN USAHA KECI-KECILAN, SELAMA KAMI KENAL YANG NAMANYA MBAH ,SUNARYA, NASIB KAMI TIDAK SEPERTI YANG DULUH… KAMI SANGAT BERTERIMA KASIH KEPADA MBAH ,SUNARYA, BERKAT ANGKA YANG DI BAGI SAMA BELIAU.DAN ALHAMDULILLAH TEMBUS.DAN KAMI MINTAH ANGKA,6D…


ANGKA NAIK YAITU,DI.
6D.SPORTS,TOTO 5D 6D
SIAPA TAU AWA SEMUA MAU TERAI SILAHKAN GABUNG SAMA KAMI,

DAN KAMI BERSUKUR HASIL PASANG TOGEL TGL,02,06,2014…
….
SEMUA HUTANG HUTANG DLM KELUARGA KAMI KINI DPT TERLUNASI SEMUA,KAMI PUN BISA MEMBUKA USAHA KEMBALI,WALAUPUN ITU DGN CARA PASANG TOGEL, ITU MERUPAKAN RESKI BAGI KAMI SE- KELUARGA ,JADI YG SERING KALAH DLM PERMAINAN TOGEL HUBUNGI MBAH ,SUNARYA, /SMS KE NMR INI,082 377 758 327—KESUSAHAN ANDA DALAM MAIN
TOGEL DI,JAMIN [5] KALI PUTARAN… MBAH
,SUNARYA
Terima kasih yang amat dalam kami ucapkan kepada MBAH ,SUNARYA, yang telah memberikan kebahagian bagi keluarga kami…berkat Beliau kami sekarang udah hidup tenang..sudah tidak di kejar-kejar hutang…Kami di berikan Angka Ritual Ghoib Dari MBAH ,SUNARYA, yang sangat sangat Jitu 100%…hingga kami sekarang merasa tenang lagi…terima kasih MBAH ,SUNARYA,…Jika Anda ada yang merasa kesulitan masalah Nomer Toto apaka 2D.3D.4D.5D.6D.itu semua terserah anda, silahkan HBG ATAU SMS Aja MBAH ,SUNARYA,…di nmr HP [082 377 758 327]pasti anda akan merasakan apa yg selama ini kami rasakan…Salam Bahagia dan Sukses..!!

DENGAN ANGKA GOIB ,ATAU ANGKA RITUAL// ANGKA MAHLUK HALUS….
KLIK DISINI BLOG
angka;GHOIB: singapur
angka;GHOIB: hongkong
angka;GHOIB; malaysia
angka;GHOIB; toto magnum 4d
angka'GHOIB; laos…
angka'GHOIB; macau
angka'GHOIB; sidney
angka'GHOIB: vietnam
angka'GHOIB: korea
angka'GHOIB: kudalari
TOTO, 2D, 3D, 4D, 5D, 6D…
SUPREME TOTO 6/58,/MEGA TOTO,6/52,POWER TOTO 6/55…
MEKNUM 4D,/STS,/88,/DA MA CAI 1+3D,/ DAN LAIN-LAIN parah pencinta togel.
DAN LAIN-LAIN,ITU SEMUA TERGANTUNG PERMINTAAN KAMI…ATAU SEPESIAL DEROH 4D ANGKA BERTUA ADA PADA MBAH ,SUNARYA,
2014-07-17, 00:01:37
anonymous from Indonesia  
assalamualaikum wr, wb.MBAH saya:PAK.DEDI dan SEKELUARGA mengucapkan banyak2
terimakasih kepada MBAH ,SUNARYA ,atas angka togel yang di
berikan '4D' alhamdulillah ternyata itu benar2 jebol dan berkat
bantuan MBAH ,SUNARYA, saya bisa melunasi semua hutang2 orang tua saya yang
ada di BANK dan bukan hanya itu MBAH alhamdulillah sekarang saya
sudah bisa bermodal sedikit untuk mencukupi kebutuhan keluarga saya
sehari2. itu semua berkat bantuan MBAH ,SUNARYA, sekali lagi makasih banyak
yah MBAH… yang ingin merubah nasib seperti saya hubungi MBAH ,SUNARYA, di
nomor: (((_082 377 758 327_)))

dijamin 100% jebol saya sudah buktikan...sendiri....







Apakah anda termasuk dalam kategori di bawah ini !!!!


1'Dikejar-kejar hutang

2'Selaluh kalah dalam bermain togel

3'Barang berharga anda udah habis terjual Buat judi togel


4'Anda udah kemana-mana tapi tidak menghasilkan solusi yg tepat


5'Udah banyak Dukun togel yang kamu tempati minta angka jitunya
tapi tidak ada satupun yang berhasil..







Solusi yang tepat jangan anda putus aza....MBAH ,SUNARYA, akan membantu
anda semua dengan Angka ritwal/GHOIB:
butuh angka togel 2D_3D_4D SGP / HKG / MALAYSIA / TOTO MAGNUM / dijamin 100% jebol
Apabila ada waktu
silahkan Hub: MBAH ,SUNARYA, DI NO: (((_082 377 758 327_)))



angka GHOIB: singapur 2D/3D/4D/



angka GHOIB: hongkong 2D/3D/4D/



angka GHOIB; malaysia



angka GHOIB; toto magnum 4D/5D/6D/



angka GHOIB; laos
2014-07-23, 21:14:50
anonymous from Indonesia  
SAYA PAK POSING INGIN BERTERIMAKASIH BANYAK KEPADA MBAH RINGGO YANG SUDAH MEMBANTU ORANG TUA SAYA KARNA SELAMA INI ORANG ORANG TUA SAYA SEDANG TERLILIT HUTANG YANG BANYAK,,BERKAT BANTUAN MBAH SEKARAN ORANG TUA SAYA SUDAH BISA MELUNASI SEMUA HUTAN2NYA DAN SAWAH YANG DULUNYA SEMPAT DIGADAIKAN SEKARAN ALHAMDULILLAH SUDAH BISA DI TEBUS KEMBALI ITU SEMUA ATAS BANTUAN MBAH RINGGO YANG MEMBERIKAN ANKA RITUALNYA KEPADA KAMI DAN TIDAK DISANKA SANKA TERNYATA BERHASIL..BAGI ANDA YANG INGIN DIBANTU SAMA MBAH RINGGO SEPERTI KAMI SILAHKAN HBG 085-205-213-777-JANGAN ANDA RAGU SUDAH MEMBUKTIKANN DALAM 7 KALI PUTARANG

2014-07-23, 21:15:42
anonymous from Indonesia  
SAYA PAK POSING INGIN BERTERIMAKASIH BANYAK KEPADA MBAH RINGGO YANG SUDAH MEMBANTU ORANG TUA SAYA KARNA SELAMA INI ORANG ORANG TUA SAYA SEDANG TERLILIT HUTANG YANG BANYAK,,BERKAT BANTUAN MBAH SEKARAN ORANG TUA SAYA SUDAH BISA MELUNASI SEMUA HUTAN2NYA DAN SAWAH YANG DULUNYA SEMPAT DIGADAIKAN SEKARAN ALHAMDULILLAH SUDAH BISA DI TEBUS KEMBALI ITU SEMUA ATAS BANTUAN MBAH RINGGO YANG MEMBERIKAN ANKA RITUALNYA KEPADA KAMI DAN TIDAK DISANKA SANKA TERNYATA BERHASIL..BAGI ANDA YANG INGIN DIBANTU SAMA MBAH RINGGO SEPERTI KAMI SILAHKAN HBG 085-205-213-777-JANGAN ANDA RAGU SUDAH MEMBUKTIKANN DALAM 7 KALI PUTARANG

2014-07-24, 19:14:13
anonymous from Indonesia  
assalamualaikum wr, wb.MBAH saya:PAK.DEDI dan SEKELUARGA mengucapkan banyak2
terimakasih kepada MBAH ,SUNARYA ,atas angka togel yang di
berikan '4D' alhamdulillah ternyata itu benar2 jebol dan berkat
bantuan MBAH ,SUNARYA, saya bisa melunasi semua hutang2 orang tua saya yang
ada di BANK dan bukan hanya itu MBAH alhamdulillah sekarang saya
sudah bisa bermodal sedikit untuk mencukupi kebutuhan keluarga saya
sehari2. itu semua berkat bantuan MBAH ,SUNARYA, sekali lagi makasih banyak
yah MBAH… yang ingin merubah nasib seperti saya hubungi MBAH ,SUNARYA, di
nomor: (((_082 377 758 327_)))
Atau Kunjugi blog mbah silakan <a href=' http://ramalanangka..-ali.html' rel='nofollow'>KLIK DISINI BLOG </a>dijamin 100% ebol saya sudah buktikan...sendiri....



Apakah anda termasuk dalam kategori di bawah ini !!!!


1'Dikejar-kejar hutang

2'Selaluh kalah dalam bermain togel

3'Barang berharga anda udah habis terjual Buat judi togel


4'Anda udah kemana-mana tapi tidak menghasilkan solusi yg tepat


5'Udah banyak Dukun togel yang kamu tempati minta angka jitunya
tapi tidak ada satupun yang berhasil..







Solusi yang tepat jangan anda putus aza....MBAH ,SUNARYA, akan membantu
anda semua dengan Angka ritwal/GHOIB:
butuh angka togel 2D_3D_4D SGP / HKG / MALAYSIA / TOTO MAGNUM / dijamin 100% jebol
Apabila ada waktu
silahkan Hub: MBAH ,SUNARYA, DI NO: (((_082 377 758 327_)))



angka GHOIB: singapur 2D/3D/4D/



angka GHOIB: hongkong 2D/3D/4D/



angka GHOIB; malaysia



angka GHOIB; toto magnum 4D/5D/6D/



angka GHOIB; laos
2015-02-01, 04:05:13
anonymous from United States  
That's a creative answer to a difulcfit question
2015-02-01, 05:31:44
anonymous  
I really apertciape free, succinct, reliable data like this.
2016-10-30, 10:08:57
anonymous from Indonesia  
ANGKA JITU DAN AKURAT YANG BISA ANDA MENANGKAN HARI INI INGIN MERASAKAN KEMENANGAN DI DALAM BERMAIN TOGEL JAMIN 100% TLP KI ANGEN JALLO DI NMR (_0_8_5_2_8_3_7_9_0_4_4_4_) JIKA INGIN MENGUBAH NASIB KAMI SUDAH TERBUKTI 9X TRIM’S ROO,MX SOBAT.


ANGKA JITU DAN AKURAT YANG BISA ANDA MENANGKAN HARI INI INGIN MERASAKAN KEMENANGAN DI DALAM BERMAIN TOGEL JAMIN 100% TLP KI ANGEN JALLO DI NMR (_0_8_5_2_8_3_7_9_0_4_4_4_) JIKA INGIN MENGUBAH NASIB KAMI SUDAH TERBUKTI 9X TRIM’S ROO,MX SOBAT

 

 

NEW: Optional: Register   Login
Email address (not necessary):

Rate as
Hide my email when showing my comment.
Please notify me once a day about new comments on this topic.
Please provide a valid email address if you select this option, or post under a registered account.
 

Show city and country
Show country only
Hide my location
You can mark text as 'quoted' by putting [quote] .. [/quote] around it.
Please type in the code:

Please do not post inappropriate pictures. Inappropriate pictures include pictures of minors and nudity.
The owner of this web site reserves the right to delete such material.

photo Add a picture: