delphi pos

At the earliest time, C ++ programmers did not develop Win32 products as fast as Delphi programmers. They were not convinced that Delphi was not good Because delphi could only drag controls but not oop. A few years ago, when Java was just getting angry, Java programmers said That Delphi was not good Because

following function: Function TForm1.AnalyseUpdate (Body: String; var Update: TUpdate): Boolean; Var TmpStr, Ver: String; Function CenterStr (Src: String; Before, After: String): String; {This function is used to separate the strings in the middle of two strings, For example,... ('delphibox. com', 'delphi ','. com') => 'box '. } Var Pos1, Pos2: WORD; Begin Pos1: = Pos (Before, Src) + Length (Before ); Pos2:

lines Re-learning GDI+[12]: Preparing for work-rectangular hit Re-learning gdi+[11]: drawcurve-Drawing curves Re-learning GDI+[10]: DrawClosedCurve-Draw closed curves Re-learning Gdi+[9]: DrawPolygon-Drawing polygons Re-learning Gdi+[8]: Drawrectangles-Draw a set of rectangles Re-learning Gdi+[7]: DrawLines-Draw a set of lines Re-learning Gdi+[6]: Drawpie-Draw a pie Re-learning Gdi+[5]: DrawArc-Draw arcs Re-learning Gdi+[4]: DrawEllipse-Draw an ellipse Re-learning Gdi+[3]: DrawRectang

