Skip to content

Instantly share code, notes, and snippets.

@tdelphi
tdelphi / record_to_string.dpr
Last active December 24, 2015 17:09
Delphi record to string conversion example, using operator overload. #delphi
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
TLocString = record
Key, Value: string;
@tdelphi
tdelphi / programThatUsesFreedObject.dpr
Last active January 4, 2016 10:39
example of using freed objet in Delphi. Works without any errors in D6
program programThatUsesFreedObject;
{$APPTYPE CONSOLE}
uses
Classes,
SysUtils;
var
tmpSL: TStringList;
@tdelphi
tdelphi / uLazyCursorHelper.pas
Created September 16, 2015 11:02
#delphi helper class to work with cursor
//MMWIN:CLASSCOPY
unit uLazyCursorHelper;
interface
uses
Controls;
type
/// <summary>
@tdelphi
tdelphi / LazyCursorHelperLabmda.pas
Created December 22, 2015 09:00
tlazyCursorChanger based on Barry K method
type
TScopeExitNotifier = class(TInterfacedObject)
private
FProc: TProc;
public
constructor Create(const AProc: TProc);
destructor Destroy; override;
end;
constructor TScopeExitNotifier.Create(const AProc: TProc);
@tdelphi
tdelphi / JenkinsHowto.md
Last active December 6, 2017 16:34
Jenkins-howto

Jenkins dsl to create job params

pipeline {
    agent any
    parameters {
        string(name: 'PERSON', defaultValue: 'Mr Jenkins', description: 'Who should I say hello to?')
    }
    stages {
        stage('Example') {
            steps {
@tdelphi
tdelphi / killProcessesByName.gradle
Created December 22, 2017 15:00
gradle task to kill all processes by name
task killChromeDrivers(type:Exec) {
commandLine 'taskkill', '/f', '/im', 'chromedri*'
ignoreExitValue = true
}
@tdelphi
tdelphi / AnsibleHowToWaitForWebServerToStart.md
Last active August 1, 2019 09:55
Ansbile - wait for webserver to start

• В конце добавить 3 таска

  • name: wait 2 minutes for webserver to start shell: 'curl --head --silent "https://{{ inventory_hostname }}/"' register: result ignore_errors: True async: 120 poll: 1 failed_when: false

  • name: fail if response is not 200