DelFusa Blog 総本山

プログラミングの話題とかです。

NEW | PAGE-SELECT | NEXT

≫ EDIT

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

| スポンサー広告 | --:-- | comments(-) | trackbacks(-) | TOP↑

≫ EDIT

Delphiでヒアドキュメント


       ヒ ィー ア ァー!
   ̄ ̄ ̄ ̄ ̄∨ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
‐―C‐C‐C‐∩∧‐∧‐―C‐C‐━  
‐C‐C‐C‐―ミ,ミ゚Д゚*彡‐C‐C‐C‐―C‐━  
      ミ゙゙   ,,,,,二⊃
      (~ ,''(, /゙ 
      ∪ ∪    


でちゃった、ヒアドキュメント!

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Text := (*<<ABC
123
456EOS*);

 ShowMessage((*<<ABC
123
456

EOS*));

end;

btn1.png


PHPとかその手の言語でいい感じに使えるヒアドキュメントですよ。
ソースうめ込みSQLなどに、便利に使えるかもしれません。

後方ラベルのインデント付きヒアドキュにも対応で。

procedure TForm1.Button2Click(Sender: TObject);
begin
 Memo1.Text := (*<<-EOS

  ABC
  123
  456

  EOS*);

 ShowMessage((*<<-EOS

 ABC
 123
 456

  EOS*));

end;
btn2.png


こいつはどうやって実装されているかというと……


>>つづく。
スポンサーサイト

| 未分類 | 23:20 | comments:0 | trackbacks(-) | TOP↑

COMMENT















非公開コメント

PREV | PAGE-SELECT | NEXT

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。