//----------------------------------------------------------------------------
// 빌더소스
//----------------------------------------------------------------------------
void __fastcall TForm1::Query1CalcFields(TDataSet *DataSet)
{
AnsiString UpdateStatus[] = {"Unmodified", "Modified", "Inserted", "Deleted"};
if(Query1.CachedUpdates)
Query1StatusStrValue = UpdateStaus[Query1.UpdateStatus()];
}
//----------------------------------------------------------------------------
// ? 델파이소스로 고치기
//----------------------------------------------------------------------------
procedure TForm1.Query1CalcFields(DataSet: TDataSet);
var
UpdateStatusStr : array[0..3] of String;
begin
UpdateStatus[0] := 'Unmodified';
UpdateStatus[1] := 'Modified';
UpdateStatus[2] := 'Inserted';
UpdateStatus[3] := 'Deleted';
if Query1.CachedUpdates = true then
Query1StatusStr.Value := UpdateStatusStr[Query1.UpdateStatus];
end; // ?에러난 부분 ①
//----------------------------------------------------------------------------
// 에러메세지 : Incompatible 'Integer' and 'TUpdateStatus'
//----------------------------------------------------------------------------
// 빌더의 UpdateStatus()와 델파이의 UpdateStatus와는 반환유형이 다른가요?
// ①부분을 어떻게 고쳐야할지 가르쳐주세요!
|