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 bubblesort; | |
interface | |
uses | |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, | |
Dialogs, StdCtrls; | |
type | |
TForm1 = class(TForm) |
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
i := 0 | |
repat | |
ed_display := IntToStr(i - (y div 3); | |
lb_demo[i - (y div 3) = lb_demo2[i] | |
until i >= x; |
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 suchen; | |
interface | |
uses | |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, | |
Dialogs, StdCtrls; | |
type | |
Tmain = class(TForm) |
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
h := 1; // Shell-Sort | |
repeat | |
h := 3 * h + 1; | |
until h > LBoxDemo.Items.Count - 1; | |
repeat | |
h := h div 3; | |
for i := h to (LBoxDemo.Items.Count - 1) do | |
begin | |
str := LBoxDemo.Items[i]; |
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 Unit12; | |
interface | |
uses | |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, | |
Dialogs, StdCtrls; | |
type | |
Tmain = class(TForm) |
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 cFlexPanel; | |
interface | |
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, | |
Dialogs, ExtCtrls, StdCtrls; | |
type | |
TFlexPanel = class(TPanel) | |
private |
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
// ==UserScript== | |
// @name FarmVilleAutoAcceptBot | |
// @namespace http://dasLampe.lano-crew.org | |
// @description Autoaccept of Gifts, for Greasemonkey | |
// @include http://apps.facebook.com/onthefarm/* | |
// @include https://apps.facebook.com/onthefarm/* | |
// ==/UserScript== | |
function main() | |
{ |
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
/**HTML CODE | |
<div class="edit_content_options"><a class="edit_link">Edit</a></div> | |
<div> | |
<div>Edit block, with event</div> | |
</div>*/ | |
function find_parent(current_block) | |
{ | |
var parent, searchblock, edit_option; | |
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
/********Code based on https://gist.github.com/907604 ********* | |
The code find email addresses and proteceds for bots. | |
Make the addresses clickable with webtoolkit.base64.js and the following code (JQuery requiered): | |
$('a').each(function() { | |
var href, mailaddress; | |
href = $(this).attr('href'); | |
if(href.search(/mailto:/) != -1) | |
{ |
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
#! /bin/bash | |
######################################################## | |
#Copright: 2012, DasLampe <[email protected]> | |
#Original Source: https://gist.github.com/gists/3934414/ | |
# | |
#Licence Information: | |
#This program is free software: you can redistribute it and/or modify | |
#it under the terms of the GNU General Public License as published by | |
#the Free Software Foundation, either version 3 of the License, or any later version. | |
#This program is distributed in the hope that it will be useful, |
OlderNewer