TypeTdelflags = set of (Dfdelbefore, dfdelafter);Remove a part of a string that precedes or follows a ENDSTR substring in an MS stringProcedure delstr(var ms:string; endstr:string; Flags:tdelflags;Bself:boolean = True);VarL:integer;BeginL: = Length (ENDSTR);If POS (Ansilowercase (ENDSTR), Ansilowercase (ms)) =0 ThenBeginExitEndIf Dfdelbefore in the Flags thenBeginIf Bself ThenDelete (MS, 1, POS (Ansilowerca

Wildcard Lookup function under Delphi Function islike (Ax, abc:string): Boolean; Ax is a substring and ABC is a source stringVarAbcstart, Axstart, Abclength, Axlength:integer;ENDPARTABC, Endpartax, subax:string;Temp, abcwww, Axwww:integer;Begin//AAATemp: = 0;Abcstart: = 1;Axstart: = 1;Axwww: = 1;Abcwww: = 1;Ax:=lowercase (AX);Abc:=lowercase (ABC);Abclength: = Length (ABC);Axlength: = Length (AX);Result: = True;While Axstart If Ax[axstart] = '? ' Then

Capture console program output in Delphi Author: Source: Release Date: In this article, you can run the console program in Delphi and display the console program output in the Memo control.In the work, you need to manually compile the j2's program and start to write a batch processing program. However, it feels very complicated to use. Therefore,

Eg. var TM: string; DT: tdatetime; TM: = '2017-08-21t09: 11: 21z'; DT: =? Procedure setisotodatetime ( Strdt : String ); VaR // Delphi settings save vars Shortdf , Shorttf : String ; TS , DS : Char ; // Conversion vars Dd , TT , Ddtt : Tdatetime ; Begin // Example datetime test string in ISO format Strdt : = '2017-07-06t01: 53: 23z' ; // Save Delphi sett

Delphi algorithm and Data Structure DelphiTutorial Series of books(021)《DelphiAlgorithms and data structures Organize netizens (state)Email:Shuaihj@163.com : PDF Appendix source code Original Title: The tomes of Delphi algorithms and data structures Original Publishing House: wordware Publishing Author: [us] Julian Bucknall Translator: Lin Qi Zhu TAO JIANG Series name:

Delphi icon, and then the title modified to Delphi7, who can see the flaw?" hahaif (POS (' Group-', Tlqqchat) >0) or (POS (' Advanced Group-', Tlqqchat) >0) ThenBeginTlqqchat: = Ansireplacestr (Tlqqchat, ' group-', ' My Documents ');Tlqqchat: = Ansireplacestr (Tlqqchat, ' advanced ', ');SetWindowText (Handle, Pchar (tlqqchat));EndMsnIf

Land island Studio The previous article was attended by some friends (article title:Who did Delphi provoke??). I also want to continue with this topic, hoping to introduce a piece of Delphi space in the "blog Park. There are really few friends in Delphi in "blog Garden", but I personally think "blog Garden" is a good and open technology exchange platform, why c

form2.showmodal = mrok then Begin Showmessage ('form2 has been disabled. I can perform the corresponding operations! The caption of its label is '+ form2.label. Caption ); End; End; Note: If you find that the data attribute value of treenode in atree has saved aid, the corresponding node is returned; otherwise, Nil is returned; 4. Obtain the position of the substring from the source string. POs (sourcestr, STR); // If sourcestr contains STR, the po

Paging due to Delphi in the development of database application system has a strong function and very high efficiency, so the author of the development of ASP components more commonly used is Delphi 5.0 (of course, can also use Visual Basic or VC + + development of ASP components), Delphi itself has a number of components in the Internet and internetexpress two p

Document directory Concise Delphi tutorial Concise Delphi tutorial DelphiTutorial Series of books(048)《DelphiConcise tutorial Organize netizens (state)Email:Shuaihj@163.com : PDF Edited by Zheng Hong Zhang Jin Introduction Delphi 5 is a new-generation visual program development tool developed by software giants and famous Inprise companies. It has been wi

This article provides an index link for the published "Delphi image processing" series to facilitate reading and searching. 《Delphi Image Processing-data types and public processes.Provides the conversion process of GDI + bitmap tgpbitmap and VCL bitmap tbitmap as well as several basic general processes. All other article code, including the example code, must include the imagedata. Pas Unit described in th

Method One:[Delphi]View Plaincopyprint? Uses Comobj, Dateutils; function Getinternettime: string; Var Xmlhttp:olevariant; Datetxt: string; Datelst:tstringlist; Mon: string; TIMEGMT, Getnettime:tdatetime; S: string; Begin XmlHttp: = Createoleobject (' microsoft.xmlhttp '); XmlHttp.Open (' GET ', ' http://open.baidu.com/special/time/', False); XmlHttp.Send; Datetxt: = XmlHttp.getResponseHeader (' Date ');

From: http://www.hongen.com/pc/program/third/delphi/dthird01.htm As we all know, Delphi provides a large number of components, which can basically meet our programming needs. However, for programs with specific requirements, only the built-in components of Delphi cannot be used. For example, Delphi does not provide a s

Delphi calls WINAPI characters and String functions: Charnext, Charprev Delphi calls WINAPI characters and String functions: Chartooem, Oemtochar Delphi calls WINAPI characters and String functions (13) Delphi Call WINAPI Character and string function (in): Lstrlen-String length

// Add some practical functions first // Hexadecimal to integer, which is often used in Message decoding Function hextoint (stemp: string): integer;VaRV, I: integer;BeginHextoint: = 0;If stemp = ''then exit;If (stemp [1] = '0') and (stemp [2] = 'X') or (stemp [2] = 'X') thenStemp: = copy (stemp, 3, length (stemp)-2 );If stemp = ''then exit; V: = 0;For I: = 1 to length (stemp) DoCase stemp [I]'0' .. '9': V: = V * 16 + ord (stemp [I])-ord ('0 ');'A' .. 'F': V: = V * 16 + ord (stemp [I])-ord ('A')

counters, the frequency is variable, with queryperformancefrequency can be obtained, under normal circumstances are 1193180. Queryperformance counter can get the current counter value. So as long as your computer Fast enough, theoretical accuracy can reach 1/1193180 seconds. 2, code optimization examples The following is an example of a custom string function that describes the code optimization process. The string function provided by Delphi has

+ fsUnderlineelseMyStyle := MyStyle + ,fsUnderline;if fsStrikeOut in Style thenif MyStyle = [ thenMyStyle := MyStyle + fsStrikeOutelseMyStyle := MyStyle + ,fsStrikeOut;MyStyle := MyStyle + ];end;Myini.WriteString (FontStyle, style, MyStyle);Myini.free;End; 4. READ: varMyFontStyle : TFontStyles;MyStyle : string;beginMyFontStyle := [];Myini := TInifile.Create (inifile.ini);Mystyle := Myini.ReadString (Fontstyle, style, []);if pos (fsBold, Mystyle) $#