|
아래의 델파이 소스를 C++빌더로 변경하는 중입니다.
그런데 아래의 3군데는 변경방법을 모르겠네요
아시는 분은 부족한 저에게 도움을 주세요~
부탁드립니다 ^^
unit Unit_IniCompare;
interface
uses
Windows, Classes, SysUtils, StdCtrls, Dialogs;
const
MAX_SECTION = 500; //Total Section Count
MAX_KEY_VALUE = 500; //(Key/Value Count)/1Section
type //r : record
rTSection = record
Name : String;
KeyCount : Integer;
Key : array of String;
Value_ : array of String;
end;
rTIni = record
Name : String;
Path : String;
SectionCount : Byte;
Section : array of rTSection;
end;
TAppViewerFunc = Procedure(Data : String); stdcall; <----------------------- 1번째
type
TMyCollectionItem = class(TCollectionItem)
private
FIni : rTIni;
FSectionCount : Integer;
FKeyCount : Integer;
procedure SetIni(const AIni : rTIni);
public
procedure AssignParameter(const AIni: rTIni); virtual;
published
property Ini: rTIni read FIni write SetIni; <-------------------------2번째
property SectionCount: Integer read FSectionCount write FSectionCount;
property KeyCount: Integer read FKeyCount write FKeyCount;
end;
TINILogCollection = class(TCollection)
private
mLogPath: String;
mLogFileHeader: String;
procedure Compare(User: String; OldItemsIndex, NewItemsIndex: Integer);
protected
function GetItem(Index: integer): TMyCollectionItem; virtual;
procedure SetItem(Index: integer; Value: TMyCollectionItem); virtual;
function IndexOf(const AIni : rTIni): integer; virtual;
public
constructor Create(LogPath: String; LogFileHeader:String);
function Add: TMyCollectionItem;
procedure AddParameter(const AIni : rTIni);
procedure DeleteParameter(const AIni : rTIni);
procedure AddData(const FilePath : String);
procedure CompareItems(User: String);
procedure AddLog(LogData: String);
property Items[Index: integer] : TMyCollectionItem read GetItem write SetItem; <------------3번째
published
end;
implementation
var
AppViewerFunc : TAppViewerFunc;
|