apakah ini yang anda maksud, semoga membantu... btw.. MARHABAN YA RAMADHAN... met berpuasa bagi rekan - rekan Delphindo yang Muslim mohon maaf lahir batin jika ada kesalahan...
function blablabla(deretAsal,deretPola:String):String; var m: TStringlist; i: Integer; begin m:=TStringList.Create; for i:=1 to Length(deretPola) do m.Add(deretPola[i]+deretAsal[i]); m.Sort; Result:=''; for i:=0 to pred(m.Count) do Result:=Result+m[i][2]; end; procedure TForm1.Button1Click(Sender: TObject); var deretAsal, deretPola: String; begin deretAsal:='1HRCFSG'; deretPola:='ADBECFG'; showMessage(blablabla(deretAsal,deretPola)); end; namaskar Ol1v3r ----- Original Message ----- From: "Jays" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, October 24, 2003 4:17 PM Subject: [Delphindo] algoritma > dear all, > > saya lagi butuh algoritma untuk menyelesaikan kasusu ini, pls help: > > 1HRCFSG - deret asal > ADBECFG - deret mengikuti pola > > ABCDEFG - pola ke ascending > 1RFHCSG - deret mengikuti pola ascending (result yg dinginkan) > > thax for help. > Jays ------------------------ Yahoo! Groups Sponsor ---------------------~--> Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada. http://www.c1tracking.com/l.asp?cid=5511 http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/i7folB/TM ---------------------------------------------------------------------~-> Berlangganan: [EMAIL PROTECTED] Stop Berlangganan: [EMAIL PROTECTED] Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED] Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
