2009/1/29
最近社内で、delphiを勉強しています。以前の社内ＣＲＭシステムなどすべてdelphiで開発した。
4年間ずとC#を使っています。初めてdelphiを触るとちょっと慣れないです。
Delphi VS C# どうでしょうか。↓は個人的な感想です。
Delphiメリット：
①コンパイルスピード早い。
②配布先はRuntimeなど必要がない。
デメリット
①Delphi2009のＩＤＥを使っています。Visual studioより弱い、使いずらい部分あり。
②Delphi言語はVB + Cの書き方、過程プログラム傾向が重い、完全OOPではないことと感じました。
③使っている方がどんどん少なくなります。
C#メリット：
①言語実体分かりやすい、Javaの文法とほぼ同じ。
②完全ＯＯＰ開発、everything is object
③Visual studio 2008 ＩＤＥがとても便利です。
④MSDNで沢山資料存在する。
デメリット：
①
配布先端末で.net frameworkが必要
②Visual studio 2008 ＩＤＥのコンパイル速度やや遅い感じある
どうでしょうか、
僕は基本的に.net派です。I love C#.
仕方ない、会社でDelphiを使いながら、自宅でC#を研究を続ける。
2009/1/20
program FormatStr;
{$APPTYPE CONSOLE}
uses
Classes,SysUtils;
var
st1,st2: string;
i,j,k: integer;
r: real;
begin
i:=10; j:=100; {コンソールに表示されたもの}
Writeln(Format('%d',[i])); {10}
Writeln(Format('%3d',[i])); { 10}
Writeln(Format('%.3d',[i])); {010}
Writeln(Format('%03d',[i])); { 10}
Writeln(Format('Edit%d',[i])); {Edit10}
Writeln(Format('\%3.3d.',[i])); {\010.}
Writeln(Format('%d%%',[i])); {10%}
Writeln(Format(':%d',[i])); {:10}
Writeln(Format('XY%.3d',[i])); {XY010}
Writeln(Format('%d,%d',[i,j])); {10,100}
Readln;
r:=i;
k:=2;
Writeln(Format('%f',[r])); {10.00}
Writeln(Format('%.0f',[r])); {10}
Writeln(Format('%4.2f',[r])); {10.00}
Writeln(Format('%2.3f ',[r])); {10.000}
Writeln(Format('%3.1f 倍',[r])); {10.0 倍}
Writeln(Format('%.7d %f',[7,1.234])); {0000007 1.23}
Writeln(Format('%n',[r])); {10.00}
Writeln(Format('%.0n',[r])); {10}
Writeln(Format('%*.*n',[i,k,r])); { 10.00}
Writeln(Format('%.0n',[r])); {10}
Writeln(Format('%10.0n',[r])); { 10}
Writeln(Format('%m',[r])); {\10}
Writeln(Format('%12m',[r])); { \10}
Writeln(Format('%X%x%X%x',[i,i+1,i+2,j])); {ABC64}
Writeln(Format('%x%x%x%x',[1,2,3,4])); {1234}
Writeln(Format('%.4x',[i])); {000A}
Writeln(Format('%4X',[i])); { A}
Writeln(Format('Icon Index is 0x%.4x',[i]));
{Icon Index is 0x000A}
Writeln(Format('$%02X',[i])); {'$ A'}
st1:='東京都'; st2:='出府愛二';
Writeln(Format('%13s ',[st1])); { 東京都}
Writeln(Format('%-10s%-10s%.5d',[st1,st2,i]));
{東京都 出府愛二 00010}
Readln;
r:=10.12345;
Writeln(Format('%f',[r])); {10.12}
Writeln(Format('%.0f',[r])); {10}
Writeln(Format('%4.2f',[r])); {10.12}
Writeln(Format('%2.3f ',[r])); {10.123}
Writeln(Format('%3.1f 倍',[r])); {10.1 倍}
Writeln(Format('%.7d %f',[7,1.234])); {0000007 1.23}
Writeln(Format('%n',[r])); {10.12}
Writeln(Format('%.0n',[r])); {10}
Writeln(Format('%*.*n',[i,k,r])); { 10.12}
Writeln(Format('%.0n',[r])); {10}
Writeln(Format('%10.0n',[r])); { 10}
Writeln(Format('%m',[r])); {\10}
Writeln(Format('%12m',[r])); { \10}
Readln;
Writeln(FormatFloat('0##',i)); {010}
Writeln(FormatFloat('#,##0',i)); {10}
Writeln(FormatFloat('0000',i)); {0010}
Writeln(FormatFloat('#,###',i)); {10}
Writeln(FormatFloat('###.0',i)); {10.0}
Writeln(FormatFloat('0##',r)); {010}
Writeln(FormatFloat('#,##0',r)); {10}
Writeln(FormatFloat('0000',r)); {0010}
Writeln(FormatFloat('#,###',r)); {10}
Writeln(FormatFloat('###.0',r)); {10.1}
Readln;
end.
工具 
帮助
