procedure TForm1.FormCreate(Sender: TObject);
var
  s: string;
  i, j, k: Integer;
  x, y: Double;
begin
  try
    x := 100.0;
    y := 3.0;
    x := x / y;
    ShowMessage(FloatToStr(x));

    s := 'Delphi';
    Form1.Caption := s;
  finally
    //
  end
end;

Permalink | 記事への反応(0) | 17:40

2007-10-17

■眠い

気づいたら徹夜してた。

DelphiのSonEditのFontプロパティを変えても、それが反映されていないのでずっと悩んでマニュアルで発見。

procedure ReDesign;
フォントやスクロールバーの変更を画面に反映させます。

いままでの3時間は一体...？orz

Permalink | 記事への反応(0) | 03:57

2007-10-03

■恥ずかしい思い出を思い切って晒す

ことで、さっさと忘れるという魂胆。

ある田舎駅の前の、民家の入り口にずっとおばちゃんが座ってるので、てっきり店かと思って入ってしまった。「炭酸飲料ありますか」と聞いてしまったし

＿|￣|　　　　　（（○

歌を一人で熱唱しているのを家族に見られた

＿|￣|○

寝坊という理由だけで、嘘をついて学校を休んだことがある((たまにはつらくても行くときあるけど))

＿|￣|　　　（（○

駅の立ち入り禁止区域に入ってしまい、運転士に指摘された((もちろん悪意ないし知った時点でその場から離れたけど))

＿|￣|　　　　　　　　（（○

一時期「w」とかを意味も分からず使ってた

＿|￣|　（（○

ここからDelphi編

Delphiをはじめたとき、何も読まずにprocedure Form1.OnClick(Sender: TObject);に「a = "はじめの第一歩"」とか打ってエラーが出たので、やっと調べたが、型と変数の定義という初歩で挫折し、アンインスコしたことがある((ちなみに今では普通に何も読まなくても簡単なメモ帳作れるレベル))

＿|￣|　　　（（○

Delphiの初歩を少し覚えたとき、自分でプロシージャ作ったら、フォームに置いてあるコントロールにアクセスできなくて、3日迷って、思い切って2chで質問。そんでもって30分で解決((ちなみにこれが生まれてはじめての2chへの書き込み))

＿|￣|　　　　　　　（（○

ちなみにこんな感じのプロシージャだった

procedure test;
begin
Label1.Caption := 'テストだよん！';
end;

ちなみに語尾が「だよん」だとかのなのは、今もやってる個人的なルールっぽいもの。

つーか、シンタックス・ハイライトってDelphi対応してないの？しかもなんか文字化けするし

＿|￣|　　○

あーすっきりした！

Permalink | 記事への反応(1) | 15:49

2007-06-04

■[Delphi]??Delphihacks??Delphi ??Win32API??

Delphi - Wikipedia ??Windows開発の決定版 - Delphi (Skype ??なでしこ )

タグ「delphi」を含む注目エントリー - はてなブックマーク

Delphiアプリケーションのメモリリーク検出法

Delphiアプリケーションのメモリリーク検出法 (山本隆の開発日誌)

作ろう！コンポーネント Delphi C++Builder

http://www.componentsource.co.jp/features/delphi/

TMS Software | Productivity software building blocks

Components > Effects and Multimedia > Video. Torry's Delphi Pages

Components > Effects and Multimedia > Audio. Torry's Delphi Pages

Components > Effects and Multimedia > Voice. Torry's Delphi Pages

Components > Effects and Multimedia > Direct X. Torry's Delphi Pages

try finally end

CとDelphiの対比表

eXeScope(Windows95/98/Me / ユーティリティ)

Delphi - テクノラティブログ検索

2ch検索: [Delphi]

Delphi-ML〓〓〓〓〓〓〓〓〓〓〓??About Delphi

Delphi Q & A掲示板

Delphi Q & A 〓f〓〓〓〓〓〓〓〓〓〓O〓〓(HTML〓o〓[〓W〓〓〓〓)

fdelphi.com

Delphi入門

旧 Delphi 入門 ??Seventh Delphi

VB〓〓VC〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓H

Delphi の格言

キーボードからの入力取得

マウスボタンのクリック、マウスの位置情報の取得

Delphi　WAVEサウンド音を鳴らす/Tips & Tricks

MIDI、WAVEファイルを再生する

サウンドを読み込んで鳴らす

MIDIを演奏する　MCI/midiStream

5分ではじめるDelphi - 第1回簡単なメディアプレーヤの作成（前編）

MP3プレイヤーを作る＞dllによる再生

Controling sound volume from code

Torry's Delphi Pages

lsMicrophone: mxl.dwComponentType :=MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;

MIXERLINE_COMPONENTTYPE_DST_SPEAKERS

MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT

SwissDelphiCenter.ch : ...set the volume for the microphone/ mute it (enhanced)?

Components > Sound Effects > Mixer. Torry's Delphi Pages

uses MMSystems;
//
PlaySound('C:\WINNT\Media\start.wav ', 0, SND_FILENAME or SND_ASYNC);

Delphi6でプログラミング　ビットマップの半透明コピー AlphaDraw

画像処理プログラミング講座

Graphic Effect

カラー画像をモノクロ画像に変換

procedure TForm1.Button1Click(Sender: TObject);
var
bmp1,bmp2 :TBitmap;
begin
bmp1 :=Tbitmap.Create;
bmp2 :=Tbitmap.Create;
try
bmp1.LoadFromFile('C:\Program Files\Common Files\Borland Shared\Images\Splash\256Color\FINANCE .BMP ');
bmp2.LoadFromFile('C:\Program Files\Common Files\Borland Shared\Images\Splash\256Color\FACTORY .BMP ');
Form1.Canvas .Draw (10,10,bmp1);
Form1.Image1.Canvas .Draw (10,10,bmp2);
finally
bmp1.Fr ee;
bmp2.Fr ee;
end;
end;