技術関連 » Ajax / VB6 / Delphi / VML / Perl / ASP.NET / 正規表現 / CG計算
知識関連 » システム見積り / プロジェクト管理 / その他

開発メモ

応用ステートメント

ステートメントです。

読み取り専用と隠しファイルのフラグをオフにする。

srTemp : TSearchRec;
FileSetAttr(strFile, srTemp.Attr and (not faReadOnly) and (not faHidden) );

アイコンへドラッグ&ドロップされたファイルの一覧取得

procedure TForm1.FormCreate(Sender: TObject);
var
  iIdx:integer;
  stlMsg:TStringList;
begin
  if paramcount >=1 then
  begin
    stlMsg := TStringList.Create;
    stlMsg.Clear;
    for iIdx:=1 to ParamCount do
      stlMsg.Add(ParamStr(iIdx));
      ShowMessage(stlMsg.Text);
      stlMsg.Free;
  end;
end;

マルチラインの文字列を一行ずつ処理

strLine:string;
iIdx:integer;
For iIdx := 0 To stlText.Count -1 Do Begin
  strLine := stlText[iIdx];
End;
Copyright © 1999-2006 seoi.net All Rights Reserved.
[] [dev][0.00104308128356934]