1:

   >$9$<5$PPPPPPPPPPPP>$9$<5$PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP$=>$9$<~$71$;>$9$<~$71$;>$9$<b~$7SR5Pb]PPUTPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP                    

1:

   Untitlet            Untitlet                                                        tmUntitl~tgatkUntitl~tgatkUntitlb~tgSRe b]  UT                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

...
var f:file;
    b: byte;

begin
     AssignFile(f,'C:\header.bin');
     Rewrite(f,1);
     b:=$10;
     Blockwrite(f,b,sizeof(Byte));
     b:=$00;
     Blockwrite(f,b,sizeof(Byte));
     b:=$00;
     Blockwrite(f,b,sizeof(Byte));
     CloseFile(f);
end;
...                    

1:
2:

...
var buchstaben: array [0..25] of char =('a','b','c',                    

1:

,'z');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

...
var
l,z1,z2: integer;
s: string;
ausgabe: array [0..6] of byte;

begin
     s:='Megapol';
     l:=length(s);
     for z1:=1 to l do
     begin
          for z2:=0 to 25 do
          begin
               if buchstaben[z2]=copy(s,1,z) then ausgabe[z1]:=z2;
          end;
     end;
end;
...                    

1:

Var hexarray: array [0..25] of string = ('1','2',...'10');                    

1:
2:

...
b:=$00;                    

1:
2:
3:

...
b:=stringtoint(hexarray[0]);
...                    

1:
2:

var
   Form1:TForm1;                    

1:

implementation                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

 ...  
var  
l,z1,z2: integer;  
s: string;  
ausgabe: array [0..2] of byte;  
const
buchstaben: array[0..2] of char = ('a','b','c'); //Alle deine Zeichen
hexwerte: array[0..2] of string = ('1','2','3'); //Codierte Integer als strings
 
