Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. grg999

    How to rewrite this better

    One old trick: Pat := 'Jan/Feb/Mar/Apr/May.....' p := pos( MonthStr, Pat ); if p = 0 then Month := 0 else Month := (p-1) div 4 + 1;
  2. grg999

    how do you free a function result?

    just define a plainold variable for the result first. var Ans: TBitMap; As yo've noticed the "result" keyword is problematic. The at the very end: Result := Ans;
  3. grg999

    Writing faster to a memo box

    Make up a real string first: var S: String; { huge string I hope } begin S := ''; for i := 1 to LengthOfArrayX do S := S + X[i]; Form1.memo.Text := S; // fast !

Part and Inventory Search

Back
Top