abc プロジェクト
| 14.8.10. GetNewValName メンバ関数説明 |
| メンバ関数名 | GetNewValName |
|---|
| 定義ファイル名 | TuneRegion.cpp |
|---|
| 定義行 | 3563 |
|---|
| 所属名 | TTuneRegion |
|---|
| アクセス属性 | private |
|---|
| 宣言形式 | AnsiString GetNewValName ( AnsiString BaseName , int Idx , TStringList * ArgValList ) |
|---|
| 概要 | Idx番目の新しい名前を作成する。
ArgValList->Objects[] の ValDataに既にある名前と一致する場合は、
"_"を数値の後に必要なだけ挿入する |
|---|
| 戻り値 | 新しい変数名 |
|---|
| パラメタ説明 | BaseName 基本名
Idx インデックス
ArgValList 引数変数リスト |
|---|
| 機能説明 | |
|---|
| 備考 | |
|---|
呼出し元関数一覧表
呼出し先関数一覧表
| № |
名称 |
定義ファイル名 |
定義行 |
| 1 |
CompareText |
|
|
| 2 |
IntToStr |
|
|
| 3 |
Length |
|
|
| 4 |
SubString |
|
|
参照先一覧表
関数論理チャート
| +--------------------------------------------------------------------------------------------+
3563 +--+ AnsiString TTuneRegion::GetNewValName(AnsiString BaseName,int Idx,TStringList *ArgValList) |
3564 | { |
+--+-----------------------------------------------------------------------------------------+
3565 +--- int i,j;
3566 +--- int pos;
3567 +--- AnsiString s;
3568 +--- TValData *ValData;
3569 |
| +--------------------------------------------+
3570 +--+ for(i = BaseName.Length() ; i > 0 ; i--){ |
| +--+-----------------------------------------+
| | +--------------------------------------------------+
3571 | +--+ if((BaseName[i] >= '0')&&(BaseName[i] <= '9')){ |
| | +--+-----------------------------------------------+
| | | +------------+
3572 | | +--+ continue; |
| | | +------------+
| | +-+---+
3573 | | | } |
| | +-----+
3574 | +--- BaseName = BaseName.SubString(1,i);
| | +--------+
3575 | +--+ break; |
| | +--------+
| +-+---+
3576 | | } |
| +-----+
3577 +--- s = BaseName + IntToStr(Idx);
| +------------------------------+
3578 +--+ for(j = 0 ; j < 100 ; j++){ |
| +--+---------------------------+
| | +--------------------------------------------+
3579 | +--+ for(i = 0 ; i < ArgValList->Count ; i++){ |
| | +--+-----------------------------------------+
3580 | | +--- ValData = (TValData *)ArgValList->Objects[i];
| | | +----------------------------------------+
3581 | | +--+ if(CompareText(ValData->Str,s) == 0){ |
| | | +--+-------------------------------------+
3582 | | | +--- i = -1;
| | | | +--------+
3583 | | | +--+ break; |
| | | | +--------+
| | | +-+---+
3584 | | | | } |
| | | +-----+
| | +-+---+
3585 | | | } |
| | +-----+
| | +--------------+
3586 | +--+ if(i != -1){ |
| | +--+-----------+
| | | +--------+
3587 | | +--+ break; |
| | | +--------+
| | +-+---+
3588 | | | } |
| | +-+---+
| | +-+-------+
3588 | | | else{ |
| | +-+-------+
3589 | | +--- s += "_";
| | +-+---+
3590 | | | } |
| | +-----+
| +-+---+
3591 | | } |
| +-----+
| +------------+
3592 +--+ return s; |
| +------------+
3593 |
+-+---+
3594 | } |
+-----+