Instead of relying on Delphi’s internal object layout you could also have your objects implement another interface which would simply return the object. This, of course, only works if you have access to the source code of the objects to begin with, but you probably shouldn’t even use these hacks if you don’t have access … Read more
; is not allowed before else in the majority of cases. if ((input=”y”) or (input=”Y”)) then begin writeln (‘blah blah’); end else if ((input=”n”) or (input=”N”)) then begin writeln (‘blah’); end else begin writeln (‘Input invalid!’); end; will compile. But… Prefer using begin … end brackets to avoid misunderstanding of code in complicated if then … Read more
Note: There is a version of this with proper math typesetting on the Math SE. Computing a projective transformation A perspective is a special case of a projective transformation, which in turn is defined by four points. Step 1: Starting with the 4 positions in the source image, named (x1,y1) through (x4,y4), you solve the … Read more
You have to match every begin with an end at the same level, like if Condition then begin DoSomething; end else begin DoADifferentThing; end; You can shorten the number of lines used without affecting the placement, if you prefer. (The above might be easier when you’re first getting used to the syntax, though.) if Condition … Read more
FFMPEG supports screen capturing(casting) and is cross platform.
Something like this: type TOccurencyNodePtr = ^TOccurencyNode; TOccurencyNode = record Occurency: integer; Next: TOccurencyNodePtr; end; TIdentifierFoundNodePtr = ^TIdentifierFoundNode; TIdentifierFoundNode = record Identifier: string; Next: TIdentifierFoundNodePtr; end; var Occurencies: TOccurencyNodePtr = nil; Identifiers: TIdentifierFoundNodePtr = nil; procedure AddIdentifierOccurency(const Identifier: string; const Occurrency: Integer); var IdentifierNode, LastIdentifierNode: TIdentifierFoundNodePtr; OccurencyNode, LastOccurencyNode: TOccurencyNodePtr; begin IdentifierNode := Identifiers; LastIdentifierNode := … Read more