Search found 1 match

by 3.11
Tue Mar 24, 2009 10:59 pm
Forum: Challenges Solved
Topic: Valuation
Replies: 103
Views: 8892

Did it with Delphi^^

muhahahaha 10 min coding with delphi :D procedure delx; var i:integer; st1:tstringlist; begin st1:=tstringlist.Create; for i:=1 to length(form1.memo1.Text) do begin if lowercase(form1.memo1.Text[i])='x' then begin form1.memo1.Text:=copy(form1.memo1.text,1,i-1)+copy(form1.memo1.text,i-2,2)+copy(form1...