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 Chriss Miller 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. DavidB3

    SetLength without #0 initialization

    Not use SetLength at all it's a good idea, but the key question is "how"? I know that AnsiString is delimited by #0 (since is in fact a PAnsiChar) but that doesn't help me a lot here. I can't use TList, in fact I am doing my component(s) as a replacement for T(String)List. So far are taking...
  2. DavidB3

    SetLength without #0 initialization

    Well, I use many: SetItem, InsertItem, AppendItem, InsertItems, AppendItems, Insert/AppendMultipleItems (multiple items in different locations). Here is SetItem: procedure TShortStringArray.SetItem(const Idx: Integer; const Value: AnsiString); var i, d, Position, lv, lDiff, h: Integer...
  3. DavidB3

    SetLength without #0 initialization

    My code will be free to be used in freeware applications. But right now it's not finished and I want to release it only when it's finished. I wanted to sent you the current version in a PM but couldn't find a way.
  4. DavidB3

    compiler directives for any Delphi version

    Ok, thanks for the tip.
  5. DavidB3

    SetLength without #0 initialization

    Hi. I'm trying to make this function faster: //Global variables Positions: array of Integer; ItemSize: array of Byte; AllStrings: AnsiString; FPosStep = 32; FPosStepBinPwr = 5; function TShortStringArray.GetItem(const Idx: Integer): AnsiString; var i, d, Position: Integer; begin if...
  6. DavidB3

    compiler directives for any Delphi version

    Hi. I want to make my code work in any Delphi version. For this I use compiler directives. But the compiler is still not happy 100%. {$IF Defined(Ver80) or Defined(Ver90) or Defined(Ver100) or Defined(Ver120) or Defined(Ver130) or Defined(Ver140) or Defined(Ver150) or...

Part and Inventory Search

Back
Top