1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

unit demo;

// use this demo application to play around with textfromsource

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 s:string;
begin
 //---- 'dont find this text'---
 button1.caption:='This is my Text'; { this is a word
 wrap remark to be 'ignored' }

 form1.caption:='Test';

 S:='Hello ''dear'' friend';  // ignore double '' 

 copyfile(PChar(Paramstr(0)),'.\test.exe',false); { add 'PChars' for Windows function calls }

 S:=copy( 'I say ' + S + ' to the World' ,1,40);  (* add no 'PChars' in function with "+"  *)

 label1.Caption:='Test'+' :  '+S;  // find Text 'Test' 2x in this Source, add only one time to stringlist

 label2.caption:='''http://www.xyz.de''';   
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:

unit demo;

// use this demo application to play around with textfromsource

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);  {##Free Stringlist##}
  private
    function TXT(TXTNr:integer):String;  {##Textstrings##}
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  TXTs: TStringlist; {##extracted text from Source##}
  Form1: TForm1;

implementation

{$R *.dfm}


{#### TEXT-STRINGS FROM SOURCE  http://sourceforge.net/projects/textfromsource/ ####} 
function TForm1.TXT(TXTNr:integer):String;
begin
 if not Assigned(TXTs) then
 begin
  TXTs:=Tstringlist.create;
  with TXTs do begin
{0}      Add('This is my Text');
{1}      Add('Test');
{2}      Add('Hello ''dear'' friend');
{3}      Add('.\test.exe');
{4}      Add('I say ');
{5}      Add(' to the World');
{6}      Add(' :  ');
{7}      Add('''http://www.xyz.de''');
  end; end;
 Result := TXTs[TXTNr];
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  TXTs.free;  {##Free Stringlist##}
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 s:string;
begin
 //---- 'dont find this text'---
 button1.caption:=TXT(0) {##This is my Text##} ; { this is a word
 wrap remark to be 'ignored' }

 form1.caption:=TXT(1) {##Test##} ;

 S:=TXT(2) {##Hello ''dear'' friend##} ;  // ignore double '' 

 copyfile(PChar(Paramstr(0)),PChar(TXT(3) {##.\test.exe##} ),false); { add 'PChars' for Windows function calls }

 S:=copy( TXT(4) {##I say ##}  + S + TXT(5) {## to the World##}  ,1,40);  (* add no 'PChars' in function with "+"  *)

 label1.Caption:=TXT(1) {##Test##} +TXT(6) {## :  ##} +S;  // find Text 'Test' 2x in this Source, add only one time to stringlist

 label2.caption:=TXT(7) {##''http://www.xyz.de''##} ;   
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:

unit demo;

// use this demo application to play around with textfromsource

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);  {##Free Stringlist##}
  private
    function TXT(TXTNr:integer):String;  {##Textstrings##}
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  TXTs: TStringlist; {##extracted text from Source##}
  Form1: TForm1;

implementation

{$R *.dfm}
 
{#### TEXT-STRINGS FROM SOURCE  http://sourceforge.net/projects/textfromsource/ ####} 
function TForm1.TXT(TXTNr:integer):String;
 
 // Decryption  
 function D(S1:String):string;
 var i,t,po,Ra:integer;  x1,x2,s3:string; s2:char;
 begin
    X1:='ÿeTröXnküVpCBß#7(iv%u-F5R$QcEy8).t&ÄJÖI§g;h,GU0:l?b/P=SjoZaÜ9D*wm3x@f!qzK6NO14WY MLsAdHä2'; X1:=X1+X1+X1+X1+X1+X1+X1+X1;
    X2:='!wJAe-.30j=#8b)p:FöIz2ZRY&W/QKMüifNxÜhVt1(kr;ÖÄ9m5DlHE§@4?7,ScCnUqdXugLaß6vO$oäs%B *ÿTPyG'; X2:=X2+X2+X2+X2+X2+X2+X2+X2;
    S3:='';
    case S1[1] of
      'A'..'Z' : Ra:=ord(S1[1])-65+20;
      'a'..'z' : Ra:=ord(S1[1])-97;
    end; //case
    S1:=copy(S1,Ra+2,length(S1));
    for t:=1 to length(S1) do
    begin
     X2:=copy(x2,t,length(x2)-t+1) + copy(x2,1,t-1);
     po:=pos(S1[t],x2);
     if po>0 then S2:=x1[po] else S2:=S1[t];
     if S2='ÿ' then S2:=#39;
     S3:=S3+S2;
    end; //for t
    while pos(#39#39,S3)>0 do delete(S3,pos(#39#39,S3),1);
    Result:=S3;
 end; //Decryption
 
begin
 if not Assigned(TXTs) then
 begin
  TXTs:=Tstringlist.create;
  with TXTs do begin
{0}      Add(D('RTRu§HDü&xHwZ Aw*öjC§i63E.ÄKÜtn!:wwn87Jrz!wipI#vÄusu5'));     {##This is my Text##}
{1}      Add(D('FP1lL#6aBy;58WPerIvnL/,/9KJJPt'));                            {##Test##}
{2}      Add(D('GJ)mJjTx7 jAbhWCR@(SuvFF*9:PJl§d.2QiÄYgäJ3=DB*öQ'));          {##Hello ''dear'' friend##}
{3}      Add(D('KAf##MyyL$xö&Ä%emXISQ%k44k:7Ndsi\Ü3emEKbÄ'));                 {##.\test.exe##}
{4}      Add(D('Es8Ä:45)LT6jEd3,Bx*u *0Ö-VBPUt.'));                           {##I say ##}
{5}      Add(D('fT.aÖ%%N,Pr?ZI&87&v'));                                       {## to the World##}
{6}      Add(D('qnknh /ÄAlTAMF::.%m*P'));                                     {## :  ##}
{7}      Add(D('LLMuIqP?u$kwÜYYF.MÜo?P3%*lwA&q%V!wÖtr&usyIK12HvNDqW;Q§Oj'));  {##''http://www.barret.de''##}
  end; end;
 Result := TXTs[TXTNr];
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  TXTs.free;  {##Free Stringlist##}
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 s:string;
begin
 //---- 'dont find this text'---
 button1.caption:=TXT(0) {##This is my Text##} ; { this is a word
 wrap remark to be 'ignored' }

 form1.caption:=TXT(1) {##Test##} ;

 S:=TXT(2) {##Hello ''dear'' friend##} ;  // ignore double '' 

 copyfile(PChar(Paramstr(0)),PChar(TXT(3) {##.\test.exe##} ),false); { add 'PChars' for Windows function calls }

 S:=copy( TXT(4) {##I say ##}  + S + TXT(5) {## to the World##}  ,1,40);  (* add no 'PChars' in function with "+"  *)

 label1.Caption:=TXT(1) {##Test##} +TXT(6) {## :  ##} +S;  // find Text 'Test' 2x in this Source, add only one time to stringlist

 label2.caption:=TXT(7) {##''http://www.barret.de''##} ;   
end;

end.