This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
program ForLoopExecutionOrder; | |
{$APPTYPE CONSOLE} | |
{$R *.res} | |
uses | |
System.SysUtils; | |
begin | |
try |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
program ForLoopOverflow; | |
{$APPTYPE CONSOLE} | |
{$R *.res} | |
uses | |
System.SysUtils; | |
begin | |
// Using unsigned ints or "short" types may lead to unexpected behaviour. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
program XmlDemo; | |
{$APPTYPE CONSOLE} | |
{$R *.res} | |
uses | |
Winapi.ActiveX, | |
System.Classes, System.SysUtils, System.IOUtils, |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
procedure TFormMain.ProcessXml(const AXml: string); | |
begin | |
var | |
LXmlDoc := TXMLDocument.Create(nil); | |
try | |
LXmlDoc.DOMVendor := DOMVendors.Find(OmniXML4Factory.Description); | |
LXmlDoc.LoadFromXML(AXml); | |
// if AXml is invalid, then an exception will be thrown | |
// Do further processing here | |
finally |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
program Countries; | |
{$APPTYPE CONSOLE} | |
{$R *.res} | |
uses | |
System.Classes, System.SysUtils, System.Generics.Collections; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
procedure PrintValue(const Value: TObject; const ValueType: TType); | |
var | |
TypeCode: TTypeCode; | |
TypeData: PTypeData; | |
TypeInfo: PTypeInfo; | |
begin | |
if Value = nil then | |
begin | |
WriteLn(ValueType); | |
Exit; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
program CurrencyTests; | |
{$APPTYPE CONSOLE} | |
{$R *.res} | |
uses | |
System.SysUtils; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
object FormBase: TFormBase | |
Left = 0 | |
Top = 0 | |
Caption = 'FormBase' | |
ClientHeight = 441 | |
ClientWidth = 624 | |
Color = clBtnFace | |
Font.Charset = DEFAULT_CHARSET | |
Font.Color = clWindowText | |
Font.Height = -12 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
unit JsonNaming.Foo; | |
interface | |
uses | |
System.Classes, System.SysUtils, | |
REST.Json.Types; | |
type | |
TFoo = class(TObject) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
program Interfaces; | |
{$APPTYPE CONSOLE} | |
{$R *.res} | |
uses | |
LeakCheck, | |
System.Classes, System.SysUtils; |
NewerOlder