begin  
     s:='cba';  
     l:=length(s);  
     for z1:=1 to l do  
     begin  
          for z2:=0 to 2 do  
          begin  
               if buchstaben[z2]=copy(s,1,z) then showmessage('Vorher: '+buchstaben[z2]+' -> nachher: '+hexwerte[z2];
          end;  
     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:

type
  TForm1 = class(TForm)
    OK: TButton;
    GroupBox1: TGroupBox;
    Name: TLabeledEdit;
    procedure OKClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1; f:file; b: byte; l,z1,z2: integer;    
s: string;    
ausgabe: array [0..60] of byte;
const  
buchstaben: array[0..60] of char = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','1','2','3','4','5','6','7','8','9'); //Alle deine Zeichen
hexwerte: array[0..60] of string = ('31','32','33','34','35','36','37','38','39','3A','3B','3C','3D','3E','3F','20','21','22','23','24','25','26','27','28','29','2A','11','12','13','14','15','16','17','18','19','1A','1B','1C','1D','1E','1F','00','01','02','03','04','05','06','07','08','09','10','a','b','c','d','e','f','g','h','i'); //Codierte Integer als strings



implementation

{$R *.dfm}

procedure TForm1.OKClick(Sender: TObject);
begin
AssignFile(f,'C:\header.bin');
     Rewrite(f,1);
     b:=$01;
     Blockwrite(f,b,sizeof(Byte));
     b:=$00;
     Blockwrite(f,b,sizeof(Byte));
     b:=$00;
     Blockwrite(f,b,sizeof(Byte));
     b:=$00;
     CloseFile(f);
     begin
     s:='Megapol';
     l:=length(s);
     for z1:=1 to l do
     begin
          for z2:=0 to 60 do
          begin
               if buchstaben[z2]=copy(s,1,z1) then showmessage('Vorher: '+buchstaben[z2]+' -> nachher: '+hexwerte[z2]
     end;
end;
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:

type  
  TForm1 = class(TForm)  
    OK: TButton;  
    GroupBox1: TGroupBox;  
    Name: TLabeledEdit;  
    procedure OKClick(Sender: TObject);  
  private  
    { Private-Deklarationen }  
  public  
    { Public-Deklarationen }  
  end;  

 
var  
  Form1: TForm1; f:file; b: byte; l,z1,z2: integer;      
s: string;      
ausgabe: array [0..60] of byte;  
const    
buchstaben: array[0..60] of char = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','1','2','3','4','5','6','7','8','9'); //Alle deine Zeichen 
// Achtung die hier eingetragen Werte müssen Integer Werte sein!!!
//z.B. aus '31' muss '49' werden usw.
hexwerte: array[0..60] of string = ('31','32','33','34','35','36','37','38','39','3A','3B','3C','3D','3E','3F','20','21','22','23','24','25','26','27','28','29','2A','11','12','13','14','15','16','17','18','19','1A','1B','1C','1D','1E','1F','00','01','02','03','04','05','06','07','08','09','10','a','b','c','d','e','f','g','h','i');  

 

 
implementation  

 
{$R *.dfm}  

 
procedure TForm1.OKClick(Sender: TObject);  
begin  
AssignFile(f,'C:\header.bin');  
     Rewrite(f,1);  
     b:=1;  
     Blockwrite(f,b,sizeof(Byte));  
     b:=0;  
     Blockwrite(f,b,sizeof(Byte));  
     b:=0;  
     Blockwrite(f,b,sizeof(Byte));  
 
     // bis hier wird der Header geschrieben
     begin  
     s:='Megapol';  
     l:=length(s);  
     for z1:=1 to l do  
     begin  
          for z2:=0 to 60 do  
          begin  
               //Achtung: habe copy befehl geändert!!!!
               if buchstaben[z2]=copy(s,z1,1) then 
               begin
                    //Hier wird das Codierte in die Datei geschreiben!!
                    b:=strtoint(hexwerte[z2]);
                    Blockwrite(f,b,sizeof(Byte));  
               end;
 
     end; 
  end;
CloseFile(f);   
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:

...
var z3,z4: integer;
...
s:='Megapol';  
l:=length(s);  //Ermittlung der Länge
AssignFile(f,'C:\header.bin');  
     Rewrite(f,1);  
     b:=1;  
     Blockwrite(f,b,sizeof(Byte));  
     b:=0;  
     Blockwrite(f,b,sizeof(Byte));  
     b:=0;  
     Blockwrite(f,b,sizeof(Byte));
     z3:=8-l;
//wenn der String weniger als 8 Zeichen hat wird diese schleife durchlaufen
//und schreibt die fehlenden 00
     if z3>0 then 
     begin
          for z4:=1 to z3 do
          begin
               b:=0;
               Blockwrite(f,b,sizeof(Byte));
          end;
     end;
     CloseFile(f);                    

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:

unit Unit2;

interface

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

type
  TForm1 = class(TForm)
    OK: TButton;
    GroupBox1: TGroupBox;
    Name: TLabeledEdit;
    procedure OKClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1; f:file; b: byte; l,z1,z2: integer; z3,z4: integer;
s: string;    
ausgabe: array [0..60] of byte;
const  
buchstaben: array[0..60] of char = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','1','2','3','4','5','6','7','8','9'); //Alle deine Zeichen
hexwerte: array[0..60] of string = ('49','50','51','52','53','54','55','56','57','3A','3B','3C','3D','3E','3F','20','21','22','23','24','25','26','27','28','29','2A','11','12','13','14','15','16','17','18','19','1A','1B','1C','1D','1E','1F','00','01','02','03','04','05','06','07','08','09','10','a','b','c','d','e','f','g','h','i'); //Codierte Integer als strings



implementation

{$R *.dfm}

procedure TForm1.OKClick(Sender: TObject);
begin
AssignFile(f,'C:\header.bin');    
     Rewrite(f,1);    
     b:=1;    
     Blockwrite(f,b,sizeof(Byte));    
     b:=0;
     Blockwrite(f,b,sizeof(Byte));    
     b:=0;
     Blockwrite(f,b,sizeof(Byte));    
   
     // bis hier wird der Header geschrieben
     begin
     s:='abcdef';
l:=length(s);  //Ermittlung der Länge  
AssignFile(f,'C:\header.bin');    
     Rewrite(f,1);
     b:=1;    
     Blockwrite(f,b,sizeof(Byte));    
     b:=0;    
     Blockwrite(f,b,sizeof(Byte));
     b:=0;    
     Blockwrite(f,b,sizeof(Byte));  
     z3:=8-l;  
//wenn der String weniger als 8 Zeichen hat wird diese schleife durchlaufen
//und schreibt die fehlenden 00  
     if z3>0 then   
     begin
          for z4:=1 to z3 do
          begin  
               b:=0;
               Blockwrite(f,b,sizeof(Byte));
               end;
               for z2:=0 to 60 do    
            for z1:=1 to l do

          begin
if buchstaben[z2]=copy(s,z1,1) then
               begin
                    //Hier wird das Codierte in die Datei geschreiben!!
                    b:=strtoint(hexwerte[z2]);
                    Blockwrite(f,b,sizeof(Byte));
               end;

          end;
     end;
     CloseFile(f);
end;
end;
end.                    

1:
2:
3:
4:

for i:=5 to 17 do
begin

end;                    

1:
2:
3:
4:
5:
6:

r:=l+3
          for r to 17 do
          begin
           Blockwrite(f,b,sizeof(Byte));
     b:=80;
     end                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

...
var
   bin: TMemoryStream;
   b: byte;
   z: integer;

begin
     bin:=TMemoryStream.Create();#
     bin.LoadFromFile('my.bin');
     z:=0;
     while z <= bin.Size do
     begin
          bin.read(b,sizeof(byte));
          memo1.lines.add(inttostr(b));
          inc(z);
     end;
     bin.Free;
end;
...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

...
var
   bin: TMemoryStream;
   b: byte;
   z: integer;

begin
     bin:=TMemoryStream.Create();
     bin.LoadFromFile('my.bin');
     bin.Seek(strtoint('0x'+edit1.text);
     b:=strtoint('0x'+edit2.text);
     bin.write(b,sizeof(byte));
     bin.SaveToFile('my.bin');
     bin.Free;
end;
...