Berikut ini saya kutipkan lagi tentang tanda komentar yang terdapat pada Delphi Help :

Comments are ignored by the compiler, except when they function as separators (delimiting adjacent tokens) or compiler directives.
There are several ways to construct comments:

{ Text between a left brace and a right brace constitutes a comment. }

(* Text between a left-parenthesis-plus-asterisk and an asterisk-plus-right-parenthesis also constitutes a comment. *)

// Any text between a double-slash and the end of the line constitutes a comment.

A comment that contains a dollar sign ($) immediately after the opening { or (* is a compiler directive. For example,

{$WARNINGS OFF}

tells the compiler not to generate warning messages.

Pada kutipan tersebut.., intinya adalah.., tanda komentar yang digunakan pada source code Delphi terdiri dari tanda blok komentar dan baris komentar, kemudian jika tepat sesudah tanda blok komentar pembuka terdapat tanda $ maka blok komentar tersebut harus dianggap sebagai compiler directive. Dan berikut ini adalah fungsi untuk membuang komentar source code Delphi

Function kifStripComment(const S: String): String;
Type
  TTipeTanda = (ttDirective1, ttDirective2, ttBlockComment1,
                ttBlockComment2, ttLineComment, ttString);
Const
  eol = #13#10;
  tanda_awal: Array [TTipeTanda] Of String =
    ('{$', '(*$', '{', '(*', '//', '''');
  tanda_akhir: Array [TTipeTanda] Of String =
    ('}', '*)', '}', '*)', eol, '''');
Var
  i: TTipeTanda;
  ps, pe, pl, pr, po: PChar;
Begin
  Result:= '';
  SetLength(Result, Length(S));
  pr:= PChar(Result); ps:= PChar(S); pl:= ps;
  pe:= Pointer(Integer(ps) + Length(S));
  While ps < pe Do
  Begin
    For i:= ttDirective1 To ttString Do
      If (Integer(pe) - Integer(ps)) >=
            Length(tanda_awal[i]) Then
        If AnsiStrLComp(ps, PChar(tanda_awal[i]),
                        Length(tanda_awal[i])) = 0 Then
        Begin
          If (i In [ttBlockComment1, ttBlockComment2,
                    ttLineComment]) And (ps > pl) Then
          Begin
            StrMove(pr, pl, Integer(ps) - Integer(pl));
            pr:= Pointer(Integer(pr) +
                (Integer(ps) - Integer(pl)));
          End;
          ps:= Pointer(Integer(ps) + Length(tanda_awal[i]));
          po:= AnsiStrPos(ps, PChar(tanda_akhir[i]));
          If po <> Nil Then
          Begin
            ps:= Pointer(Integer(po) +
                 Length(tanda_akhir[i]));
            If i = ttLineComment Then pl:= po;
          End;
          If i In [ttBlockComment1, ttBlockComment2] Then
            pl:= ps;
          ps:= Pointer(Integer(ps) - 1);
          Break;
        End;
    ps:= Pointer(Integer(ps) + 1);
  End;
  If pl < pe Then
  Begin
    StrMove(pr, pl, Integer(pe) - Integer(pl));
    pr:= Pointer(Integer(pr) + (Integer(pe) - Integer(pl)));
  End;
  SetLength(Result, Integer(pr) - Integer(PChar(Result)));
End;

Berikut ini adalah gambar contoh penggunaan kifStripComment :

Download Source Code

Comments are ignored by the compiler, except when they function as separators (delimiting adjacent tokens) or compiler directives.
There are several ways to construct comments:

{ Text between a left brace and a right brace constitutes a comment. }

(* Text between a left-parenthesis-plus-asterisk and an asterisk-plus-right-parenthesis also constitutes a comment. *)

// Any text between a double-slash and the end of the line constitutes a comment.

A comment that contains a dollar sign ($) immediately after the opening { or (* is a compiler directive. For example,

{$WARNINGS OFF}

tells the compiler not to generate warning messages.

Bagian lain dari source code delphi yang akan mematikan fungsi komentar (membuatnya menjadi bukan komentar) adalah String (runtun karakter yang diawali dan diakhiri oleh tanda kutip tunggal). Berbeda dengan tanda komentar (memiliki tanda yang berpasangan), maka string tidak memiliki tanda yang berpasangan (tanda awal dan tanda akhir string adalah sama, yaitu kutip tunggal).

Agar komentar menjadi mudah untuk dilewati (diabaikan) ketika kita memproses source code program delphi, maka berikut ini adalah aturan yang harus diikuti :

Jika terdapat tanda komentar didalam String, maka harus dianggap bagian dari string dan bukan komentar, demikian pula sebaliknya bilamana terdapat string didalam komentar, maka harus dianggap bagian dari komentar dan bukan string.

Untuk memahami perbedaan proses antara string dan komentar, maka kita batasi saja terlebih dahulu penggunaan pasangan tanda komentarnya, satu saja, yaitu yang diawal oleh tanda { dan diakhiri dengan tanda }

Berikut ini adalah contoh-contoh input dan output yang harus dihasilkan

Input

ini adalah text source code, { bagian ini adalah komentar },
dan bagian 'ini adalah string', titik.

Output

ini adalah text source code, ,
dan bagian 'ini adalah string', titik.

Input

ini adalah text source code, { bagian ini adalah komentar, dan ada 'string' didalamnya },
dan bagian 'ini adalah string', titik.

Output

ini adalah text source code, ,
dan bagian 'ini adalah string', titik.

Input

ini adalah text source code, { bagian ini adalah komentar, dan ada 'string' didalamnya },
dan bagian 'ini adalah string dan ada { komentar } didalamnya', titik.

Output

ini adalah text source code, ,
dan bagian 'ini adalah string dan ada { komentar } didalamnya', titik.

Input

ini adalah text source code, '{ bagian ini adalah komentar didalam string }',
dan bagian {'ini adalah string didalam komentar'}, titik.

Output

ini adalah text source code, '{ bagian ini adalah komentar didalam string }',
dan bagian , titik.

Dengan memperhatikan contoh-contoh Input dan Ouput seperti diatas, maka kita dapat membuat fungsi untuk membedakan bagian blok komentar yang bertanda { } dengan string yang bertanda kutip tunggal

Function StringOrBraces(const s: String): String;
Var
  i: Integer;
  p: PChar;
Begin
  Result:= '';
  If Length(s) < 1 Then Exit;
  i:= 1;
  While i <= Length(s) Do
  Begin
    If (s[i] = '{') Or (s[i] = '''') Then
    Begin
      If s[i] = '{' Then
        p:= StrPos(PChar(@s[i]), '}')
      Else p:= StrPos(PChar(@s[i + 1]), '''');
      If p <> Nil Then
      Begin
      If s[i] = '''' Then
        Result:= Result + Copy(s, i,
              (Integer(p) - Integer(PChar(@s[i]))) + 1);
      i:= i + (Integer(p) - Integer(PChar(@s[i])));
      End
      Else Break;
    End
    Else Result:= Result + s[i];
    Inc(i);
  End;
End;

Berikut ini adalah contoh gambar penggunaan fungsi tersebut (StringOrBraces)

ehhmm.. file hasil Enkripsi tentunya menjadi acak (tidak bisa dibuka), dan ini akan menimbulkan rasa penasaran bagi orang lain yang tidak awam, terlebih lagi bila file tersebut adalah file hasil proses kompresi (misalnya dengan WinZip atau WinRAR). Jika suatu saat ada yang bertanya : “Ini file apa ? … apa sih isinya ??”, nah, bagaimana kita akan menjawabnya ? terlebih lagi jika yang bertanya adalah teman dekat kita … (atau misalnya pacar anda sendiri) .. hehe

Jika kita mengubah hasil enkripsi file tersebut menjadi gambar (Image/Picture), tentunya rasa penasaran bagi orang lain akan sedikit terpuaskan. Misalnya saja gambar itu terlihat seperti ini :

Bagi kita sendiri sebagai pemilik file tersebut tentu… Gambarnya nggak penting, yang penting isinya, tetapi.. sekarang kita akan menjadi lebih mudah untuk menjawab jika ada pertanyaan yang umumnya seperti “Ini gambar apa ..?”, nah… kita akan dengan mudah menjawab seperti ini : “Oh ini adalah gambar abstrak, yang bisa dirasakan tetapi sulit untuk diungkapkan..”, dan mungkin teman dekat anda atau bahkan pacar anda akan menjawabnya begini : “Oh tak kusangka dirimu punya jiwa seni yang tinggi…, sungguh sulit untuk dimengerti…”

Jika sudah seperti itu, mungkin lain waktu orang yang sama tidak akan mengajukan pertanyaan lagi, sebab sudah mengerti bahwa anda punya hobi yang lain dari yang lain..

Harap jangan sambil tertawa saat terjadinya tanya jawab seperti itu, pasang tampang serius sedikit lah .. supaya si penanya bisa teryakini dan kita bisa terbebas dari himpitan untuk membuka rahasia yang kita simpan…

Dalam pikiran sederhana saya…, kita tidak sedang berbohong saat menjawab seperti itu (hanya berusaha menghindar), dan gambarnya memang gambar abstrak (gambar tanpa bentuk yang dalam kenyataannya memiliki makna tersembunyi), bisa dirasakan (karena kita tau ada sesuatu milik kita disitu) tetapi sulit untuk diungkapkan (karena memang disembunyikan)

Sebenarnya.. kita hanya menggambar pada Canvas dengan format pixel 24 bit warna, dan setiap nilai Red, Green, dan Blue dari masing-masing pixel kita isi dengan byte data dari file yang ingin kita sembunyikan dan terlebih dulu kita sandikan menggunakan operator XOR dengan byte yang diambil dari generator Random, tentu.. dengan memberikan nilai awal untuk variabel RandSeed

Berikut ini adalah contoh program encryption dan decryption dengan Gambar Abstrak :

Download Source Code

Berikut ini adalah contoh program Export yang sudah ditambahi dengan komponen Object Inspector supaya lebih mudah untuk mengubah warna yang diinginkan :

Cara menggunakannya cukup mudah, buka file yang ingin di export, kemudian pilih menu “Export As HTML” atau dengan shortcut CTR+H. Untuk mengkopikannya ke WordPress .. buka file hasil export kemudian kopikan mulai dari tag <code> hingga tag </code> dan pastekan ke WordPress Editor

Jika ukuran fontnya terlalu besar, maka aturlah bagian :
<span style="font: 10pt Courier New;">
yang terletak tepat sesudah tag <code> misalnya saja diperkecil menjadi 8pt

Download Source Code